Registry, Standartwert auslesen

[sakura]

Zitat von Pseudemys Nelsoni:

darf man "openkey" überhaupt öfters ausführen?

Nein Aber das war nicht Deine Frage und da die Frage einfach war, habe ich die direkt UND korrekt beantwortet.

Dein Code ist komplett unbrauchbar.

Delphi-Quellcode:

procedure TForm5.FormShow(Sender: TObject); 
var 
  reg: TRegistry; 
  sl: tstringlist; 
  i: integer; 
  ListItem: TListItem; 
begin 
  reg := TRegistry.Create; 
  sl := TStringlist.Create; 
  with reg do 
  try
    sl.Clear;
    RootKey := HKEY_CLASSES_ROOT; 
    if OpenKey('Wchat', false) then
    try
      GetKeyNames(sl);
    finally
      CloseKey;
    end;
    for i := 0 to sl.Count-1 do 
    begin 
      if Pos('nick', LowerCase(sl[i])) > 0 then 
      begin 
        if OpenKey('Wchat\' + sl[i] + '\Nick', false) then
        try
          ListItem := Listview1.Items.Add; 
          ListItem.Caption := ReadString('');
        finally
          CloseKey;
        end;
        if OpenKey('Wchat\' + sl[i] + '\Pass', false) then
        try
          ListItem.SubItems.Text := ReadString(''); 
        finally
          CloseKey;
        end;
      end; 
    end; 
  finally
    reg.Free; 
    sl.Free; 
  end; 
end;

......