掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
実行結果を取得するには？ (ID:19660)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のようなプログラムを作成し、実行してみました。 ------------------------ SetCurrentDir('D:\'); Result := ProgramExecute('C:\Program Files\Borland\CBuilder6\Bin\make /? > Report.txt'); ------------------------ で呼び出したのですが Report.txt が作成されません。 Result は 0 で結果的には成功しているようです。 何か処理が必要なのでしょうか? function ProgramExecute(CmdStr: String): Longword; var SI: TStartupInfo; PI: TProcessInformation; begin with SI do begin FillChar(SI, SizeOf(SI), 0); Cb := SizeOf(SI); dwFlags := STARTF_USESHOWWINDOW; wShowWindow := SW_HIDE; end; Result := WAIT_FAILED; if CreateProcess(Nil, PChar(CmdStr), Nil, Nil, False, 0, Nil, Nil, SI, PI) then begin WaitForSingleObject(PI.hProcess, INFINITE); GetExitCodeProcess(PI.hProcess, Result); CloseHandle(PI.hProcess); end else begin Result := $FFFFFFFF; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.