我可以访问从一个Delphi CreateProcess的命令返回的字符串？

Question

我使用Win32 CreateProcess函数来执行到外部的可执行的呼叫。可执行返回一个字符串。

有没有一种方法，我可以捕获并调用执行后询问返回的字符串？如果做不到这一点，我可能会写出来的字符串中的可执行文件和读取，在调用程序调用完成后。这似乎跛虽然。

Answer 1

绝代码库包含其中运行的进程和函数CreateDOSProcessRedirected为它提供输入和输出文件。你可以把所需的输入（如果有的话）到输入文件和读取过程输出（如果有的话）从输出的文件（过程完成之后）。

这是如何在 JCL 被实现：

function CreateDOSProcessRedirected(const CommandLine, InputFile, OutputFile: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  SecAtrrs: TSecurityAttributes;
  hInputFile, hOutputFile: THandle;
begin
  Result := False;
  hInputFile := CreateFile(PChar(InputFile), GENERIC_READ, FILE_SHARE_READ,
    CreateInheritable(SecAtrrs), OPEN_EXISTING, FILE_ATTRIBUTE_TEMPORARY, 0);
  if hInputFile <> INVALID_HANDLE_VALUE then
  begin
    hOutputFile := CreateFile(PChar(OutPutFile), GENERIC_READ or GENERIC_WRITE,
      FILE_SHARE_READ, CreateInheritable(SecAtrrs), CREATE_ALWAYS,
      FILE_ATTRIBUTE_TEMPORARY, 0);
    if hOutputFile <> INVALID_HANDLE_VALUE then
    begin
      FillChar(StartupInfo, SizeOf(StartupInfo), #0);
      StartupInfo.cb := SizeOf(StartupInfo);
      StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      StartupInfo.wShowWindow := SW_HIDE;
      StartupInfo.hStdOutput := hOutputFile;
      StartupInfo.hStdInput := hInputFile;
      Result := CreateProcess(nil, PChar(CommandLine), nil, nil, True,
        CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo,
        ProcessInfo);
      if Result then
      begin
        WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
        CloseHandle(ProcessInfo.hProcess);
        CloseHandle(ProcessInfo.hThread);
      end;
      CloseHandle(hOutputFile);
    end;
    CloseHandle(hInputFile);
  end;
end;

Answer 2

假设你想要营造的exe文件被写入标准输出， 你可以启动它

yourprog.exe > results.txt

此将输出写入到results.txt，然后可以读取和评估。

或者，你可以尝试的方法这个线程解释：创建一个管道从您的催生过程的输出并从中读取。交数7具有关于如何在C ++中使用的相关函数WINAPI源例如，应该很容易转化为德尔福。

Answer 3

如何可执行的返回一个字符串的？最我知道可执行可以返回只是一个数字，退出代码。

Answer 4

您可以使用共享存储器中的两个应用程序之间进行通信。

您可以使用Win32 CreateFileMapping函数，也许使用互斥的内存映射文件的调用同步。

下面的代码创建该文件。

var
  fMapping : THandle;
  pMapData : Pointer;

fMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE,
             0, MAPFILESIZE, pchar('MAP NAME GOES HERE'));

PMapData := MapViewOfFile(fMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0);

下面的代码关闭映射文件

if PMapData <> nil then
  UnMapViewOfFile(PMapData);
if fMapping <> 0 then
  CloseHandle(fMapping);