你首先要创建一个你的实例,而且要指定一个rootkey,
pReg:= TRegistry.Create;
pReg.RootKey := 'HKEY_USERS;
if not pReg.OpenKey(SYSKEY,false) then
pReg.CreateKey(SYSKEY);
if pReg.OpenKey(SYSKEY,false)=true then
begin
pReg.WriteString('Server',Trim(Edit1.Text));
end;
preg.Free;
这样就可以了。
pReg:= TRegistry.Create;
pReg.RootKey := 'HKEY_USERS;
if not pReg.OpenKey(SYSKEY,false) then
pReg.CreateKey(SYSKEY);
if pReg.OpenKey(SYSKEY,false)=true then
begin
pReg.WriteString('Server',Trim(Edit1.Text));
end;
preg.Free;
这样就可以了。
pReg.Root := HKEY_USERS;
const
SYSKEY='.DEFAULT\SoftWare\aaa\bbbb';
....
pReg.RootKey := HKEY_USERS;