文档章节

使用 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
JavaScript-No.02 JavaScript与OOP

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

蓝汀华韶
2014/09/22
0
0
.Net那点事儿系列:System.IO之windows文件操作

System.IO系列目录 1.Windows文件目录处理 2.Stream 以及 StreamReader和StreamWriter 3.压缩文件 4.System.IO之内存映射文件共享内存 5.System.IO系列:局域网内多线程使用命名管道在进程之...

长平狐
2012/06/08
128
0

没有更多内容

加载失败,请刷新页面

加载更多

java框架学习日志-7(静态代理和JDK代理)

静态代理 我们平时去餐厅吃饭,不是直接告诉厨师做什么菜的,而是先告诉服务员点什么菜,然后由服务员传到给厨师,相当于服务员是厨师的代理,我们通过代理让厨师炒菜,这就是代理模式。代理...

白话
今天
13
0
Flink Window

1.Flink窗口 Window Assigner分配器。 窗口可以是时间驱动的(Time Window,例如:每30秒钟),也可以是数据驱动的(Count Window,例如:每一百个元素)。 一种经典的窗口分类可以分成: 翻...

满小茂
今天
5
0
my.ini

1

architect刘源源
今天
9
0
docker dns

There is a opensource application that solves this issue, it's called DNS Proxy Server It's a DNS server that solves containers hostnames, if could not found a hostname that mat......

kut
今天
8
0
寻找数学的广度——《这才是数学》读书笔记2700字

寻找数学的广度——《这才是数学》读书笔记2700字: 文|程哲。数学学习方式之广:国内外数学教育方面的专家,进行了很多种不同的数学学习方式尝试,如数学绘本、数学游戏、数学实验、数学步道...

原创小博客
今天
17
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部