Delphi-Help

Главная Статьи Принтеры и Печать Получаем список установленных принтеров

Получаем список установленных принтеров

Оцените материал
(0 голосов)


Узнать перечень принтеров, установленных на нашем компьютере довольно просто. Для начала поместим на форму компоненты TMemo и TButton. В Uses необходимо включить модуль Printers. Далее в обработчике событий OnClick компонента TButton запишем следующее:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Assign(Printer.Printers);
end;

Также есть другой способ с использованием модуля Registry (добавим его в раздел Uses). Поместим на форму компоненты TListBox и TButton. В обработчке OnClick кнопки запишем:

procedure TForm1.Button1Click(Sender: TObject);
var
m: TRegistry;
i: integer;
l: TstringList;
s: string;
begin
m := TRegistry.Create; l := TStringList.Create;
s := '\System\CurrentControlSet\Control\Print\Printers';
m.RootKey := HKEY_LOCAL_MACHINE;
m.OpenKey(s, false);
m.GetKeyNames(l); //
получаем список принтеров
m.CloseKey;
ListBox1.Items.Clear;
for i := 0 to l.Count - 1 do begin
m.OpenKey(s + '\' + l[i], false);
ListBox1.Items.Add(m.ReadString('Name'));
m.CloseKey;
end;
m.Free;
l.Free;
end;

Прочитано 2702 раз
Другие материалы в этой категории: « Лучший способ печати формы

Авторизация



Счетчики