|
| |
| ПОЛУЧАЕМ СПИСОК УСТАНОВЛЕННЫХ ПРИНТЕРОВ |
| Узнать перечень принтеров, установленных на нашем компьютере довольно просто. Для начала поместим на форму компоненты 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; |