[Alegun]

А можно и так, по drkb

Код:

Var
  exInfo: TShellExecuteInfo;
Begin
  FillChar( exInfo, Sizeof(exInfo), 0 );
  With exInfo Do Begin
    cbSize:= Sizeof( exInfo ); // required!
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd   := Handle;  // forms handle
    lpVerb:= 'paintto';
    lpFile:= Pchar( pdffilename );
    lpParameters := PChar( printernameAndPort );
    nShow := SW_HIDE;
  End;
  If ShellExecuteEx( @exInfo ) Then Begin
     While GetExitCodeProcess( exinfo.hProcess, exitcode )
          and (exitcode = STILL_ACTIVE)
     Do
       Sleep( 500 );
     CloseHandle( exinfo.hProcess );
     DeleteFile( pdffilename );
  End
  Else
    ShowMessage(SysErrorMessage( GetLastError ));