Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.20;
Скачать: CL | DM;

Вниз

WinSpool.OpenPrinter   Найти похожие ветки 

 
--olg-   (2003-11-06 11:15) [0]

Как открыть принтер функцией WinSpool.OpenPrinter с правами PRINTER_ALL_ACCESS
в Helpe не все понятно.


 
--olg-   (2003-11-06 12:49) [1]

Я набросал такой код
OpenPrinter возвращает ошибку 1804
Неверные параметры передаются в OpenPrinter
А почемe не пойму?
var
Prt : TPrinter;
HPrt: THandle;
Device, Driver, Port: array[0..255] of Char;
hDevMode: THandle;
b,Level : DWORD;
PPrintInfo : PPrinterInfo2;
PPrintInfo6 : PPrinterInfo6; //for NT
PrinterStruct: PPrinterDefaults;
begin
Prt := Printer;
Prt.GetPrinter(Device, Driver, Port, hDevmode);
PrinterStruct.pDevMode.dmSize := WinSpool.DeviceCapabilities
(Device, Port, DC_Size, nil, nil);
PrinterStruct.DesiredAccess := PRINTER_ALL_ACCESS ;
if not OpenPrinter(Device,HPrt,PrinterStruct) then ShowMessage("Open printer "+IntTostr(GetLastError));
if HPrt = 0 then
raise(Exception.Create("



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

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

Наверх




Память: 0.46 MB
Время: 0.037 c
4-63455
Дубинин Алексей
2003-11-16 21:27
2004.01.20
ClipBoard


1-63083
WELLiON
2004-01-06 16:13
2004.01.20
Timer и оставшееся время


14-63377
Билл Гейц
2003-12-29 14:10
2004.01.20
Инсталлятор NSIS


14-63401
ИМХО
2003-12-27 20:02
2004.01.20
Футбол. Англия. Премьер-Лига. Трудоголики.


14-63405
Undert
2003-12-27 19:38
2004.01.20
Как впихать wav или лучше MP3 в ресурсы Delphi и застваить чем-ни