本文整理自网络,侵删。
procedure TForm1.Btn_1Click(Sender: TObject);var S,S1:string;begin s:='标题'; s1:='内容'; asm push 0; push s; push s1; push 0; call Messagebox; end;end;
相关阅读 >>
Delphi datasnap(midas)三层架构中,常用事件及其触发顺序
Delphi中destroy, free, freeandnil, release用法和区别
更多相关阅读请进入《Delphi》频道 >>