delphi里 TRegistry 的用法

在 Delphi 中，TRegistry 类用于访问和操作 Windows 注册表。通过 TRegistry，你可以读取、写入、删除注册表项和值。以下是一些基本的用法示例：

引入单元

首先，你需要在使用 TRegistry 的单元中引入 Registry 单元：

uses
  Registry;

创建和初始化

要使用 TRegistry，你通常需要创建一个实例，并设置其 RootKey 属性来指定你要操作的注册表根键。根键可以是以下之一：

• HKEY_CLASSES_ROOT
• HKEY_CURRENT_USER
• HKEY_LOCAL_MACHINE
• HKEY_USERS
• HKEY_CURRENT_CONFIG

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    // 其他操作...
  finally
    Reg.Free;
  end;
end;

打开一个键

要访问一个特定的注册表项，你需要使用 OpenKey 或 OpenKeyReadOnly 方法。OpenKey 允许读写操作，而 OpenKeyReadOnly 仅允许读取。

begin
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('Software\MyApp', False) then
  begin
    // 键已打开，可以进行读写操作
  end;
end;

读取值

使用 ReadString、ReadInteger、ReadBool 等方法来读取不同类型的值。

var
  StringValue: string;
  IntegerValue: Integer;
  BoolValue: Boolean;
begin
  if Reg.OpenKey('Software\MyApp', False) then
  begin
    StringValue := Reg.ReadString('MyString');
    IntegerValue := Reg.ReadInteger('MyInteger');
    BoolValue := Reg.ReadBool('MyBool');
    Reg.CloseKey;
  end;
end;

写入值

使用 WriteString、WriteInteger、WriteBool 等方法来写入不同类型的值。

begin
  if Reg.OpenKey('Software\MyApp', True) then // True 表示可以创建键（如果不存在）
  begin
    Reg.WriteString('MyString', 'Hello, World!');
    Reg.WriteInteger('MyInteger', 123);
    Reg.WriteBool('MyBool', True);
    Reg.CloseKey;
  end;
end;

删除键或值

使用 DeleteKey 删除一个键，使用 DeleteValue 删除一个特定的值。

begin
  if Reg.OpenKey('Software\MyApp', False) then
  begin
    Reg.DeleteValue('MyString'); // 删除一个值
    Reg.CloseKey;
  end;

  // 删除整个键（及其所有子键）
  Reg.DeleteKey('Software\MyApp');
end;

完整示例

以下是一个完整的示例程序，展示了如何创建、读取、写入和删除注册表项和值：

program RegistryExample;

{$APPTYPE CONSOLE}

uses
  SysUtils, Registry;

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;

    // 创建或打开键，并写入值
    if Reg.OpenKey('Software\MyApp', True) then
    begin
      Reg.WriteString('MyString', 'Hello, Registry!');
      Reg.WriteInteger('MyInteger', 42);
      Reg.WriteBool('MyBool', True);
      Reg.CloseKey;
    end;

    // 读取值
    if Reg.OpenKey('Software\MyApp', False) then
    begin
      Writeln('MyString: ', Reg.ReadString('MyString'));
      Writeln('MyInteger: ', Reg.ReadInteger('MyInteger'));
      Writeln('MyBool: ', Reg.ReadBool('MyBool'));
      Reg.CloseKey;
    end;

    // 删除值
    if Reg.OpenKey('Software\MyApp', False) then
    begin
      Reg.DeleteValue('MyString');
      Reg.CloseKey;
    end;

    // 删除整个键
    Reg.DeleteKey('Software\MyApp');
  finally
    Reg.Free;
  end;

  Readln; // 等待用户输入以结束程序
end.

这个示例程序演示了如何使用 TRegistry 类来操作注册表项和值。记得在使用注册表操作时要小心，因为不正确的操作可能会影响系统稳定性。