Fórum HTML para PDF #375810

class function FactureUtils.ShellExecuteAndWait(const Operacao, NomeArquivo, Parametros, Diretorio: string; TipoExibicao: Word; Aguardar: Boolean; Landscape: Boolean): Longint;
const
  MSG_CONVERSOR = 'Não foi possível converter o arquivo para PDF pois o conversor ''wkhtmltopdf.exe'' não foi encontrado na pasta do sistema.';
var
  OperacaoFoiExecutada: Boolean;
  Info: TShellExecuteInfo;
  parametrosTemp: string;
begin
  if not FileExists(NomeArquivo) then raise Exception.Create(MSG_CONVERSOR);
  FillChar(Info, SizeOf(Info), Chr(0));
  Info.cbSize := SizeOf(Info);
  Info.fMask  := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar(Operacao);
  Info.lpFile := PChar(NomeArquivo);
  if Landscape then parametrosTemp := ' -O landscape ' + Parametros else parametrosTemp := Parametros;
  Info.lpParameters    := PChar(parametrosTemp);
  Info.lpDirectory     := PChar(Diretorio);
  Info.nShow           := TipoExibicao;
  OperacaoFoiExecutada := Boolean(ShellExecuteEx(@Info));
  if OperacaoFoiExecutada then begin
    if Aguardar then begin
      while WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT do Application.ProcessMessages;
      OperacaoFoiExecutada := GetExitCodeProcess(Info.hProcess, DWORD(Result));
    end
    else begin
      Result := 0;
    end;
  end;
  if not OperacaoFoiExecutada then begin
    Result := -1;
    raise Exception.Create(MSG_CONVERSOR);
  end;
end;