プログラムを終了するには？
解決プログラムの終了方法を教えてください。
タスクマネージャーのプロセス表示で
イメージ名を右クリックした時の
「プロセスツリーの終了」を実現したいのですが
どうすればよいのでしょうか?
現在、作成しているアプリケーション（Ａ）から他のプログラム（Ｂ）を
CreateProcessで呼び出すと、呼び出したプログラム（Ｂ）から
別のプログラム（Ｃ）が呼び出されています。
中止ボタンをクリックすると、
TerminateProcess で （Ａ）から呼び出したプログラム（Ｂ）の
プロセスを終了するところまではできるのですが、
プログラム（Ｃ）は動作したままで終了できません。
どうすればよいのでしょうか?
h := FindWindow(nil, '対象アプリのタイトル');
if h <> 0 then SendMessage(h, WM_CLOSE, 0, 0);
はどうですか？
'対象アプリのタイトル'がわかりません。
コンソールアプリケーションだと思いますが、
アプリケーションには表示されてこないのです。
WinSightやスパイなどで判りませんかねぇ・・・
プロセスを列挙して、プロセスIDを得てから
次のコードで終了してください。
var
ProcessID: Cardinal;
hProcess: THandle;
begin
//ProcessIDを得ておく
//ProcessID := xx;
hProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessID);
TerminateProcess(hProcess , 0 );
CloseHandle(hProcess);
end;
プロセス列挙コードは
ｈttp://delfusa.main.jp/delfusalibrary/20060527212010/SystemUnit/SystemUnit.pas
のGetProcExeNameList関数になります。
（Ａ）から呼び出した（Ｃ）なのかどうかを
特定する処理はちょっとわかりませんが。
呼び出す前にプロセス列挙して、終了したいときにプロセス列挙して
その差分を求めるとかですかな？
お任せします。
みなさん、どうもありがとうございます。
＞Fusaさん
ｈttp://delfusa.main.jp/delfusalibrary/20060527212010/SystemUnit/SystemUnit.pas
これはインターネットアドレスでしょうか？
開くことができませんでした。
ProcessID はクリエイトプロセスで起動したときの
ProcessInformation.hProcess を使ってはだめなのでしょうか?
これを使って OpenProcess を呼び出すと
hProcess が ０になります。
＞deldel さん
EnumWindows を使ってウィンドウハンドルをキャッチできす。
ただ、ウィンドウがなければキャッチできません。
つまり、CreateProcess 起動時の StartupInfo.wShowWindow が
SW_SHOW の場合には動作するようにはなりましたが、
SW_HIDE の場合にはハンドルが取れなくなります。
それから・・・
作成しているプログラムＡからバッチファイルＢを非表示で
実行します。また、ＢからはプログラムＣが呼ばれています。
現在以下のことがわかっています。
実現したいのは２番または３番です。
宜しくお願いします。
１．Ｂを起動して、タスクマネージャのプロセスで
Ｂを[プロセスの終了]で終了すると、
Ｂが残る==>ＮＧ
＜CreateProcess で起動時の プロセスＩＤ を使って
TerminateProcess を呼び出すと同じ症状になる＞
２．Ｂを起動して、タスクマネージャのプロセスで
Ｃ を[プロセスの終了]で終了すると、
Ａ，Ｂが消える==>ＯＫ
＜Ｃを特定することができれば可能ですが、
現状ではその方法がわかりません＞
３．Ｂを起動して、タスクマネージャのプロセスで
Ｂを[プロセスツリーの終了]で終了すると、
Ａ，Ｂが消える==>ＯＫ
＜実現方法がわかりません＞
４．Ｂのウィンドウが表示するようにするとEnumWindowsを使って
ハンドルを取得して SendMessage(h, WM_CLOSE, 0, 0); で
クローズする==>ＯＫ（ただし、目的は非表示で動作）
＜CreateProcess で起動時に StartupInfo.wShowWindow := SW_SHOW
で起動して、EnumWindows でハンドルを取得し、SendMessage で
WM_CLOSE を送ることで実現可能＞
>４．Ｂのウィンドウが表示するようにするとEnumWindowsを使って
> ハンドルを取得して SendMessage(h, WM_CLOSE, 0, 0); で
> クローズする==>ＯＫ（ただし、目的は非表示で動作）
Form1.Width := 0;
Form1.Height := 0;
Form1.Top := 3333;
・・・でダメですか？
みなさん、すみませんでした。
私の認識不足でした。
EnumWindows で呼び出された コールバック関数に
IsWindowVisible が入っていました。
これがはいっているので
StartupInfo.wShowWindow が SW_HIDE のときにハンドルが
取れなかったようです。
おさわがせしてすみませんでした。
HTTPの最初の文字を全角のＨにしてますが....
> ProcessID はクリエイトプロセスで起動したときの
> ProcessInformation.hProcess を使ってはだめなのでしょうか?
わかりませんが、
タスクマネージャの列の選択で表示できるPIDと同じものなら
OpenProcessでプロセス終了できるはずですよ。
こちらも参考ください。
| ツイート |  |