Текущий архив: 2005.09.04;
Скачать: CL | DM;

Вниз

Перехват печати в Windows   Найти похожие ветки 

← →
[MHT]Tyz ©   (2005-07-19 03:56) [0]

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

---

← →
dmitry501 ©   (2005-07-19 04:25) [1]

// Автор: 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;


---

← →
БарЛог ©   (2005-07-19 08:42) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c