SysUtils,
Classes;
{$R *.RES}
//注意,上面這行代碼必須加在這個位置
function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;
exports
TestDll;
begin
end.
3 、為了避免與別的DLL重名,在給自己編寫的DLL起名字的時候最好采用字符數字和下劃線混合的方式。如:jl_try16.dll。
4 、如果您原來在Delphi 1或Delphi 2中已經編譯了某些DLL的話,您原來編譯的DLL是16位的。只要將源代碼在新的Delphi 3或Delphi 4環境下重新編譯,就可以得到32位的DLL了。
文章來源于領測軟件測試網 http://www.kjueaiud.com/