Как это запихать данные из реестра в ListView

← →
Registry (2004-03-14 19:38) [0]

В Memo все нормально, но в ListView, не получается :(
В memo :
procedure TForm1.Button1Click(Sender: TObject); var Reg : TRegistry; TStr : TStrings; i : integer; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", true); TStr := TStringList.Create; Reg.GetValueNames(TStr); for i := 0 to TStr.Count -1 do Memo1.Lines.Add(TStr.Strings[i] + " = " + Reg.ReadString(TStr.Strings[i])); TStr.Free; Reg.CloseKey; Reg.Free; end;

← →
Юрий Зотов © (2004-03-14 20:27) [1]

У ListView1 выставьте ViewStyle=vsReport и создайте 2 колонки.

procedure TForm1.Button1Click(Sender: TObject);
var
S : TStringList;
i : integer;
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", True);
S := TStringList.Create;
try
GetValueNames(S);
for i := 0 to S.Count -1 do
with ListView1.Items.Add do
begin
Caption := S[i];
SubItems.Add(ReadString(S[i]))
end
finally
S.Free
end
finally
Free
end
end;

← →
Юрий Зотов © (2004-03-14 20:34) [2]

Вот так получше будет:

if OpenKey(..., False) then
begin
...
end;

← →
Registry (2004-03-14 21:04) [3]

Большое спасибо!
Я так и подумал, что надо сначала column создать .., но не попробовал :(

>Вот так получше будет:

Если я правильно понял, то true, это если нет такого ключа то он создается, а если поставить false и такого ключа не будет, то выдаст ошибку, я так понимаю, или я ошибаюсь?

З.Ы. Все равно спасибо :)

Выдаст не ошибку, а False. Значит, такого ключа нет и делать ничего не надо - список останется пустым. А создавать системные ключи самому не стоит.

Как это запихать данные из реестра в ListView Найти похожие ветки