|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите с принтером
Можно ли отследить сколько страниц отпечатано принтером (или хотя-бы отправлено на печать).
|
#2
|
|||
|
|||
Отследить задания на печать довольно легко. Для этого создадим процедуру WM_SpoolerStatus (var Msg: TWMSPOOLERSTATUS), и объявим message 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; Последний раз редактировалось Admin, 25.05.2009 в 10:37. |