本文整理自网络,侵删。
unit vsk;
interfaceuses Windows, Classes, Forms, Dialogs;
function Box(info:string;title: string ; Flags : Integer):Integer; //?
implementation
function Box(info:string;title: string ; Flags : Integer):Integer;begin Result := application.MessageBox(PChar(info),PChar(title),Flags);end;
end.
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>