Bueno parece que el problema esta en que mi Windows 7 no da permisos al soft para agregar la llave en HKEY_LOCAL_MACHINE,
Provando en otras zonas como HKEY_CURRENT_USER no hay problema, entonces lo hice usando a las apis de windows para ver si asi me dejaba pero sigue igual no permite crear la llave.
Aqui dejo el code haciendolo con apis:
Código: Seleccionar todo
Function SetClave(key:Hkey; subkey,name,value:string):boolean;
Var
regKey:hKey;
begin
result:=FALSE;
RegCreateKey(key,PChar(subkey),regKey);
If RegSetValueEx(regKey,Pchar(name),0,REG_SZ,Pchar(value),length(value)) = 0 then
result:=TRUE;
RegCloseKey(regKey);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
If SetClave(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\', 'Manufacturer', 'Silent Thechnology') = True
then
ShowMessage('LLave agregada')
else
ShowMessage('No se Pudo agregar la llave!!!');
end;
end.
Si algien sabria la solucion porfavor.
Salu2