ShellExecuteを使用すると、私の期待どおりのコマンドが実行されないのはなぜですか？

Question

私はDelphiコードからコマンドラインユーティリティ（これはdosコマンドラインのテストで動作します）を使用してテキストにPDFをダンプしようとしています。ここで

は私のコード

if fileexists(ExtractFilePath(Application.ExeName) + 'pdftotext.exe') then 
begin 
    ShellExecute(H,'open', 'pdftotext.exe', PWideChar(fFileName), nil, SW_SHOWNORMAL); 
    if fileExists(changeFileExt(fFileName, '.txt')) then 
    Lines.LoadFromFile(changeFileExt(fFileName, '.txt')) 
    else 
    ShowMessage('File Not found'); 
end; 

ある コードにブレークポイントを配置してステッピングすると、それは

if fileExists(changeFileExt(fFileName, '.txt')) then 

ラインにしますが、falseを返し、そうのShellExecuteは呼ばれていましたが、何のファイルがなかった

これまでにダンプされた

どうしたのですか？

Answer 1

それはexecuatbleにフィルパスを追加すると、それだけで罰金

uses 
    Forms, ShellAPI, SysConst, SysUtils; 

procedure Pdf2Text(const fFileName: string; const Lines: TStrings); 
var 
    H: HWND; 
    PdfToTextPathName: string; 
    ReturnValue: Integer; 
    TxtFileName: string; 
begin 
    H := 0; 
    PdfToTextPathName := ExtractFilePath(Application.ExeName) + 'pdftotext.exe'; // full path 
    if FileExists(PdfToTextPathName) then 
    begin 
    ReturnValue := ShellExecute(0,'open', PWideChar(PdfToTextPathName), PWideChar(fFileName), nil, SW_SHOWNORMAL); 
    if ReturnValue <= 32 then 
     RaiseLastOsError(); 
    // note: the code below this line will crash when pdftotext.exe does not finish soon enough; you should actually wait for pdftotext.exe completion 
    TxtFileName := ChangeFileExt(fFileName, '.txt'); 
    if FileExists(TxtFileName) then 
     Lines.LoadFromFile(TxtFileName) 
    else 
     raise EFileNotFoundException.CreateRes(@SFileNotFound); 
    end; 
end; 

編集作業作られていること、判明：キャッチする大きな時間に役立ついくつかのコードのクリーンアップをエラーの早期発見、特に概念実証のテストに役立ちます。

Answer 2

ShellExecuteは、呼び出されたプログラムの実行が完了するまで待機しません。あなたはおそらくあまりにも早くファイルをチェックしているでしょう。ファイルはまだ作成されていません。

出力ファイルを確認する前に、プログラムを実行して終了するまで待ちます。 ShellExecuteはそれを行うのに十分な情報を返していないので、代わりにCreateProcessを試してください。それを行う方法のいくつかの例があります。これを試してみてください：

How can I wait for a command-line program to finish?