HSPTV!掲示板

題名どおり、CreateProcessで起動したプロセスを終了させたいです。

TerminateProcessを使うのは好ましくないらしいので、
http://akky.cjb.net/mfc/appclose.html
↑のページに書いてあるようにやってみようとしたところ、
HSPはコールバック関数に対応していないらしく、
hscallbk.dllを使わなくてはいけなくなってしまいました。

dllファイルを付属させるのが嫌なので
他の方法を探りましたが見つかりません。

TerminateProcessを使わない、hscallbk.dllも使わない、
というのは無理なのでしょうか。

試してないですが、下のコードで大丈夫なはずです。
TerminateProcess とは違い、自分で作成したプロセスしか終了できないです。

#include "kernel32.as"
dim exitcode
GetExitCodeProcess hProcess , varptr(exitcode)
ExitProcess exitcode

出来ませんでした。
自分の作成しているコードの方がおかしいのかと思って、
「ちょくとのページ」さんの「Advanced HSP」の
「サンプルスクリプト main2.as」の
「#func WaitForSingleObject …」の下の行(4行目)に

#func GetExitCodeProcess  "GetExitCodeProcess"    sptr,sptr

#func ExitProcess         "ExitProcess"           sptr

を入れ、「if stat == 6 {」と「goto *lb_quit」の間(54行目)に

dim exitcode

GetExitCodeProcess hProcess , varptr(exitcode)
ExitProcess exitcode

を入れて、終了時に同時にメモ帳も終了するようにしようとしましたが、
これも出来ませんでした。

使い方が間違っているのでしょうか

色々と調べて↓のページを見つけたのですが、

http://www.activebasic.com/help_center/Pages/API/SystemService/ProcessAndThread/ExitProcess.htm

「呼び出し側のプロセスを終了させるものであり、
他のプロセスを終了させることはできません。」

と書かれていました。
自分で呼び出した他のプロセスを終了させたいとき、
（NO.40518でいうメモ帳を終了させたいとき）
ExitProcessは使えないということでしょうか。

>ExitProcessは使えないということでしょうか。
という質問は全く無視ですが。

EnumWindowsのかわりにFindWindowExじゃだめですか？
すべて引数をNullにして、次々とウィンドウをリストアップしていって、
EnumWindowsProcと同じことをしてみてはどうですか？
面倒ですけど。

FindWindowExで出来ました＾＾
ありがとうございます。