IT博客-学好delphi-随笔分类-delphi中的DLL文件

delphi创建dll

小叶子 — Wed, 21 Jan 2009 08:34:00 GMT

新建
new->other->dll wizard

library new;

uses
SysUtils,
Classes,
Dialogs;

{$R *.res}

procedure dll;
begin
showmessage('delphi');
end;

exports
dll;

begin
end.

小叶子 2009-01-21 16:34 发表评论

动态调用

小叶子 — Wed, 21 Jan 2009 08:26:00 GMT

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;

小叶子 2009-01-21 16:26 发表评论

dll调用系统API

小叶子 — Wed, 21 Jan 2009 07:45:00 GMT

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()

小叶子 2009-01-21 15:45 发表评论