Új hozzászólás Aktív témák

• #1971 D@ni88 addikt

  Új Válasz 2014-01-22 14:21:17 #1971

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  D@ni88

  addikt

  Sziasztok.

  Szeretnék pdf-et nyomtatni delphiből

  ShellExecute(0, 'open', 'acrord32', PChar('/p /h ' + 'c:\proba.PDF'), nil, SW_HIDE);
  DeleteFile('c:\proba.PDF');

  parancs működik debugnál, ha elég időt várok, futásnál mire végigmenne a nyomtatási process, az előtt már törli is a fájlt, így a nyomtatás nem lehetséges.

  A másik irány amin elindultam, hogy megvárjam a win process lefutását, de valamiért nem jön össze (még a fájl megnyitása sem:

  procedure TTest_frm.bCloseClick(Sender: TObject);
  var
  Info: TShellExecuteInfo;
  pInfo: PShellExecuteInfo;
  exitCode: DWord;
  
  begin
  
  {Pointer to Info}
  pInfo := @Info;
  {Fill info}
  with Info do
  begin
  cbSize := SizeOf(Info);
  fMask := SEE_MASK_NOCLOSEPROCESS;
  wnd := Application.Handle;
  lpVerb := 'open';
  lpFile := PChar('acrord32.exe');
  {Parametros al executable}
  {Executable parameters}
  lpParameters := 'c:\proba.PDF';
  lpDirectory := NIL;
  nShow := 0;
  hInstApp := 0;
  
  end;
  {Execute}
  ShellExecuteEx(pInfo);
  
  {Wait to finish}
  repeat
  GetExitCodeProcess(pInfo.hProcess,exitCode);
  Application.ProcessMessages;
  until (exitCode <> WAIT_TIMEOUT);
  end;

  Esetleg valaki tudna segíteni?

Új hozzászólás Aktív témák