Indetectables

Código: Seleccionar todo

procedure TForm1.btnAplicarClick(Sender: TObject);

var
    Reg: TRegistry;

begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation', False) then begin
Reg.CreateKey('Manufacturer');
Reg.CloseKey;

end; //IF

end;

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.