Текущий архив: 2007.07.08;
Скачать: CL | DM;
Вниз
перехват данных, посылаемых на печать другой программой... Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2007.07.08;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.014 c
