Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\DbTools', true{true:如果没有该节点就生成;false相反});
Reg.ReadString('DBAlias', 'DefaultAlias', '{此处填写如果该节点不存在时就生成的内容}');
finally
Reg.Free;
end;
end;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\DbTools', true{true:如果没有该节点就生成;false相反});
Reg.ReadString('DBAlias', 'DefaultAlias', '{此处填写如果该节点不存在时就生成的内容}');
finally
Reg.Free;
end;
end;
reg:TRegistry;
begin
.....
if Reg.ValueExists('键名') then
......