Delphi TWebBrowser在Windows Startup上冻结GUI

时间:2014-01-12 14:06:00

标签: delphi user-interface twebbrowser

我写了一个软件并将其添加到Windows启动。当应用启动时,它会导航网页。但是,TWebbrowser冻结GUI直到它准备运行。在这段时间里,我无法做任何事情,因为gui被冻结了。有没有人对此有任何解决方案?

我知道它只是Internet Explorer ActiveX,如果我将它添加到启动中,IE也会冻结。如果我第二次运行它,这不会发生。仅在Windows启动时发生。

我在这里有XE5,我的IE是11.但在我的办公室里,我已经在IE8和IE9中测试了它。

procedure TfrmUsers.CallWeb(szUrl: string);
var
  Flags: OLEVariant;
begin
  try
    Flags := navNoHistory or navNoReadFromCache or navNoWriteToCache;
    WebBrowser1.Navigate(szUrl, Flags);
  except
  end;
end;

procedure TfrmUsers.FormShow(Sender: TObject);
begin
  CallWeb(APP_WEB);
end;

-K

0 个答案:

没有答案