var
Form1: TForm1;
type
TMB = function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
implementation
{$R *.dfm}
var
MB: TMB;
inst: LongWord;
procedure TForm1.Button1Click(Sender: TObject);
var
t,b: PChar;
begin
inst := LoadLibrary('user32.dll');
MB := GetProcAddress(inst, 'MessageBoxA'){注意MessageBoxA这里区分大小写,他NND的让我试了半天才知道这里错了,你们也要注意了}
t := '标题';
b := '内容';
MB(0, b, t, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeLibrary(inst);
end;
posted on 2009-01-21 16:26
小叶子 阅读(486)
评论(0) 编辑 收藏 引用 所属分类:
delphi中的DLL文件