windows - Delphi:创建和读取文本文件导致 I/O 32 错误。应该使用 sleep 来防止这种情况吗？

Question

我目前正在开发一个需要能够报告 Windows 是否已激活的程序。

function TSoftwareReport.getLicenceInfo : String;
var
  Activated : String;
  LicenceFile : TextFile;
begin
  // redirect command output to txt file
  ShellExecute(0,nil,'cmd.exe', '/C cscript %windir%\system32\slmgr.vbs/xpr > C:\Activated.txt', nil, SW_HIDE);
  //Read the file
  Sleep(1000);
  AssignFile(LicenceFile, 'C:\Activated.txt');
  Reset(LicenceFile);
  while not Eof(LicenceFile) do
  begin
    ReadLn(LicenceFile,Activated);
    if AnsiContainsText(Activated, 'Permanently') then
    begin
      Activated := 'Permanent';
      Break;
    end;
  end;
  //cleanup file
  CloseFile(LicenceFile);
  DelDir('C:\Activated.txt');
  Result := Activated;
end;

目前我正在使用 ShellExecute 并将输出重定向到一个文本文件，然后我想阅读该文件以查明 Windows 是否已被激活。

我遇到的问题是，当我执行 ShellExecute 行然后执行 AssignFile 行时，出现 I/O 32 错误。我怀疑这是由于 ShellExecute 在我尝试使用“AssignFile”访问文件之前没有关闭文件。这就是为什么我现在有 Sleep() 行。问题是我不知道我应该睡多久，因为不同机器的性能会有所不同。

我尝试编写代码来尝试运行 AssignFile 行，如果失败，则 sleep() 并重试，但现在我故意抛出异常。整件事感觉很老套而且写得很糟糕。我已经对必须将 shellexecute 的输出重定向到文本文件感到难过。

所以问题是，我应该使用 sleep 吗？如果是，我该如何决定 sleep 多长时间？我应该使用替代品吗？

Answer 1

Should I be using sleep?

没有。

Should I be using an alternative?

是的。使用等待函数进行阻塞，直到您创建的进程终止。然后读取输出文件。

有几个选项会影响您的设计选择。

为了等待，你需要获得一个进程句柄。您可以使用 ShellExecuteEx 或 CreateProcess 来做到这一点。但不是 ShellExecute。

如果您希望重定向输出，并且不想自己编写重定向代码，那么您需要继续使用 cmd.exe 并获取它来执行重定向。或者，您可以使用 CreateProcess 并提供文件句柄或管道句柄作为新进程标准输出句柄。

如果我是你，我会避免创建一个仅用于 transient 输出的文件。这就是管道的用途。创建一个管道并将其写入端作为新进程的标准输出提供给新进程。从管道的读取端读取内容。这样你就可以避免将文件喷射到你的文件系统中。更重要的是，它可以让您避免生成您不需要的 cmd.exe 进程。

最后一点是您在调用 ShellExecute 时不检查错误。诚然，ShellExecute 不会很好地报告错误，但您必须学会在调用 API 函数时检查错误。如果函数失败，并且您不检查错误，您怎么能指望诊断出了什么问题？