Lese og skrive fra/til Registry i Delphi 7

uses
  Registry;

brug klassen TRegistry.

Jens B

Jo, jeg har funnet ut at jeg må bruke TRegistry, men har litt problemer med å skille de ulike funksjonene. Er det ikke noen som har noe konkret eksemplekode på opprette / endre og lesing av nøkkler og verdier i nøkler?

procedure TForm1.Button1Click(Sender: TObject);
var
  ValueNames : TStringList;
  ListItem : TlistItem;
  i : Integer;
begin
  ValueNames := TStringList.Create;

  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if not OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false) then
      ShowMessage('Key does not exists');

    GetValueNames(ValueNames);
    for i := 0 to ValueNames.Count -1 do
    begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := ValueNames[i];
      ListItem.SubItems.Add(ReadString(ValueNames[i]));
    end;
  finally
    free;
  end;

  FreeAndNil(ValueNames);
end;