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

Вниз

Работа с принтерами   Найти похожие ветки 

 
PEKAHT   (2005-01-10 10:31) [0]

Подскажите пжлст, как узнать какие принтеры есть в системе...
ну всякую информацию про них, про настройки ихние
как это все хранить у себя


 
olookin ©   (2005-01-10 10:36) [1]

Вот эта функция позволяет мне получать список установленных в системе принтеров:

function GetPrinters: TStringList;
var i: integer;
   Reg: TRegistry;
   lst,lstA: TStringList;
   a,s: AnsiString;
   info: OSVERSIONINFO;
begin
 lst:=TStringList.Create; lstA:=TStringList.Create;
 info.dwOSVersionInfoSize:=SizeOf(OSVERSIONINFO); GetVersionEx(info);
 if info.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
 Reg:=TRegistry.Create;
 with Reg do begin RootKey:=HKEY_CURRENT_USER;
 s:="\Software\Microsoft\Windows NT\CurrentVersion\Devices";
 if OpenKeyReadOnly(s) then begin GetValueNames(lst);
 for i:=0 to lst.Count-1 do begin a:=ReadString(lst.Strings[i]);
 a:=StringReplace(a,"winspool,","",[rfReplaceAll]);
 lstA.Add(lst.Strings[i]+" ("+a+")"); end; end; Free; end; end;
 if info.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then
 lstA.Assign(Printer.Printers); lst.Free; GetPrinters:=lstA;
end;

Полагаю, что если для NT-системы копать реестр дальше, то можно получить и все настройки.


 
KSergey ©   (2005-01-10 11:14) [2]

Для начала можно посмотреть Printer.Printers


 
www.Vlad.uk   (2005-01-10 11:57) [3]

Пуск>принтеры и факсы



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

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

Наверх




Память: 0.44 MB
Время: 0.038 c
9-1100879965
FRick
2004-11-19 18:59
2005.02.20
XM в GLScene


9-1099952680
Кто---то
2004-11-09 01:24
2005.02.20
Как в гонках управляются вражеские машины ?


1-1107359590
SMT
2005-02-02 18:53
2005.02.20
Поддержка Unicode в Delphi 7


3-1106027922
dark
2005-01-18 08:58
2005.02.20
Мастера Дельфи как избавиться от ошибки Duplicate resource(s)???


11-1091695983
Unknown Mystic
2004-08-05 12:53
2005.02.20
Небольшие вопросы TIniFile, TKOLListView.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский