在 Delphi 2010 中读取 ShellExecute() 的输出文件？

Question

我使用 ShellExecute 命令运行一个 exe 文件，该文件获取一个输入文本文件并返回一个输出文本文件。我是这样写的：

ShellExecute(mainFormHandle, 'open', 'Test.exe',
    'input.txt output.txt', nil, sw_shownormal);

//Read the output file...
S_List.LoadFromFile('output.txt');
Writeln(S_List[0])

我在运行此命令之前提供了 input.txt 文件。在我的程序的每次运行中，输入文件都会发生变化，输出文件也会发生变化。

问题是这样的：我看不到输出文件的变化！控制台中写入的行来自上一个文件，而不是新更改的文件。我的意思是，资源管理器中的文件已更改，但我读取的文件仍然是旧文件。

这似乎有点奇怪，但我想知道在阅读之前有没有办法刷新输出文件？还是我在这里遗漏了什么？

提前致谢。

Answer 1

ShellExecute 不会等待您的程序完成工作。这就是发生的事情：

• Test.exe 启动
• 你在 output.txt 中读到了
• Test.exe 写入新的 output.txt

试试这样的：

var
  StartUpInfo : TStartUpInfo;
  ProcessInfo : TProcessInformation;
  CreationFlags : Cardinal;
begin
  FillChar(StartUpInfo, SizeOf(TStartupInfo),0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  CreationFlags := Normal_Priority_Class;

  if CreateProcess(nil, 'test.exe input.txt output.txt',
               nil, nil, False, CreationFlags,
               nil, 0, StartupInfo, ProcessInfo) then
  begin
    WaitforSingleObject(ProcessInfo.HProcess, INFINITE);
    CloseHandle(ProcessInfo.HProcess);

    //Read the output file...
    S_List.LoadFromFile('output.txt');
  end;

使用WaitForSingleObject，您可以等到进程完成工作。