shell 起動のプログラムの終了について (ID:118295)

名前

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

本文 次ぎのようにしてプログラムの終了を得ています。（人の作ったものを流用してます。） タスクマネージャのパフォーマンスを見ているとこのルーチンへ入るとＣＰＵが １００％になり抜けるまでずっとそのままです。 これはしかたがないのでしょうか。何か別の方法があるのでしょうか。 '------------------------------------------------------------------ ' 外部のプログラムを実行し、そのプログラムの終了を待つプロシージャ ' no: 0 バックグランド 1 フォアグランド ' 5 アイコン '------------------------------------------------------------------ Dim hShell As Long Dim hProc As Long Dim lExit As Long Dim bret As Boolean Dim rc As Long hShell = Shell(cmdline, no) hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell) Do GetExitCodeProcess hProc, lExit DoEvents Loop While lExit = 259 ' Loop While lExit = STILL_ACTIVE execmd = CloseHandle(hProc) End Function