Узнать версию драйвера принтераDelphi , ОС и Железо , Принтеры и ПечатьУзнать версию драйвера принтера
Оформил: DeeCo uses Printers, Winspool; procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.Assign(Printer.Printers); end; procedure TForm1.ComboBox1Change(Sender: TObject); var hPrinter: THandle; PrtName: string; DriverInfo: PDriverInfo2; dwNeeded: DWORD; begin Memo1.Clear; PrtName := Combobox1.Text; OpenPrinter(PChar(PrtName), hPrinter, nil); GetPrinterDriver(hPrinter, nil, 2, DriverInfo, 0, dwNeeded); GetMem(DriverInfo, dwNeeded); if GetPrinterDriver(hPrinter, nil, 2, DriverInfo, dwNeeded, dwNeeded) then begin // Add infos to Memo1 Memo1.Lines.Add('Version: ' + IntToStr(DriverInfo.cVersion)); Memo1.Lines.Add(StrPas(DriverInfo.pName)); Memo1.Lines.Add(StrPas(DriverInfo.pEnvironment)); Memo1.Lines.Add(StrPas(DriverInfo.pDriverPath)); Memo1.Lines.Add(StrPas(DriverInfo.pDataFile)); Memo1.Lines.Add(StrPas(DriverInfo.pConfigFile)); end else Memo1.Lines.Add('No Info needed = ' + IntToStr(dwNeeded)); ClosePrinter(hPrinter); FreeMem(DriverInfo); end; Статья Узнать версию драйвера принтера раздела ОС и Железо Принтеры и Печать может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Принтеры и Печать ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |