Вопрос: Существует ли способ для определение числа заданий spoolerа печати?
Ответ: Spoolerа печати Windows посылает WM_SPOOLERSTATUS каждый раз при добавлении и удалении заданий в очереди печати. В следующем примере показано как перехватить это сообщение
Пример:
typeTForm1 = 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
;