Fórum Erro ao executar shellExecute Windows #585834

 pdftk arquivo1.pdf arquivo2.pdf output arquivomerge.pdf 

 function ShellExecute_AndWait(FileName: string; Params: string): bool;
  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();
      exInfo.lpVerb := 'open';
      exInfo.lpParameters := PChar(Params);
      lpFile := PChar(FileName);
      nShow := SW_SHOWMINNOACTIVE;
    end;
    if ShellExecuteEx(@exInfo) then
      Ph := exInfo.hProcess
    else
    begin
      ShowMessage(SysErrorMessage(GetLastError));
      Result := true;
      exit;
    end;
    while WaitForSingleObject(exInfo.hProcess, 50) <> WAIT_OBJECT_0 do
      Application.ProcessMessages;
    CloseHandle(Ph);
    Result := true;
  end;