Registrierschlüssel

[Uncle Cracker]

So sieht's aus, wie du es haben willst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg:TRegistry;
begin
reg := TRegistry.Create;
  if(reg <> nil) then
    with reg do try
      RootKey := hkey_local_machine;
      if(OpenKey('Software\Microsoft\Windows',TRUE)) then try
         reg.WriteString('Test string','Test');
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
end;