Type TmyFunc=function GetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;stdcall; var dllHandle:Thandle; mf:TmyFunc; begin dllHandle:=LoadLibrary(’你的.dll’); try if dllHanlde<=0 then showmessage('装载失败') else @mf:=GetProcAddress(dllHandle,PChar('GetListViewText')); //调用 mf(mHandle,mStrings); finally FreeLibrary(dllHandle); end;end;
TmyFunc=function GetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;stdcall;
var
dllHandle:Thandle;
mf:TmyFunc;
begin
dllHandle:=LoadLibrary(’你的.dll’);
try
if dllHanlde<=0 then showmessage('装载失败')
else
@mf:=GetProcAddress(dllHandle,PChar('GetListViewText'));
//调用
mf(mHandle,mStrings);
finally
FreeLibrary(dllHandle);
end;end;