我用了TRegistry下的SaveKey和LoadKey,可是SaveKey的返回值为false,
导出:
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\PrintCustom',true);
reg.SaveKey('\software\PrintCustom','ReportSet');
reg.CloseKey;
reg.Free;
end;var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\dongyu\BMIS\PrintCustom',false);
reg.RegistryConnect('HKEY_LOCAL_MACHINE');
reg.ReplaceKey('\software\dongyu\BMIS\PrintCustom','ReportSet','ReportSetBackup');
reg.CloseKey;
reg.Free;
end;请教各位高手应该怎么写才正确呢??????
导出:
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\PrintCustom',true);
reg.SaveKey('\software\PrintCustom','ReportSet');
reg.CloseKey;
reg.Free;
end;var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\dongyu\BMIS\PrintCustom',false);
reg.RegistryConnect('HKEY_LOCAL_MACHINE');
reg.ReplaceKey('\software\dongyu\BMIS\PrintCustom','ReportSet','ReportSetBackup');
reg.CloseKey;
reg.Free;
end;请教各位高手应该怎么写才正确呢??????
你没有KEY_ALL_ACCESS权限————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————