掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
起動時間 (ID:45158)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんばんは。 先程、外部プログラムのフォームを最表面・・・について 質問していました「やまたか」です。 まだ、解決していないんですが、 もうひとつ、疑問点が発生しました。 先程の外部呼び出しコードを実行すると、 外部プログラムが表示されるまでに 約30秒程度かかります。 どこかに設定できるパラメーターがあるような気がするのですが ネットで色々しらべましたが、わかりませんでした。 教えていただけませんでしょうか。 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.