文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 190
阅读 11
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
delphi 获取桌面路径

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

jingshishengxu ⋅ 2016/05/31 ⋅ 0

关于文件操作集锦 delphi

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

vga ⋅ 2014/04/23 ⋅ 0

GO 语言 UI 组件库 - govcl

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

不在乎y ⋅ 2017/10/10 ⋅ 17

JavaScript-No.02 JavaScript与OOP

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

shawntime ⋅ 2014/09/22 ⋅ 0

获取U盘序列号的代码

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

vga ⋅ 2016/08/09 ⋅ 0

.Net那点事儿系列:System.IO之windows文件操作

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

长平狐 ⋅ 2012/06/08 ⋅ 0

Android创建和使用数据库详细指南(1)

数据库支持每个应用程序无论大小的生命线,除非你的应用程序只处理简单的数据,那么就需要一个数据库系统存储你的结构化数据,Android使用SQLite数据库,它是一个开源的、支持多操作系统的S...

冯京宝 ⋅ 2011/01/23 ⋅ 0

LINQ to XML LINQ学习第一篇

1、LINQ to XML类 以下的代码演示了如何使用LINQ to XML来快速创建一个xml: public static void CreateDocument() { string path = @"d:website"; XDocument xdoc = new XDocument(new XDe......

幕三少 ⋅ 2013/08/14 ⋅ 0

【Hive】Hive基本操作及示例

1、数据库操作 (1)创建数据库 (2)查看数据库 (3)使用数据库 (4)查看数据库字段格式 (5)删除数据库 2、表操作 (1)创建表 (2)加载数据到表 LOCAL:从本地文件加载数据到hive表;...

gongxifacai_believe ⋅ 04/29 ⋅ 0

Prism研究(for WPF & Silverlight)4.从Hello World开始(实战篇)

本篇将指导使用Prism框架创建一个WPF版本的Hello World程序。Silverlight版本的程序大同小异,不再敷述。 相关内容请参见文档P127-147,代码示例参加Quickstarts Hello World目录。 1.首先我...

andrewniu ⋅ 05/24 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Sqoop

1.Sqoop: 《=》 SQL to Hadoop 背景 1)场景:数据在RDBMS中,我们如何使用Hive或者Hadoop来进行数据分析呢? 1) RDBMS ==> Hadoop(广义) 2) Hadoop ==> RDBMS 2)原来可以通过MapReduce I...

GordonNemo ⋅ 47分钟前 ⋅ 0

全量构建和增量构建的区别

1.全量构建每次更新时都需要更新整个数据集,增量构建只对需要更新的时间范围进行更新,所以计算量会较小。 2.全量构建查询时不需要合并不同Segment,增量构建查询时需要合并不同Segment的结...

无精疯 ⋅ 57分钟前 ⋅ 0

如何将S/4HANA系统存储的图片文件用Java程序保存到本地

我在S/4HANA的事务码MM02里为Material维护图片文件作为附件: 通过如下简单的ABAP代码即可将图片文件的二进制内容读取出来: REPORT zgos_api.DATA ls_appl_object TYPE gos_s_obj.DA...

JerryWang_SAP ⋅ 今天 ⋅ 0

云计算的选择悖论如何对待?

导读 人们都希望在工作和生活中有所选择。但心理学家的调查研究表明,在多种选项中进行选择并不一定会使人们更快乐,甚至不会产生更好的决策。心理学家Barry Schwartz称之为“选择悖论”。云...

问题终结者 ⋅ 今天 ⋅ 0

637. Average of Levels in Binary Tree - LeetCode

Question 637. Average of Levels in Binary Tree Solution 思路:定义一个map,层数作为key,value保存每层的元素个数和所有元素的和,遍历这个树,把map里面填值,遍历结束后,再遍历这个map,把每...

yysue ⋅ 今天 ⋅ 0

IDEA配置和使用

版本控制 svn IDEA版本控制工具不能使用 VCS-->Enable Version Control Integration File-->Settings-->Plugins 搜索Subversion,勾选SVN和Git插件 删除.idea文件夹重新生成项目 安装SVN客户......

bithup ⋅ 今天 ⋅ 0

PE格式第三讲扩展,VA,RVA,FA的概念

作者:IBinary 出处:http://www.cnblogs.com/iBinary/ 版权所有,欢迎保留原文链接进行转载:) 一丶VA概念 VA (virtual Address) 虚拟地址的意思 ,比如随便打开一个PE,找下它的虚拟地址 这边...

simpower ⋅ 今天 ⋅ 0

180623-SpringBoot之logback配置文件

SpringBoot配置logback 项目的日志配置属于比较常见的case了,之前接触和使用的都是Spring结合xml的方式,引入几个依赖,然后写个 logback.xml 配置文件即可,那么在SpringBoot中可以怎么做?...

小灰灰Blog ⋅ 今天 ⋅ 0

冒泡排序

原理:比较两个相邻的元素,将值大的元素交换至右端。 思路:依次比较相邻的两个数,将小数放在前面,大数放在后面。即在第一趟:首先比较第1个和第2个数,将小数放前,大数放后。然后比较第...

人觉非常君 ⋅ 今天 ⋅ 0

Vagrant setup

安装软件 brew cask install virtualboxbrew cask install vagrant 创建project mkdir -p mst/vmcd mst/vmvagrant init hashicorp/precise64vagrant up hashicorp/precise64是一个box......

遥借东风 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部