文档章节

使用 TRegistry 类[3]: 创建与删除

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 190
阅读 11
收藏 0

代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_CONFIG;
  reg.CreateKey('AAA\BBB\CCC');
  reg.OpenKey('AAA\BBB\CCC', False);
  reg.WriteString('abc', '万一');
  reg.CloseKey;
  reg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_CONFIG;
  reg.OpenKey('XXX\YYY\ZZZ', True);
  reg.WriteInteger('xyz', 132435);
  reg.CloseKey;
  reg.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_CONFIG;
  reg.OpenKey('AAA\BBB\CCC', False);
  reg.DeleteValue('abc');
  reg.CloseKey;
  reg.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_CONFIG;
  reg.OpenKey('XXX\YYY', False);
  reg.DeleteKey('ZZZ');
  reg.CloseKey;
  reg.Free;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_CONFIG;
  reg.DeleteKey('AAA');
  reg.DeleteKey('XXX');
  reg.CloseKey;
  reg.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/08/23/1274858.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
delphi 获取桌面路径

uses Registry; /////////////////////////////////// function TForm1.GetDeskPath(): string; const regPath = 'SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders'; var Reg:......

jingshishengxu
2016/05/31
63
0
GO 语言 UI 组件库 - govcl

由于现有第三方的Go UI库不是太大就是用的不习惯,或者组件太少。就萌生了自己写一个UI库的想法Delphi(Lazarus)有些许多优秀的VCL(LCL)组件,不拿来使用太可惜了。所以就索性做了一套。目前支...

不在乎y
2017/10/10
6.9K
17
关于文件操作集锦 delphi

关于文件操作集锦 取得该快捷方式的指向EXE 关键词:快捷方式 LNK unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt......

vga
2014/04/23
0
0
获取U盘序列号的代码

获取U盘序列号的代码日期:2007年10月29日 作者:laihongbo 人气:4679 查看:[大字体 中字体 小字体]constDIGCF_PRESENT = $00000002;DIGCF_DEVICEINTERFACE = $00000010;ANYSIZE_ARRAY = 1...

vga
2016/08/09
23
0
JavaScript-No.02 JavaScript与OOP

1、Function对象的apply方法 1)JS中每一个function对象都有一个apply方法 2)语法:function.apply([thisObj], [argArray]) 3)功能:可以用来代替另一个对象调用一个方法,将一个函数的对象...

蓝汀华韶
2014/09/22
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

php 使用redis锁限制并发访问类

1.并发访问限制问题 对于一些需要限制同一个用户并发访问的场景,如果用户并发请求多次,而服务器处理没有加锁限制,用户则可以多次请求成功。 例如换领优惠券,如果用户同一时间并发提交换领...

豆花饭烧土豆
18分钟前
0
0
Linux环境搭建 | 手把手教你配置Linux虚拟机

在上一节 「手把你教你安装Linux虚拟机」 里,我们已经安装好了Linux虚拟机,在这一节里,我们将配置安装好的Linux虚拟机,使其达到可以开发的程度。 Ubuntu刚安装完毕之后,还无法进行开发,...

良许Linux
19分钟前
0
0
Nginix开启SSL支持HTTPS访问(自签名方法)

Nginix开启SSL支持HTTPS访问(自签名方法) 超文本传输安全协议(缩写:HTTPS,英语:Hypertext Transfer Protocol Secure)是超文本传输协议和SSL/TLS的组合,用以提供加密通讯及对网络服务器...

openthings
35分钟前
0
0
(三)Nginx配置·续

概述 前文写了关于Nginx环境配置,但是还没有完,接下来将会继续讲三个相关的配置 主要是以下三个 1.Nginx访问日志 2.Nginx日志切割 3.静态文件不记录日志和过期时间 Nginx访问日志 1.先看看...

杉下
今天
1
0
jquery创建类似于java的map

var map = {}; // Map map = new HashMap(); map[key] = value; // map.put(key, value); var value = map[key]; // Object value = map.get(key); var has = key in map; // boolean has = ......

SuperDabai
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部