Listview Inhalte in Registry speichern

[bigg]

Zitat von Matthias-k:

auf was spielst du denn da an?

Auf das Beispiel von oben, genauergenommen den Source.
So sollte man es machen:

Delphi-Quellcode:

uses Registry;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\MeineFirma\MeinProgramm\1.0', True) then // öffne den Schlüssel, sofern er nicht vorhanden ist, leg ihn an...
    begin // der Schlüssel konnte tatsächlich geöffnet werden
      Reg.WriteInteger('Left', Form1.Left);
      Reg.WriteInteger('Top', Form1.Top);
    end;
  finally
    Reg.Free;
  end;
end;