| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перехват печати в Windows [D5, D6, WinXP]

[MHT]Tyz ©   (2005-07-19 03:56:00) 

Всем доброго времени суток. Появилась у меня проблема: есть прога, висящая в бэкграунде, и вот эта самая прога должна определить момент начала печати какого-либо документа (приложение, печатающее его, значения не имеет) и узнать, сколько страниц было отправлено на печать. Буду веьма благодарен за помощь в решении данной проблемы.

---

БарЛог   (2005-07-19 08:42:00) [1]

А чего ваяещь? Счетчик потраченых листов?

---

dmitry501   (2005-07-19 04:25:00) [2]

// Автор: Song

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;


---

Наверх