vista下操作注册表?
在win2K&XP下用的好好的函数,在Vista下WriteString时出错。。。不知是何原因????
function RegWriteValue(key,value: string):integer;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(Key, True) then
Reg.WriteString('', Value);//在这里提示出错,写不了数据
finally
Reg.CloseKey;
Reg.Free;
end;
result := 1;
end;