delphi xe 通过注册表到得硬盘型号与序号

代码如下

var
  Form5: TForm5;

implementation
 uses registry;
{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
var reg:Tregistry;

begin
memo1.clear;
reg:=Tregistry.create; //涉入江湖

reg.RootKey := HKEY_LOCAL_MACHINE;  //六大根键  :六大门派，
{HKEY_USERS
HKEY_CURRENT_USER
HKEY_CURRENT_CONFIG
HKEY_CLASSES_ROOT
HKEY_LOCAL_MACHINE
HKEY_DYN_DATA      <<<<<<<此门派已后继无人,消失于90年代末期；
}
reg.openkey('SYSTEMCurrentControlSetservicesDiskEnum', False);
//'SYSTEMCurrentControlSetservicesDiskEnum'    是 子键 ：各门派的后代；
 memo1.Lines .add('0='+reg.ReadString('0')  );
 memo1.Lines .add('1='+reg.ReadString('1')  );
 memo1.Lines .add('2='+reg.ReadString('2')  );
 memo1.Lines .add('Count='+inttostr(reg.ReadInteger('count')));
{
0
1
2
count
都是值项；具体到门派的大师（姐），二师（姐）兄，三师（姐）兄,。。。。。 称呼嘛；
read方法:报告各师兄妹的特征值。不同的特征值得用不同的方法。
}
 reg.Destroy; //出来混的，总是要还的

end;

end.

运行结果如下：

共三个硬盘。顺序与DISKGEN中的顺序一致；

我的注册表如下：

最后

以上就是迷你毛豆为你收集整理的delphi xe 通过注册表到得硬盘型号与序号的全部内容，希望文章能够帮你解决delphi xe 通过注册表到得硬盘型号与序号所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。