Pegar impressões
Gostaria de saber como faço pra pegar as impressões que um usuario esta enviando para a impressora ???
Bruno Ferreira
Curtidas 0
Respostas
Leonardo Xavier
20/10/2010
Tente assim:
[CODE]
type TyourForm = class(TForm) private { Private declarations } procedure WMSpoolerStatus(var Msg: TWMSpoolerStatus); message WM_SPOOLERSTATUS; public { Public declarations } end; implementation {$R *.DFM} procedure TSeuformulario.WMSpoolerStatus(var Msg: TWMSpoolerStatus); begin ShowMessage('Agora no Sool você tem: ' + IntToStr(msg.JobsLeft) + ' impressões'; msg.Result := 0; end;
[\CODE]
[CODE]
type TyourForm = class(TForm) private { Private declarations } procedure WMSpoolerStatus(var Msg: TWMSpoolerStatus); message WM_SPOOLERSTATUS; public { Public declarations } end; implementation {$R *.DFM} procedure TSeuformulario.WMSpoolerStatus(var Msg: TWMSpoolerStatus); begin ShowMessage('Agora no Sool você tem: ' + IntToStr(msg.JobsLeft) + ' impressões'; msg.Result := 0; end;
[\CODE]
GOSTEI 0