请问我动态调用dll的delphi程序中的一段对应vc代码是什么?(50分)

  • 主题发起人 主题发起人 djjsl
  • 开始时间 开始时间
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;
谢谢!
 
dllprj.dll是我用delphi做的一个dll,它有个导出函数ShowForm,这个函数用于
show一个窗口,因此我在delphi中需要吧Application.Handle传给它。
但vc中这个Application.Handle怎么传,是不是m_hWnd?
 
MFC里没有Application对象,可以用主窗口的handle试一下。
 
接受答案了.
 
后退
顶部