delphi之调用外部dll中的函数

《delphi之调用外部dll中的函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、分早绑定和晚绑定两种。早绑定的代码如下：unitUnit1;interfaceuses  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,  Dialogs,StdCtrls;type  TForm1=class(TForm)    Button1:TButton;    procedureButton1Click(Sender:TObject);  private    {Privatedeclarations}  public    {Publicdeclarations}  

2、end;var  Form1:TForm1;//MB函数的声明：functionMB(hWnd:HWND;lpText,lpCaption:PChar;uType:UINT):Integer;stdcall;implementation{$R*.dfm}{调用外部DLL中的函数，譬如调用系统user32.dll中的MessageBoxA}//functionMB(hWnd:HWND;lpText,lpCaption:PChar;uType:UINT):Integer;//  stdcall;externaluser32name'MessageBoxA';{其中use

3、r32是Delphi定义的常量'user32.dll'，可以直接写成：}//functionMB(hWnd:HWND;lpText,lpCaption:PChar;uType:UINT):Integer;//  stdcall;external'user32.dll'name'MessageBoxA';{name后面说明函数的真实名字}{external子句说明单元载入时就加载函数，也就是早绑定；如果晚绑定需要用LoadLibrary}{stdcall指令表示参数传递是从右到左（Pascal则反之），不通过CPU寄存器传递}{4个参数的数据类型可以使用对应的Delp

4、hi数据类型，譬如：}//functionMB(hWnd:LongWord;lpText,lpCaption:PChar;uType:LongWord):Integer;//  stdcall;external'user32.dll'name'MessageBoxA';{或者是：}//functionMB(hWnd:Cardinal;lpText,lpCaption:PChar;uType:Cardinal):Integer;//  stdcall;external'user32.dll'name'MessageBoxA';{如果函数在此单元声明后，需要给其他单元调

5、用，需要先在interface区声明：}//functionMB(hWnd:Cardinal;lpText,lpCaption:PChar;uType:Cardinal):Integer;//  stdcall;{本例已经这样做了，如果要测试其他几种情况，需要先注释掉它}{然后在implementation区，说明函数的来源：}functionMB;external'user32.dll'name'MessageBoxA';//调用测试：procedureTForm1.Button1Click(Sender:TObject);var  t,b:  PChar;beg

6、in  t:='标题';  b:='内容';  MB(0,b,t,0);end;end.晚绑定的例子:unitUnit1;interfaceuses  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,  Dialogs,StdCtrls;type  //晚绑定，也就是动态调用外部函数主要用以下三个命令：  //LoadLibrary：获取DLL  //GetProcAddress：获取函数  //FreeLibrary：释放  //定义一个过程类型，参数要和需要的函数一致  TMB

7、=function(hWnd:HWND;lpText,lpCaption:PChar;uType:UINT):Integer;stdcall;  TForm1=class(TForm)    Button1:TButton;    procedureButton1Click(Sender:TObject);    procedureFormCreate(Sender:TObject);    procedureFormDestroy(Sender:TObject);  private    MB:TMB;  {声明函数MB}    inst:LongWord;