Eintrag in Registrierungsdatenbank schreiben

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\Pyrgo\Vertretungsplan\', true) then
      begin
        Reg.WriteString('Foo','Bar');
        Reg.CloseKey;
      end;
  finally
    Reg.Free;
  end;
end;