のShellExecuteブロック（返すことはありません）ファイアウォールがインターネット

Question

を拒否したとき、私はこのように、モーダルウィンドウコードから呼び出され、ブラウザでURLを開き、ShellExecuteを使用してきた：

procedure TfmAbout1.BtnHomePageClick(Sender: TObject); 
begin 
    inherited; 
    if ConnectedToWeb then 
    ShellExecute(Handle, 'open', URL_PRODUCT_HOMEPAGE, nil, nil, SW_SHOWNORMAL); 
end; 

しかし持つマシン上でZone Alarmファイアウォールを使用すると、ユーザーはインターネットへのアプリケーションアクセスを許可または拒否するポップアッププロンプトを表示することがあります。ユーザーが「拒否」をクリックすると、ShellExecuteは返されません。私のアプリケーションは次に掛けられます&プロセスは外部（つまり、タスクマネージャーから）シャットダウンする必要があります。

これを予測または防止するには、どうすればよいですか？このような状況では、非ブロックであるShellExecuteのようなものが必要です。

私は何か考えていただければ幸いです。

Answer 1

ゾーンアラームのバグを回避したいのですか？

私はおそらくゾーンアラームのバージョンをチェックし、それに応じて小さな「ブートストラップ」プログラムで私のためにShellExecuteを実行してください。そうすれば、小さなブートストラッププログラムだけがぶら下がります。

タイムアウト（15秒または30秒後）が戻ってこない場合は、そのブートストラッププログラムを（親プロセスが所有者であるため）強制終了できます。注：

あなたも、あるユーザーに警告する可能性は、ゾーンアラーム:)

編集のバグのバージョンを持っている私は、プロセスを殺すことは、スレッドを殺すよりも安全だと思います。

Answer 2

スレッドでShellExecuteを実行します。ある時点で、それが完了したかどうかを見ることができます。もしそうでなければ、あなたはそれを終了することができます。