D
djjsl
Unregistered / Unconfirmed
GUEST, unregistred user!
TShowForm = function (AHandle:THandle):boolean;stdcall;
procedure TForm1.Button2Click(Sender: TObject);
var lHandle:THandle;
ShowForm:TShowForm;
begin
lHandle := LoadLibrary('E:/exercise/dll/dllprj.dll');
try
if lHandle = 0 then
raise EDLLLoadError.Create('Unable to Load DLL!');
@ShowForm:= GetProcAddress(lHandle,'showFrm');
if @ShowForm <> nil then
Showform(Application.Handle) //?这里的参数怎么传
else
RaiseLastWin32Error;
finally
FreeLibrary(lHandle);
end;
end;
谢谢!
procedure TForm1.Button2Click(Sender: TObject);
var lHandle:THandle;
ShowForm:TShowForm;
begin
lHandle := LoadLibrary('E:/exercise/dll/dllprj.dll');
try
if lHandle = 0 then
raise EDLLLoadError.Create('Unable to Load DLL!');
@ShowForm:= GetProcAddress(lHandle,'showFrm');
if @ShowForm <> nil then
Showform(Application.Handle) //?这里的参数怎么传
else
RaiseLastWin32Error;
finally
FreeLibrary(lHandle);
end;
end;
谢谢!