动态连接库dll 为什么总是报无效的窗口句柄

Question

需要你窗口的句柄。showformdll(handle);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
To:Crob 这样也不行
var
  hr:Thandle;
begin
  hr:=form1.handle;
  showformdll(hr);
end;

Answer 2

  Application.Handle := AppHandle;//这句不用
  With Tfrmdll.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;//动态库中要注意啊

Answer 3

library FormDll;uses
  SysUtils,
  Classes,
  UmyForm in 'UmyForm.pas' {frmdll};exports
  showformdll;{$R *.RES}
begin
  @showformdll=UmyForm.showformdll
end.

Answer 4

showformdll;=>showformdll(application)