プログラムの終了 表示をなんとか。 (ID:32870)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 XRayさんとこのコピペです。 固まったIEの強制終了サンプル。 IEは特殊なアプリケーションで、複数のトップレベルウィンドウを持つことができます。その統括プロセスを切ってやらないと終了できません。 個別のIEウィンドウに対してはもっとぬるいWM_CLOSEなんかを送ってあげたほうが良いと思います。 まぁとにかく分かりにくい質問ですね、 とりあえず一番最初の質問からはかけ離れている気がします。 //uses tlhelp32 procedure TForm1.Button1Click(Sender: TObject); var ListHandle : THandle; Pr : TProcessEntry32; ProcessID : DWORD; hProcess : THandle; //fdwAccess : DWORD; //PStr : array[0..MAX_PATH-1] of Char; //ExeFullPath : String; ExeName : String; begin ListHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); if ListHandle <> THandle(-1) then begin try Pr.dwSize := sizeof(TProcessEntry32); Process32First( ListHandle,Pr); repeat ExeName := Pr.szExeFile; ProcessID := Pr.th32ProcessID; if ExeName='iexplore.exe' then begin beep; hProcess := OpenProcess(PROCESS_TERMINATE,False,ProcessID); TerminateProcess(hProcess, 0); CloseHandle(hProcess); end; until Process32Next( ListHandle,Pr )=False; finally CloseHandle( ListHandle ); end; end; end;