如何从 Delphi XE2 ShellExecute 启动 OpenFiles.exe？

Question

我需要从 Delphi XE2 应用程序启动 MS Window 的 OpenFiles.exe 以将当前打开的文件导出到文本文件。正常的 cmd.exe 语法类似于：

Openfiles.exe /query /s 127.0.0.1 /nh >c:\OpenFilesExport.txt

使用以下代码返回成功退出代码但未生成导出文件：

var
  exInfo: TShellExecuteInfo;
  exitcode: DWORD;
begin
  FillChar(exInfo, Sizeof(exInfo), 0);
  with exInfo do
  begin
    cbSize := Sizeof(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    lpVerb := 'open';
    lpFile := Pchar('Openfiles.exe');
    lpParameters := PChar('/query /s 127.0.0.1 /nh >c:\OpenFilesOutput.txt');
    nShow := SW_SHOWNORMAL
  end;
  if ShellExecuteEx(@exInfo) then
  begin
    while GetExitCodeProcess(exInfo.hProcess, exitcode)
      and (exitcode = STILL_ACTIVE) do
      Application.ProcessMessages();

    CloseHandle(exInfo.hProcess);
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));

我还尝试将 cmd.exe 语法放在一个 bat 文件中并从 shellexecute 启动它，它确实会生成文件但没有内容。从资源管理器运行相同的 bat 文件会按预期生成文件。

如何从 ShellExecute 成功启动 Openfiles.exe？

Answer 1

你的问题是重定向，>，只有在你有命令解释器的情况下才有意义。而在你的代码中你没有。你有两个选择：

1. 调用ShellExecuteEx 传递命令解释器来完成这项工作。
2. 使用CreateProcess 执行其他进程，但将句柄作为新进程的标准输出句柄传递给文件。

对于命令解释器选项，您将拥有如下命令行：

cmd /c Openfiles.exe /query /s 127.0.0.1 /nh >c:\OpenFilesExport.txt

代码可能是这样的：

FillChar(exInfo, Sizeof(exInfo), 0);
with exInfo do
begin
  cbSize := Sizeof(exInfo);
  fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
  lpFile := 'cmd.exe';
  lpParameters := '/c Openfiles.exe /query /s 127.0.0.1 /nh >c:\OpenFilesExport.txt';
  nShow := SW_SHOWNORMAL;
end;

对于CreateProcess 选项，您需要通过调用CreateFile 创建文件，并将该句柄作为新进程的标准输出传递。您需要确保文件句柄是可继承的。最后，您需要等待该过程才能关闭文件句柄。

关于您当前的代码，您的等待不是很愉快。这是一个不必要地消耗 CPU 的繁忙等待。您应该在进程句柄上使用阻塞等待。