delphi怎么写dll( 三 ) _delphi

用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。
external命令的使用语法如下： procedure /function 过程/函数名；external DLL模块名；下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas，从中可看出输入单元与一般单元的一些差别，代码如下所示： unit testdll; interface uses function Min (X, Y: Integer): Integer; function Max (X, Y: Integer): Integer; implementation function Min; external 'minmax.DLL'; function Max; external 'minmax.DLL'; end. 一个应用程序若想调用minmax.DLL中的函数，只须在其uses语句中加入testdll 单元即可。动态装入DLL，要用到Windows的三个API函数。
Loadlibrary、Freelibrary和GetprocAddress。loadlibrary函数用来装入DLL库，其调用格式如下： function loadlobrary (DLLfileName:Pchar): THandle：当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下： procedure FreeLibrary (Libmodule:THandle) Libmodule 为由LoadLibrary调用得到的DLL库句柄。
在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中，可以使用该DLL库中的过程和函数，具体使用方法是：用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量，再用该变量实现DLL函数的调用。GetprocAddress函数声名如下，function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc：如下例所示： type TTimeRec = record Second: Integer; Minute: Integer; Hour: Integer; end; TGetTime = procedure(var Time: TTimeRec); THandle = Integer; var Time: TTimeRec; Handle: THandle; GetTime: TGetTime;。
begin Handle := LoadLibrary('DATETIME.DLL'); if Handle <> 0 then begin @GetTime := GetProcAddress(Handle, 'GetTime'); if @GetTime <> nil then begin GetTime(Time); with Time do WriteLn('The time is ', Hour, ':', Minute, ':', Second); end; FreeLibrary(Handle); end; end；在调用动态链接库时应注意，所需动态链接库须与应用程序在同一目录或Windows System 目录下。静态调用 Function fun(para:Longint):Longint; stdcall; external 'xxx.dll'；动态调用 loadlibrary,getprocaddress,freelibrary三个函数。
6.如何在DELPHI中使用DLL使用堆栈传递参数这个涉及参数的清除问题，就是堆栈的pop问题，在cdecl调用方式下是由调用者pop 堆栈，其它是由被调用者pop堆栈.说的太多了，怕你不明白，简单的讲，你用delphi调用api就用stdcall，调用c写的dll一般情况下就用cdecl，但你还是先看一下dll的调用约定的好。
以上说的都是dll的调用方式问题，操作Dll还是注意是静态调用还是动态调用，静态调用就是在程序先声明要用到该dll中的函数，如function SetWindowText; external user32 name 'SetWindowTextA'；以程序中就可以直接使用setwindowtext了，动态调用就不用说了吧，简单的很，自己试试吧。
7.delphi 写的dll中要如何加入对话框工程不一样，通过开始菜单建立一个dll工程，将其主工程的抬头不是project
而是
library
此dll的工程，其最下方有：
Experts
在下边写上你的函数，如
Experts
dllAbc;
之后，在某个页面实现这个方法就可以了，不过一定要写上调用顺序如stdl标志
procedure TForm1.Button1Click(Sender: TObject);
var
threadID:THandle;
threadID:THandle;
begin
CreateThread(nil, 0, @fun1, nil, 0, threadID);
end;
以上这句话确实被调用了么？可以考虑