Delphi CreateProcess 명령에서 반환 된 문자열에 액세스 할 수 있습니까?
-
19-08-2019 - |
문제
Win32를 사용하고 있습니다 CreateProcess
기능 외부 실행 파일을 호출 할 수 있습니다. 실행 파일은 문자열을 반환합니다.
실행 파일을 호출 한 후 반환 된 문자열을 캡처하고 심문 할 수있는 방법이 있습니까? 실패하면 실행 파일의 파일에 문자열을 작성하고 통화가 끝난 후 호출 프로그램에서 읽어야 할 수도 있습니다. 그래도 절름발이 보입니다.
해결책
제다이 코드 라이브러리 프로세스를 실행하고 입력 및 출력 파일을 제공하는 기능이 포함 된 기능을 포함합니다. 필요한 입력 (있는 경우)을 입력 파일에 넣고 출력 파일 (프로세스 완료 후)에서 프로세스 출력 (있는 경우)을 읽을 수 있습니다.
이것이 이것이 어떻게 구현 되는가입니다 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;
다른 팁
EXE가 표준 출력에 쓰는 것을 캡처하고 싶다고 가정하면 시작할 수 있습니다.
yourprog.exe > results.txt
이것은 출력을 작성합니다 results.txt
, 그런 다음 읽고 평가할 수 있습니다.
또는 설명 된 방법을 시도 할 수 있습니다 이 스레드: 스폰 된 프로세스에서 출력을위한 파이프를 만들고 읽으십시오. Post Number 7에는 C ++에서 관련 Winapi 기능을 사용하는 방법에 대한 소스 예제가 있으며, 이는 Delphi로 쉽게 번역해야합니다.
실행 파일은 어떻습니까 문자열을 반환하십시오? 실행 파일이 반환 할 수 있다는 것을 가장 많이 알고있는 것은 숫자, 종료 코드입니다.
공유 메모리를 사용하여 두 응용 프로그램간에 통신 할 수 있습니다.
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);