怎样可以把注册表的信息读出来啊？

Question

如题，谢谢！

Answer 1

uses Registry;
...
procedure TfrmEhlib.FormShow(Sender: TObject);
var
  rAutoRun: TRegistry;
begin
  rAutoRun := TRegistry.Create;
  rAutoRun.RootKey := HKEY_LOCAL_MACHINE;  try
    rAutorun.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);    if rAutoRun.ValueExists('firApp') then
    begin
      cbAutoRun.Checked := true;
      ShowMessage(rAutoRun.ReadString('firApp')); //有多个方法
    end
    else
      cbAutoRun.Checked := false;
  finally
    rAutoRun.CloseKey;
    rAutoRun.Free;
  end;
end;

Answer 2

function GetRegistryValue: string;
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  {False because we do not want to create it if it doesn抰 exist}
  Registry.OpenKey('MYKEY',True);//当为True时，如果没有这个值就建立 
  Result :=Registry.ReadString('VALUE1');
  IF Result='' Then 
     Registry.WriteString('VALUE1','某一个值');
  Registry.CloseKey;
  Registry.Free;
end;

Answer 3

在 uses 单元加上 registry
var Reg: TRegistry;
    s: string;
begin
   //修改注册表.zip
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CLASSES_ROOT;
   Reg.OpenKey('\.zip',true);
   Reg.WriteString('','MoreRun');  // 第一个''为空,表示默认,后面的MoreRun为数据
   Reg.CloseKey;  //关闭
  //读取
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CLASSES_ROOT;
   Reg.OpenKey('\.zip',true);
   s := Reg.ReadString('test');  // 读取 HKEY_CLASSES_ROOT/.zip/test 的字串值
   reg.free;
   showmessage(s);
{
相关的有
ReadBinaryData
ReadBool
ReadCurrency
ReadDate
ReadDateTime
ReadFloat
ReadInteger
ReadString
ReadTime
}
end; 只要找找，多的是....