MessageBox()是API,对应的在user32.dll中的MessageBoxA()
{注意MessageBoxA这里区分大小写,他NND的让我试了半天才知道这里错了,你们也要注意了}
function msg(h:hwnd;sa,sb:pchar;i:uint):integer;stdcall ;external 'user32.dll' name 'MessageBoxA';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
sa,sb: PChar;
begin
sa := '标题';
sb := '内容';
msg(0,sa,sb,0);
end;
这样msg就等同于MessageBoxA()
posted on 2009-01-21 15:45
小叶子 阅读(528)
评论(0) 编辑 收藏 引用 所属分类:
delphi中的DLL文件