镁合金化学镀镍:Delphi获取所有打印机名称和型号

来源：百度文库编辑：九乡新闻网时间：2024/04/28 23:12:49

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
const MAX_PATH = 144;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var R: TRegistry;
i: integer;
L: TstringList;
S: string;
begin
R := TRegistry.Create;
L := TStringList.Create;
S := '\System\CurrentControlSet\Control\Print\Printers';
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey(S,false);
R.GetKeyNames(L);// 得到子键名列表
R.CloseKey;
ListBox1.Items.Clear;
for i := 0 to L.Count - 1 Do
begin
    R.OpenKey(S + '\' + L[i], false);
    ListBox1.Items.Add(R.ReadString('Name')+' '+ R.ReadString('Printer Driver') );
    //列出打印机的名字和型号
    R.CloseKey;
end;
R.Free;
L.Free;
end;

end.

Delphi获取所有打印机名称和型号 Delphi 中用 GetEnvironmentVariable 获取常用系统变量 delphi 获取文件创建,修改时间数码相机名称里如何辨别型号_ delphi 报告托盘制造商锁 - 一个用于获取打印机索赔硒鼓鼓芯耗材通用型号对比表 - 我乐OA网打印机维修,复印机维修,打印机维修论坛,复印机... 打印机 ecshop商品分类列表页获取分类名称中国现役装备的所有型号坦克简介-- 中国现役装备的所有型号坦克简介. ACCESS--获取表和字段西服的标准型号和尺码西服的标准型号和尺码常用矿用电缆型号和用途【打印机基础知识、使用和保养技巧】中药的名称和作用音频素材的获取和处理获取和设置c# 应用程序目录轮胎知识及各品牌轮胎型号和报价【图】轮胎型号中的数字和字母各代表什么商用密码产品品种和型号申请材料格式规范轮胎知识大全及各品牌轮胎型号和报价1 常用电线电缆的型号、分类和使用范围