Code:

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 ));

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить