Wyświetlanie listy w ListView !

0

Hmmm, siedziałem na tym troche już, ale dalej niemoge wysyślic, więc czas zapytać się na Forum:
Mam oto taki kodzik:
var Reg: TRegistry;
S: TStringList;
i: integer;
Item: TLIstItem;
begin
SndPlaySound('click_1', snd_ASync);
ListView1.Clear;
REg := TRegistry.Create;
S := TStringList.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
Reg.GetValueNames(S);
for i := 0 to S.Count -1 do
begin
Item := ListView1.Items.Add;
Item.Caption := S.Strings[i];
Item.SubItems.Add(Reg.ReadString(S.Strings[i]));
end;
REg.CloseKey;
Reg.Free;
S.Free;

end;
, ktory mi wyświetla wpisy z HKEY_LOCAL_MACHINE w ListView'sie. Chciałbym, żeby mi też wyswietlało w ListView nie tylko wpisy z tego klucza, ale jeszcze z HKEY_CURRENT_USER. Jak dodać żeby i to sie wyswietlało ? Dodawałem już rózne linijki, plusy i nic - prosze o pomoc !

0

var Reg: TRegistry;
S: TStringList;
i: integer;
Item: TLIstItem;
begin
SndPlaySound('click_1', snd_ASync);
ListView1.Clear;
REg := TRegistry.Create;
S := TStringList.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
Reg.GetValueNames(S);
for i := 0 to S.Count -1 do
begin
Item := ListView1.Items.Add;
Item.Caption := S.Strings[i];
Item.SubItems.Add(Reg.ReadString(S.Strings[i]));
end;
REg.CloseKey;

S.Clear;
Reg.RootKey := HKEY_CURENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
Reg.GetValueNames(S);
for i := 0 to S.Count -1 do
begin
Item := ListView1.Items.Add;
Item.Caption := S.Strings[i];
Item.SubItems.Add(Reg.ReadString(S.Strings[i]));
end;
REg.CloseKey;

Reg.Free;
S.Free;

end;

O to chodzi?

(jakby co to nie sprawdzałem poprawności tego kodu w delphi)

0

Tak właśnie o to mi chodziło - wielkie dzięki [browar] :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1