Delphi FAQ: 他のプログラムの起動、終了待ち(1.0)

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
他のプログラムの起動方法が知りたい。 WinExecで起動したプログラムの終了待ちを行ないたい。

[Ａ]

WinExecと、GetModuleUsageを使います。

例を参照してください。

[例]


Var
   MH : THandle;
Begin
   MH := WinExec('NotePad.Exe', SW_SHOWNORMAL);
   If MH < 32 Then
      Raise Exception.Create('Exec Error ' + IntToStr(MH));
   While GetModuleUsage(MH) <> 0 Do
     Application.ProcessMessages;
{このループが抜けたら、起動したプログラムが終了している}
End;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。