Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c