Private Declare Sub ModifySpeed Lib "speedup.dll" (ByVal NewSpeed As Long) 上面是在VB中的调用。 在DELPHI中我用动态加载,代码如下: procedure TForm1.Button3Click(Sender: TObject); type TModifySpeed = procedure(NewSpeed:integer);stdcall; var speedup_Thd:Thandle; Tf_ModifySp:TModifySpeed; TFpc:TFarProc; begin speedup_Thd := loadLibrary('speedup.dll'); if speedup_Thd > 0 then try TFpc:=GetProcAddress(speedup_Thd,'ModifySpeed'); //在这里时TFpc取的值为空 if TFpc<>nil then begin Tf_ModifySp := TModifySpeed(TFpc); Tf_ModifySp(10000); end else ShowMessage('ModifySpeed函数没有找到'); finally FreeLibrary(speedup_Thd); end else ShowMessage('speedup.dll没有找到'); end;
上面是在VB中的调用。
在DELPHI中我用动态加载,代码如下:
procedure TForm1.Button3Click(Sender: TObject);
type
TModifySpeed = procedure(NewSpeed:integer);stdcall;
var
speedup_Thd:Thandle;
Tf_ModifySp:TModifySpeed;
TFpc:TFarProc;
begin
speedup_Thd := loadLibrary('speedup.dll');
if speedup_Thd > 0 then
try
TFpc:=GetProcAddress(speedup_Thd,'ModifySpeed'); //在这里时TFpc取的值为空
if TFpc<>nil then
begin
Tf_ModifySp := TModifySpeed(TFpc);
Tf_ModifySp(10000);
end
else
ShowMessage('ModifySpeed函数没有找到');
finally
FreeLibrary(speedup_Thd);
end
else
ShowMessage('speedup.dll没有找到');
end;
fanli625(范蠡)
eXeScope该怎么用。找了半天也没看到该函数的帮助。
http://www.skycn.com/soft/2128.html