БОЛЬШОЙ FAQ ПО DELPHI



Как определить количество заданий на печать

Автор: Олег Кулабухов

Windows передает WM_SPOOLERSTATUS каждый раз, когда добавляется или удаляется задание на печать. В примере мы попытаемся перехватывать это сообщение.


 type
   TForm1 = class(TForm)
     Label1: TLabel;
   private
     { Private declarations }
     procedure WM_SpoolerStatus(var Msg: TWMSPOOLERSTATUS);
       message WM_SPOOLERSTATUS;
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.WM_SpoolerStatus(var Msg: TWMSPOOLERSTATUS);
 begin
   Lable1.Caption := IntToStr(msg.JobsLeft) +
     ' Jobs currenly in spooler';
   msg.Result := 0;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ