通过Shellexecute（）执行命令行应用程序并获取其返回值

Question

我是我们公司的Delphi开发人员。我们需要一个函数，该函数启动命令行可执行文件并获取其返回值。

我编写的代码以及我在Internet上找到的所有示例，通过createProcess（）进行此操作，但是我的老板拒绝了这一点，并告诉我必须通过Shellexecute有一个解决方案（）。我在Internet上找不到任何示例使用Shellexecute（）。所有人都使用createProcess（）。

以下是我交付给老板的3种方法。他不喜欢shellexecute_andgetReturnvalue（）。它被命名为“ Shellexecute”，但不使用shellexecute（）。

所有这三种方法都可以正常工作。但是第一个不使用Shellexecute（）。而是使用createProcess（）。

因此，是否可以求解/更改shellexecute_andgetReturnValue（）方法，以便它将使用shellexecute（）而不是createprocess（） ？我发现的所有示例，所有示例，都使用createProcess（）。

function ShellExecute_AndGetReturnValue(FileName : string; Params : string = ''; Show : Integer = SW_HIDE; WorkingDir : string = '') : string;
const
  READ_BUFFER_SIZE = 2048;
var
  Security: TSecurityAttributes;
  readableEndOfPipe, writeableEndOfPipe, readableErrorEndOfPipe, writeableErrorEndOfPipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PAnsiChar;
  BytesRead: DWORD;
  AppRunning: DWORD;
  ResultStdOutput : string;
  ResultErrOutput : string;
  lpDirectory : PAnsiChar;
  CmdLine : string;
begin
  Result := '';
  Security.nLength := SizeOf(TSecurityAttributes);
  Security.bInheritHandle := True;
  Security.lpSecurityDescriptor := nil;

  if CreatePipe(readableEndOfPipe, writeableEndOfPipe, @Security, 0) then
  begin
    Buffer := AllocMem(READ_BUFFER_SIZE + 1);
    FillChar(Start, Sizeof(Start), #0);
    FillChar(ProcessInfo, SizeOf(ProcessInfo), #0);

    start.cb := SizeOf(start);
    start.dwFlags := start.dwFlags or STARTF_USESTDHANDLES;
    start.hStdInput := GetStdHandle(STD_INPUT_HANDLE);
    start.hStdOutput := writeableEndOfPipe;

    CreatePipe(readableErrorEndOfPipe, writeableErrorEndOfPipe, @Security, 0);
    start.hStdError := writeableErrorEndOfPipe;
    start.hStdError := writeableEndOfPipe;
    start.dwFlags := start.dwFlags + STARTF_USESHOWWINDOW;
    start.wShowWindow := Show;

    UniqueString(FileName);
    CmdLine := '"' + FileName + '" ' + Params;

    if WorkingDir <> '' then
    begin
      lpDirectory := PAnsiChar(WorkingDir);
    end else
    begin
      lpDirectory := PAnsiChar(ExtractFilePath(FileName));
    end;

    if CreateProcess(nil, PChar(CmdLine), nil, nil, True, NORMAL_PRIORITY_CLASS, nil, lpDirectory, start, ProcessInfo) then
    begin
      repeat
          Apprunning := WaitForSingleObject(ProcessInfo.hProcess, 100);
          Application.ProcessMessages;
      until (Apprunning <> WAIT_TIMEOUT);

      ResultStdOutput := '';
      ResultErrOutput := '';

      //Must Close write Handles before reading (if the console application does not output anything)
      CloseHandle(writeableEndOfPipe);
      CloseHandle(writeableErrorEndOfPipe);

      repeat
        BytesRead := 0;
        ReadFile(readableEndOfPipe, Buffer[0], READ_BUFFER_SIZE, BytesRead, nil);
        Buffer[BytesRead]:= #0;
        OemToAnsi(Buffer,Buffer);
        ResultStdOutput := ResultStdOutput + String(Buffer);
      until (BytesRead < READ_BUFFER_SIZE);

      if start.hStdOutput <> start.hStdError then
      begin
        BytesRead := 0;
        ReadFile(readableErrorEndOfPipe, Buffer[0], READ_BUFFER_SIZE, BytesRead, nil);
        Buffer[BytesRead]:= #0;
        OemToAnsi(Buffer,Buffer);
        ResultErrOutput := ResultErrOutput + String(Buffer);
      end;
    end;

    Result := ResultStdOutput;

    FreeMem(Buffer);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(readableEndOfPipe);
    CloseHandle(readableErrorEndOfPipe);
  end;
end;

procedure ShellExecute_NoWait(FileName : string; Params : string = ''; Action : string = 'open'; Show : Integer = SW_SHOWNORMAL; WorkingDir : string = '');
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    lpVerb := PAnsiChar(Action);
    lpParameters := PChar(Params);
    lpFile := PChar(FileName);
    nShow := Show;
    if WorkingDir <> '' then
    begin
      lpDirectory := PAnsiChar(WorkingDir);
    end else
    begin
      lpDirectory := PAnsiChar(ExtractFilePath(FileName));
    end;
  end;
  if ShellExecuteEx(@exInfo) then
  begin
    Ph := exInfo.HProcess;
    CloseHandle(Ph);
  end;
end;

procedure ShellExecute_AndWait(FileName : string; Params : string = ''; Action : string = 'open'; Show : Integer = SW_SHOWNORMAL; WorkingDir : string = '');
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    lpVerb := PAnsiChar(Action);
    lpParameters := PChar(Params);
    lpFile := PChar(FileName);
    nShow := Show;
    if WorkingDir <> '' then
    begin
      lpDirectory := PAnsiChar(WorkingDir);
    end else
    begin
      lpDirectory := PAnsiChar(ExtractFilePath(FileName));
    end;
  end;
  if ShellExecuteEx(@exInfo) then
  begin
    Ph := exInfo.HProcess;
    while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
    begin
      Application.ProcessMessages;
    end;
    CloseHandle(Ph);
  end;
end;

Answer 1

老板的任务不是完全正确的。问题是Shellexecute的通用解决方案 - 不是启动cmd.exe，此命令启动了一个链接到此类型的文件并启动它的应用程序。因此，要像您想要的那样使其工作 - 它需要大量工作。
还有一件事 - 您需要获得程序的工作结果或程序的控制台输出的结果吗？
这是JCL库中源的修改部分，以返回返回代码：

function PCharOrNil(const S: string): PChar;
begin
  Result := Pointer(S);
end;

// memory initialization
procedure ResetMemory(out P; Size: Longint);
begin
  if Size > 0 then
  begin
    Byte(P) := 0;
    FillChar(P, Size, 0);
  end;
end;

function ShellExecAndWait(const FileName: string; const Parameters: string;
  const Verb: string; CmdShow: Integer; const Directory: string): cardinal;
var
  Sei: TShellExecuteInfo;
  Res: LongBool;
  Msg: tagMSG;
  ShellResult : boolean;
begin
  ResetMemory(Sei, SizeOf(Sei));
  Sei.cbSize := SizeOf(Sei);
  Sei.fMask := SEE_MASK_DOENVSUBST  or SEE_MASK_FLAG_NO_UI  or SEE_MASK_NOCLOSEPROCESS or
    SEE_MASK_FLAG_DDEWAIT or SEE_MASK_NOASYNC;
  Sei.lpFile := PChar(FileName);
  Sei.lpParameters := PCharOrNil(Parameters);
  Sei.lpVerb := PCharOrNil(Verb);
  Sei.nShow := CmdShow;
  Sei.lpDirectory := PCharOrNil(Directory);
  {$TYPEDADDRESS ON}
  ShellResult := ShellExecuteEx(@Sei);
  {$IFNDEF TYPEDADDRESS_ON}
  {$TYPEDADDRESS OFF}
  {$ENDIF ~TYPEDADDRESS_ON}
  if ShellResult then begin
    WaitForInputIdle(Sei.hProcess, INFINITE);

    while WaitForSingleObject(Sei.hProcess, 10) = WAIT_TIMEOUT do
      repeat
        Msg.hwnd := 0;
        Res := PeekMessage(Msg, Sei.Wnd, 0, 0, PM_REMOVE);
        if Res then
        begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
      until not Res;

    if not GetExitCodeProcess(Sei.hProcess, Result) then
      raise Exception.Create('GetExitCodeProcess fail');

    CloseHandle(Sei.hProcess);
  end else begin
    raise Exception.Create('ShellExecuteEx fail');
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  xResult : cardinal;
begin
  xResult := ShellExecAndWait('ping.exe', '', '', 1, '');  //xResult = 1
  xResult := ShellExecAndWait('ping.exe', '8.8.8.8', '', 1, '');  //xResult = 0
end;

Answer 2

如果您需要指定输入/输出管道（要控制stdin和the the Process的Stdout），则不能使用Shellexecute。它根本不支持指定这些。 Shellexecuteex也没有。

因此，如果您必须必须使用Shellexecute，则唯一的选项是Shellexecute命令处理器（CMD.EXE），并问 it 以执行输入和输出的重定向。这将限制您的重定向源，并将目标限制为磁盘上的物理文件，因为这是cmd.exe允许重定向（＆gt; stdout＆lt; stdin）的方式。

Othwewise，您对CreateProcess的方法是前进的道路。您的老板是什么原因必须使用Shellexecute？

如果您不需要重定向支持，则可以使用ShellexeCuteex，然后成功执行后，您可以在Info.hprocess中获取运行过程的句柄（INFO是传递给ShellexeCuteex的TshellexecuteInfo结构） 。

然后可以在getExitCodeProcess中使用此值来确定该过程是否仍在运行，或者是否已终止（因此，您已经检索了“返回值”，如果我正确地理解了您对此表达式的使用，则实际上称为“返回值” - 实际上称为“返回值” exitCode“或 - 在批处理文件中 - “ errorLevel”）。

不完整的代码：

FUNCTION ShellExecuteAndWait(....) : DWORD;
.
.
VAR Info : TShellExecuteInfo;
.
.
Info.fMask:=Info.fMask OR SEE_MASK_NOCLOSEPROCESS;
IF NOT ShellExecuteEx(Info) THEN EXIT($FFFF8000);
IF Info.hProcess=0 THEN EXIT($FFFF0000);
REPEAT
  IF NOT GetExitCodeProcess(Info.hProcess,Result) THEN EXIT($FFFFFFFF)
UNTIL Result<>STILL_ACTIVE
.
.

上面的代码应演示如何做到这一点...