{
关键字=读取注册表
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:08:22
数字签名=2097458F67534248E8C13D6F32C34F42
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls;
uses
registry;
procedure TForm1.Button2Click(Sender: TObject);
var
reg: TRegistry; //声明一个TRegistry类变量
s: string; //声明一个字符串变量用来存放要读取的信息
begin
{读取注册表}
{读取注册表}
reg := TRegistry.Create; //创建实例
reg.RootKey := HKEY_CURRENT_USER; //指定需要操作的注册表的主键
if reg.OpenKey(‘\Software’, true) then //如果打开成功则进行以下操作
begin
s := reg.ReadString(‘APPHOME’); //从注册表中读取对应字符串的值
//如果该字符串不存在则返回值为空字符串
reg.CloseKey; //关闭注册表
end;
reg.Free; //释放变量所占内存
CAPTION := S;
end;