首先将DLL函数原型声明成类型TYPe,然后再调用loadlibray,Getprocaddress 如: type Myfuction=function(ahandle:Thandle;Acaption:string);stdcall; 然后再调用loadlibray,Getprocaddress 放在Application.Initialize;之后
我试了还是不行! 我的程序是这样的 GetVersion得到了系统的版本 然后用if getversion>0 then来判断相应的家再的dll if getversion>0 then begin loadlibray(NetShareAdd); end; 如果按你们说的话,嫩不能告诉我具体的写法在application.initialize之后的时候
step1:create a new application. step2:Project->view source step3:you will see follow: program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.step4: add you code after Application.Initialize step5:game over
可是我是过了!不能运行的!我家的代码如下! if getversion>0 then begin loadlibray(NetShareAdd); end;
http://www.csdn.net/expert/topic/950/950360.xml?temp=.4858972
如:
type
Myfuction=function(ahandle:Thandle;Acaption:string);stdcall;
然后再调用loadlibray,Getprocaddress 放在Application.Initialize;之后
我的程序是这样的
GetVersion得到了系统的版本
然后用if getversion>0 then来判断相应的家再的dll
if getversion>0 then
begin
loadlibray(NetShareAdd);
end;
如果按你们说的话,嫩不能告诉我具体的写法在application.initialize之后的时候
step2:Project->view source
step3:you will see follow:
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
Application.Initialize; Application.CreateForm(TForm1, Form1);
Application.Run;
end.step4: add you code after Application.Initialize
step5:game over
if getversion>0 then
begin
loadlibray(NetShareAdd);
end;