ShellExecuteで起動したアプリケーションを終了するには (ID:86617)

名前

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

本文 これなんてどうでしょう？ 例えばメモ帳の場合 アプリ起動時 lngRtn = ShellExecute(Me.hWnd, "open", "C:\WINDOWS\notepad.exe", vbNullChar, vbNullChar, SW_SHOWNORMAL) lngWindow = FindWindow(vbNullString, "無題 - メモ帳") アプリ終了時 if lngWindow<>0 then Call PostMessage(lngWindow , WM_QUIT, 0, 0) end if 動的にキャプションが変わる場合は エクセルの場合 "Microsoft Excel"のように 起動時にそのハンドルを取得すれば いいのではないでしょうか