如何在CreateProcess实例化的命令中使用或扩展环境变量？

下面的代码利用CreateProcess使用环境变量运行命令。在这里，它尝试运行notepad %APPDATA%\test.txt.

如果我跑notepad %APPDATA%\test.txt直接在Windows' CMD, %APPDATA% 将被扩展。但是，执行时无法扩展环境变量CreateProcess。您能帮忙评论一下原因和解决方法吗？任何评论将不胜感激！

    program TestConsole2;

    {$APPTYPE CONSOLE}

    uses
      Windows, SysUtils;

    var
      I: Integer;
      ProgramName: String;
      StartInfo  : TStartupInfo;
      ProcInfo   : TProcessInformation;
      CreateOK   : Boolean;
    begin
      try

        FillChar(StartInfo, SizeOf(StartInfo), #0);
        FillChar(ProcInfo, SizeOf(ProcInfo), #0);
        StartInfo.cb := SizeOf(StartInfo);

        ProgramName := 'NOTEPAD %APPDATA%\test.txt';
        CreateOK := CreateProcess(
          nil, PChar(ProgramName), nil, nil, True, 0, nil, nil, StartInfo, ProcInfo);
        if CreateOK then WaitForSingleObject(ProcInfo.hProcess, INFINITE);

        Readln(ProgramName);

      except
        on E: Exception do
          Writeln(E.ClassName, ': ', E.Message);
      end;
    end.

Call 展开环境字符串扩展环境变量。

当您使用 cmd.exe 时，它​​会为您执行扩展。 CreateProcess 不会，因此您需要在调用 CreateProcess 之前执行此操作。或者，您可以使用 ShellExecute 来扩展环境字符串。

您当前的代码不符合 CreateProcess 的约定。第二个参数必须是指向可修改内存的指针。如果您使用 ANSI API，则可以避免这种情况，但当针对 Unicode 时，您的代码可能会失败。传递指向可修改内存的指针而不是指向文字的指针。如果您添加了扩展环境变量的调用，那么您最终会得到一个可修改的字符串。

最后，看起来您只是想打开一个文本文件。为什么强制用户在记事本中查看它？我的文本文件的默认编辑器不是记事本。我讨厌任何强迫我使用记事本的程序。相反，让 shell 在用户首选的编辑器中打开文件。调用 ShellExecute，使用“open”作为动词，并将文本文件名作为文件名参数传递。另一方面，也许您知道这一切，而这只是示例代码。如果是这样，请忽略此建议。