Probao sam na dva nacina:
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.Rootkey := HKEY_CURRENT_USER;
Reg.Savekey('\Software\Blablabla', 'blablabla.reg');
end;
i
var
RootKey, phKey: HKey;
Key : string;
begin
RootKey := HKEY_CURRENT_USER;
Key := '\Software\Blablabla';
RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_ALL_ACCESS, phKey);
RegSaveKey(phKey, PChar('test.reg'), nil);
RegCloseKey(phKey);
end;
Program pokren sa administratorskim provilegijama (na visti) i nikad mi ne uradi sta se ocekujem :)
Ako ima neko resenja osim:
ShellExecute(Handle, 'open', PChar('regedit.exe /e Key Filename'), '', sw_hide) ;
Pozz