delphi怎么写dll _delphi

1.delphi怎么样编写DLL文件和怎么样去加载我编写的DLL文件,请高手DLL写法：
library DLL;
uses
SysUtils,
Classes;
procedure proc;stdcall； //加上stdcall关键字
begin
end;
exports //申明的函数在这里导出以被其他程序调用
proc;
begin
end.
调用则有两种方法
一种是静态只需写
procedure proc;stdcall ; external 'DLL.dll' ;
便可当一般函数调用
另一种是动态
type
TProc = procedure;stdcall;
var
DLLHandle: THandle; //DLL句柄
proc = TProc； //函数变量
begin
DLLHandle := LoadLibrary('DLL.dll'); //Load DLL
@proc := GetProcAddress(DLLHandle, 'proc')； //得到函数的地址
proc； //调用过程
FreeLibrary(DLLHandle)； //释放
end;
2.Delphi7怎么写dll函数Delphi里array of xxxx参数叫变体数组，信息包括了上下标信息。
C里的数组只能从0开始，这是就差别，数据类型都不一样。大概会是这样： type PSignle = ^Signle;function pisn_getsnapshots(pt: PInteger;rval: PSingle;istat:PInteger; timedate:PInteger; error:PInteger; count: Integer):Integer;stdcall;external 'piapi32.dll';var pt: array[0..9] of Integer;var rval: array[0..9] of Single;var istat: array[0..9] of Integer;var timedate: array[0..9] of Integer;var error: array[0..9] of Integer;begin pisn_getsnapshots(@pt[0], @rval[0], @istat[0], @timedate[0], @error[0], 10);end; 。
3.在Delphi里面如何使用DLL?Delphi制作DLL一 Dll的制作一般步骤二参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四全局变量的使用五调用静态载入六调用动态载入七在DLL建立一个TForM八在DLL中建立一个TMDIChildForM九示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题：十一相关资料一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字，在其下写过程的名称。
不用写参数和调用后缀。二参数传递1 参数类型最好与window C++的参数类型一致。
不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。
成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼容。3 用stdcall声明后缀。
4 最好大小写敏感。5 无须用far调用后缀，那只是为了与windows 16位程序兼容。
三 DLL的初始化和退出清理[如果需要初始化和退出清理]1 DLLProc[SysUtils单元的一个Pointer]是DLL的入口。在此你可用你的函数替换了它的入口。
但你的函数必须符合以下要求[其实就是一个回调函数] 。如下：procedure DllEnterPoint(dwReason: DWORD);far;stdcall;dwReason参数有四种类型：DLL_PROCESS_ATTACH：进程进入时DLL_PROCESS_DETACH进程退出时DLL_THREAD_ATTACH 线程进入时DLL_THREAD_DETACH 线程退出时在初始化部分写： DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH);2 如Form上有TdcomConnection组件，就Uses Activex，在初始化时写一句CoInitialize (nil);3 在退出时一定保证DcomConnection.Connected := False，并且数据集已关闭。
否则报地址错。四全局变量的使用在widnows 32位程序中，两个应用程序的地址空间是相互没有联系的。
虽然DLL在内存中是一份，但变量是在各进程的地址空间中，因此你不能借助dll的全局变量来达到两个应用程序间的数据传递，除非你用内存映像文件。五调用静态载入1 客户端函数声名：1）大小写敏感。
2）与DLL中的声明一样。如： showform(form:Tform);Far;external'yproject_dll.dll';3）调用时传过去的参数类型最好也与windows c++一样。
4）调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；windows;widows\system;windows\ssystem32；六调用动态载入1 建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了] 。如：type mypointer=procedure(form:Tform);Far;external;var Hinst:Thandle; showform:mypointer;begin Hinst:=loadlibrary('yproject_dll');//Load一个Dll，按文件名找。