Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Get number of printer's jobs
Windows uses WM_SPOOLERSTATUS, when we add or remove printer's jobs. So, we will hook this message.Implementation of this idea is so:
type
TForm1 = class(TForm)
Label1: TLabel;
private
procedure WM_SpoolerStatus(var Msg: TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
public
end;
...
procedure TForm1.WM_SpoolerStatus(var Msg: TWMSpoolerStatus);
begin
Label1.Caption:=IntToStr(Msg.JobsLeft);
end;
-
More for developers