文档章节

使用 TRegistry 类[1]: 显示各主键下的项

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 266
阅读 7
收藏 0
点赞 0
评论 0
{XP 注册表中的主键}
HKEY_CLASSES_ROOT    {文件类型信息} 
HKEY_CURRENT_USER    {当前用户信息}
HKEY_LOCAL_MACHINE   {软硬件信息} 
HKEY_USERS           {所有用户信息} 
HKEY_CURRENT_CONFIG  {当前配置信息}

{Delphi 定义的常量}
HKEY_CLASSES_ROOT     = DWORD($80000000);
HKEY_CURRENT_USER     = DWORD($80000001);
HKEY_LOCAL_MACHINE    = DWORD($80000002);
HKEY_USERS            = DWORD($80000003);
HKEY_PERFORMANCE_DATA = DWORD($80000004);
HKEY_CURRENT_CONFIG   = DWORD($80000005);
HKEY_DYN_DATA         = DWORD($80000006);

 
 
 
 
 

 

 

  
本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Align := alLeft;
  RadioGroup1.Items.CommaText := 'HKEY-CLASSES-ROOT,' +
                                 'HKEY-CURRENT-USER,' +
                                 'HKEY-LOCAL-MACHINE,' +
                                 'HKEY-USERS,' +
                                 'HKEY-CURRENT-CONFIG';
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;

  case RadioGroup1.ItemIndex of
    0: reg.RootKey := HKEY_CLASSES_ROOT;
    1: reg.RootKey := HKEY_CURRENT_USER; {这是 RootKey 的默认值}
    2: reg.RootKey := HKEY_LOCAL_MACHINE;
    3: reg.RootKey := HKEY_USERS;
    4: reg.RootKey := HKEY_CURRENT_CONFIG;
  end;

  reg.OpenKey('', False);
  reg.GetKeyNames(ListBox1.Items);
  reg.CloseKey;
  reg.Free;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 176
  ClientWidth = 325
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ListBox1: TListBox
    Left = 0
    Top = 8
    Width = 153
    Height = 134
    ItemHeight = 13
    TabOrder = 0
  end
  object RadioGroup1: TRadioGroup
    Left = 159
    Top = 8
    Width = 158
    Height = 160
    Caption = 'RadioGroup1'
    TabOrder = 1
    OnClick = RadioGroup1Click
  end
end

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
hibernate学习笔记3

13 hibernate核心 表和表的关系: 常见有7中关系: 单项关系一下四种 1-1 外键1-1,主键1-1的关系 1-n n-1 n-n 多项关系:互相使用; 1-1 1-n(n-1) n-n 以下有两个表,user_info、和login连...

xiahuawuyu ⋅ 2012/03/05 ⋅ 0

Hibernate一对多、多对多、一对一关联映射方法

对象之间的关系:关系映射之间的关系只的是对象之间的关系,并不指数据库表的关系(外键关系),当然,数据库表该如何映射,编程上如何实现这两件事密不可分。 1、对象之间的关联关系: 一对多...

ifnotme ⋅ 2016/08/02 ⋅ 0

JPA 批注参考

1 JPA 批注参考 版本: 5/12/06 作为 Java 企业版 5 (Java EE 5) Enterprise Java Bean (EJB) 3.0 规范的组成部分,Java 持续性 API (JPA) 显著简化了 EJB 持续性并提供了一个对象关系映射方...

Zhao-Qian ⋅ 2014/07/07 ⋅ 2

新手学堂:Fcitx输入法在LumaQQ中的设置

我用的是:Radhat9.0 Fcitx3.4.2 http://www.fcitx.org/main/?q=node/9 首先,要确保~/.fcitx/config中的 lumaQQ支持 被打开(即设置为1),然后再启动lumaQQ。 用户目录下的.fcitx目录中的c...

红薯 ⋅ 2009/05/08 ⋅ 0

模块和包.sqlalchemy

简单说明: 此模块儿常用来把关系数据库的表结构映射到对象上,允许开发人员首先设计数据模型,并能决定稍候可视化数据的方式(CLI/WEB/GUI),和以往的先绝对如何在框架允许的范围内使用数据模型的...

满满李 ⋅ 2016/04/23 ⋅ 0

flash Tree组件使用经验分享

FlashSwing Tree 组件允许用户查看分层数据。 树中的每一项称为节点,并且可以是叶或分支。当展开分支时,将显示其子节点。分支的子项可以是叶或分支。 当树实例从单击或 Tab 键切换中获得焦...

Gregary ⋅ 2012/09/17 ⋅ 0

Hibernate Annotation笔记

(1) 简介: 在过去几年里,Hibernate不断发展,几乎成为Java数据库持久性的事实标准。它非常强大、灵活,而且具备了优异的性能。在本文中,我们将了解如何使用Java 5 注释来简化Hibernate代码...

geeksun ⋅ 2012/05/14 ⋅ 0

Qt容器初探01(未完)

容器类是用于内存中存储给定类型的许多向的模板类。c++已经提供了很多容器,这些容器作为STL的一部分包含在标准的c++库中。 Qt也提供了自己的容器类,所以在编写Qt程序时,即可使用Qt容器也可...

乔三爷 ⋅ 2016/06/30 ⋅ 0

uncode/uncode-dal-all

uncode-dal 本着不重复造轮子的原则,基于mybatis、spring jdbc、hibernate、mongo等ORM的通用数据访问层,支持基于datasource的读写分离、主备自动切换和故障转移,支持简单的负载均衡。 功...

uncode ⋅ 2015/05/11 ⋅ 0

基于MVC4+EasyUI的Web开发框架经验总结(6)--在页面中应用下拉列表的处理

在很多Web界面中,我们都可以看到很多下拉列表的元素,有些是固定的,有些是动态的;有些是字典内容,有些是其他表里面的名称字段;有时候引用的是外键ID,有时候引用的是名称文本内容;正确...

walb呀 ⋅ 2017/12/04 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JVM堆的理解

在JVM中,我们经常提到的就是堆了,堆确实很重要,其实,除了堆之外,还有几个重要的模块,看下图: 大 多数情况下,我们并不需要关心JVM的底层,但是如果了解它的话,对于我们系统调优是非常...

不羁之后 ⋅ 昨天 ⋅ 0

推荐:并发情况下:Java HashMap 形成死循环的原因

在淘宝内网里看到同事发了贴说了一个CPU被100%的线上故障,并且这个事发生了很多次,原因是在Java语言在并发情况下使用HashMap造成Race Condition,从而导致死循环。这个事情我4、5年前也经历...

码代码的小司机 ⋅ 昨天 ⋅ 1

聊聊spring cloud gateway的RetryGatewayFilter

序 本文主要研究一下spring cloud gateway的RetryGatewayFilter GatewayAutoConfiguration spring-cloud-gateway-core-2.0.0.RC2-sources.jar!/org/springframework/cloud/gateway/config/G......

go4it ⋅ 昨天 ⋅ 0

创建新用户和授予MySQL中的权限教程

导读 MySQL是一个开源数据库管理软件,可帮助用户存储,组织和以后检索数据。 它有多种选项来授予特定用户在表和数据库中的细微的权限 - 本教程将简要介绍一些选项。 如何创建新用户 在MySQL...

问题终结者 ⋅ 昨天 ⋅ 0

android -------- 颜色的半透明效果配置

最近有朋友问我 Android 背景颜色的半透明效果配置,我网上看资料,总结了一下, 开发中也是常常遇到的,所以来写篇博客 常用的颜色值格式有: RGB ARGB RRGGBB AARRGGBB 这4种 透明度 透明度...

切切歆语 ⋅ 昨天 ⋅ 0

CentOS开机启动subversion

建立自启动脚本: vim /etc/init.d/subversion 输入如下内容: #!/bin/bash## subversion startup script for the server## chkconfig: 2345 90 10# description: start the subve......

随风而飘 ⋅ 昨天 ⋅ 0

Nginx + uwsgi @ubuntu

uwsgi 安装 sudo apt-get install python3-pip # 注意 ubuntu python3默认没有安装pippython3 -m pip install uwsgi 代码(test.py) def application(env, start_response): start_res......

袁祾 ⋅ 昨天 ⋅ 0

版本控制工具

CSV , SVN , GIT ,VSS

颖伙虫 ⋅ 昨天 ⋅ 0

【2018.06.19学习笔记】【linux高级知识 13.1-13.3】

13.1 设置更改root密码 13.2 连接mysql 13.3 mysql常用命令

lgsxp ⋅ 昨天 ⋅ 0

LVM

LVM: 硬盘划分分区成物理卷->物理卷组成卷组->卷组划分逻辑分区。 1.磁盘分区: fdisk /dev/sdb 划分几个主分区 输入t更改每个分区类型为8e(LVM) 使用partprobe生成分区的文件:如/dev/sd...

ZHENG-JY ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部