Скачать: CL | DM;

Как это запихать данные из реестра в 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 и такого ключа не будет, то выдаст ошибку, я так понимаю, или я ошибаюсь?

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

---

← →
Юрий Зотов ©   (2004-03-15 01:12) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.079 c