掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム (ID：45150)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして、こんにちは。 今回、メインフォームに貼り付けたボタンを選択すると 外部アプリが実行されるという簡単なプログラムを作っています。 （以下コーディング） procedure TfrmMenu.btnEnterClick(Sender: TObject); const exeName = 'C:\EXE\\Auth.exe'; var SI : TStartupInfo; PI : TProcessInformation; command : String; CSVFILE : TextFile; s : String; SQL1, SQL2, SQL4 : String; flg : Integer; begin //Exe呼び出し command := exeName; GetStartupInfo(SI); if Not CreateProcess(pchar(command), nil, nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI) then Raise Exception.Create('Exec Error' + IntToStr(GetLastError)); //戻りを待つ try Enabled := False; while WaitForSingleObject(PI.hProcess, 0) = WAIT_TIMEOUT do Application.ProcessMessages; finally Enabled := True; end; //ハンドルをクローズ CloseHandle(PI.hProcess); ボタンをシングルクリックすればイメージ通りに外部プログラムが表示されるのですが、 ボタンを間違ってダブルクリックすると、外部プログラムのフォームがメインフォームの裏に隠れてしまいます。 外部プログラムの処理が終わるまで、常に最表面にすることはできますか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.