当我使用 ShellExecute 时，为什么我的命令没有像我预期的那样运行？

Question

我正在尝试使用命令行实用程序（它适用于来自 dos 命令行的测试）从我的 Delphi 代码将 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

ShellExecute 不会等待被调用的程序完成运行。您可能过早检查该文件。该文件尚未创建。

运行程序并等待其终止，然后再检查输出文件。 ShellExecute 没有返回足够的信息来执行此操作，因此您应该尝试 CreateProcess。有几个例子说明了如何做到这一点。试试这个：

如何等待命令行程序要完成吗？

Answer 2

事实证明，将填充路径添加到可执行文件使其工作得很好

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;

编辑：一些代码清理有助于尽早发现错误，特别是在测试概念证明时。