掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
起動時間 (ID：45166)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のように、待つ処理を分けてみたらどうなるでしょうか？ { Private 宣言 } PI : TProcessInformation; ・・・・・ procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled := False; Timer1.Interval := 100; end; procedure TForm1.Button1Click(Sender: TObject); const exeName = 'C:\EXE\\Auth.exe'; var SI: TStartupInfo; begin GetStartupInfo(SI); if CreateProcess(PChar(exeName), nil, nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI) then begin Timer1.Enabled := True; end else begin ShowMessage(SysErrorMessage(GetLastError)); end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; while WaitForSingleObject(PI.hProcess, 0) = WAIT_TIMEOUT do Application.ProcessMessages; CloseHandle(PI.hProcess); showmessage('Auth.exe 終了'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.