关于DLL中的窗口重复调用问题~~~(50分)

d村长 · 2003-01-23

我在一个动态链接库中创建了一个窗体,并用下面的方法在主程序中调用,第一次调用成功后,不关闭窗体,再重复调用一次,想让主程序从DLL中调出两个相同的窗口,程序就报错,下面给出原码,请高手帮忙解答一下. DLL中的窗示窗口: function show_form(AHandle: THandle; ACaption: String):BOOL; begin  Application.Handle := AHandle;  Formt := TFormt.Create(Application);  try    Formt.Caption := ACaption;    Formt.Show ;    Result := False;  finally    Formt.Free;  end; end; 主程序的调用: procedure TForm1.IP1Click(Sender: TObject); var  //按钮的调用事件:调用过程 LibHandle: THandle; show_form:tshow_form; begin  Application.Title:='IP';  LibHandle := LoadLibrary('view.DLL');  try    if LibHandle = 0 then      raise EDLLLoadError.Create('无法成功装入指定模块,或系统发生未知错误!)');    @show_form := GetProcAddress(LibHandle, 'show_form');    if not (@show_form = nil) then    begin      show_form(Application.Handle,Application.Title) ;    end    else      RaiseLastWin32Error;  finally    FreeLibrary(LibHandle);  end; end; /////// 我的目的就是同时能成功的调用DLL中的窗体很多次~~而不发生错误~

ysai · 2003-01-23

//前面不要声明Formt function show_form(AHandle: THandle; ACaption: String):BOOL; var   Formt:TFormt; begin  Application.Handle := AHandle;  Formt := TFormt.Create(Application);  try    Formt.Caption := ACaption;    Formt.Show ;    Result := true;  except    Formt.Free;    result:=false;  end; end;

人在昆明 · 2003-01-23

不要用show,用showmodal； 可以参考我在playicq 的exe 调用dll 的例子，还不完善。

关于DLL中的窗口重复调用问题~~~(50分)

d村长

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

Similar threads