通过消息获取 打印任务数量

http://www.scalabium.com/faq/dct0047.htm

 

D2007下未测试成功。

If you need detect how many jobs are in the MS Windows print spooler, then you must handle a WM_SPOOLERSTATUS message. When job is added or deleted in the spooler querue, this message will be broadcast.
So you must create a message handler for this message trapping:

type

  TyourForm = class(TForm)

  private

    { Private declarations } procedure WMSpoolerStatus(var Msg: TWMSpoolerStatus);

      message WM_SPOOLERSTATUS;

  public

    { Public declarations } end;



implementation



{$R *.DFM} procedure TyourForm.WMSpoolerStatus(var Msg: TWMSpoolerStatus);

begin

  ShowMessage('Now in the spooler a ' + IntToStr(msg.JobsLeft) + ' jobs';

  msg.Result := 0;

end;