我一直在用ShellExecute浏览器打开URL,从模态窗口的代码中调用,如下所示:
procedure TfmAbout1.BtnHomePageClick(Sender: TObject);begin inherited; if ConnectedToWeb then ShellExecute(Handle, ‘open’, URL_PRODUCT_HOMEPAGE, nil, nil, SW_SHOWNORMAL);end;但是在装有“区域警报”防火墙的计算机上,用户可能会看到一个弹出提示,以允许或拒绝我的应用程序访问Internet。当用户单击“拒绝”时,ShellExecute再也不会返回…我的应用程序随后被挂起,并且必须从外部关闭该过程(例如,从任务管理器中关闭)。
我该怎么做才能预期或预防这种情况?我需要ShellExecute在这种情况下不会阻塞的东西。
我将不胜感激。