掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム (ID：45154)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
deldelさん、早速のお返事ありがとうございます。 以下のようにコーディングして、試させていただきましたが 変化はありませんでした。 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; brgin btnEnter.Enabled := False; Application.ProcessMessages; try //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); finally Application.ProcessMessages; //必須 btnEnter.Enabled := True; end; end; なにが、おかしいのかな・・・？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.