Delphi CreateProcess 명령에서 반환 된 문자열에 액세스 할 수 있습니까?

Question

Win32를 사용하고 있습니다 CreateProcess 기능 외부 실행 파일을 호출 할 수 있습니다. 실행 파일은 문자열을 반환합니다.

실행 파일을 호출 한 후 반환 된 문자열을 캡처하고 심문 할 수있는 방법이 있습니까? 실패하면 실행 파일의 파일에 문자열을 작성하고 통화가 끝난 후 호출 프로그램에서 읽어야 할 수도 있습니다. 그래도 절름발이 보입니다.

Answer 1

제다이 코드 라이브러리 프로세스를 실행하고 입력 및 출력 파일을 제공하는 기능이 포함 된 기능을 포함합니다. 필요한 입력 (있는 경우)을 입력 파일에 넣고 출력 파일 (프로세스 완료 후)에서 프로세스 출력 (있는 경우)을 읽을 수 있습니다.

이것이 이것이 어떻게 구현 되는가입니다 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, 그런 다음 읽고 평가할 수 있습니다.

또는 설명 된 방법을 시도 할 수 있습니다 이 스레드: 스폰 된 프로세스에서 출력을위한 파이프를 만들고 읽으십시오. Post Number 7에는 C ++에서 관련 Winapi 기능을 사용하는 방법에 대한 소스 예제가 있으며, 이는 Delphi로 쉽게 번역해야합니다.

Answer 3

실행 파일은 어떻습니까 문자열을 반환하십시오? 실행 파일이 반환 할 수 있다는 것을 가장 많이 알고있는 것은 숫자, 종료 코드입니다.

Answer 4

공유 메모리를 사용하여 두 응용 프로그램간에 통신 할 수 있습니다.

Win32 CreateEfilemapping 함수를 사용하고 Mutx를 사용하여 메모리 매핑 된 파일에 호출을 동기화 할 수 있습니다.

다음 코드는 파일을 만듭니다.

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);

다음 코드는 Mapfile을 닫습니다

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