掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TProcessInformation (ID:21420)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
別EXEを起動させようと書籍のサンプルプログラムをコピーしたんですが、 コンパイルすると TProcessInformation; で未定義エラーが出てしまいます。 何が原因でしょうか？ usesには、ShellAPIを追加してます。 procedure TFormWaitEnd.ButtonCreateProClick(Sender: TObject); var ExeSuccess: Boolean; SI: TStartupInfo; PI: TProcessInformation;←ココで未定義エラー begin GetStartupInfo(SI); ExeSuccess := CreateProcess(nil, PChar(Edit1.Text), nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI); if not ExeSuccess then begin ShowMessage(Edit1.Text + ' を起動できませんでした。'); Abort; end; try // 呼び出し元のフォームを無効にする FormWaitEnd.Enabled := False; // WaitForSingleObjectで待機する while WaitForSingleObject(PI.hProcess, 0) = WAIT_TIMEOUT do Application.ProcessMessages; ShowMessage('終了しました。'); finally FormWaitEnd.Enabled := True; end; end; ちなみに、サンプルプログラムをコンパイルすると実行できました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.