перехват данных, посылаемых на печать другой программой...

← →
Nat (2007-01-25 17:58) [0]

Может подскажет кто... пишу прогу по перехвату отправления чужими программами отправки на печать документов... но не знаю как перехватить количество копий отправленных на печать документов и размеры документа, отправленного на печать...
Остальное уже умею, использую JOB_INFO_1_ARRAY
Буду очень благодарен...
Для WinXP

← →
TRUNK © (2007-01-26 12:32) [1]

Может этот код поможет:
var PrinterHandle: THandle; DeviceName: PChar; Buf: Pointer; BufSize: Integer; Orientation: SmallInt; PaperSize: SmallInt; Copies: SmallInt; PrintQuality: SmallInt; procedure GetParams; begin BufSize := DocumentProperties(0,PrinterHandle,DeviceName,nil,nil,0); Buf := nil; ReallocMem(Buf,BufSize); DocumentProperties(0,PrinterHandle,DeviceName,Buf,nil,DM_OUT_BUFFER); Orientation := PDeviceMode(Buf)^.dmOrientation; PaperSize := PDeviceMode(Buf)^.dmPaperSize; Copies := PDeviceMode(Buf)^.dmCopies; PrintQuality := PDeviceMode(Buf)^.dmPrintQuality; ReallocMem(Buf,0); end;

перехват данных, посылаемых на печать другой программой... Найти похожие ветки