TRegistry

← →
Wadim (2003-10-26 22:37) [0]

Доброго времени суток всем.
Помогите разобраться.
procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
ts:TStrings;
i:Integer;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.LazyWrite:=False;
reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Uninstall",False);
if Reg.HasSubKeys then
begin
ts:=TStringList.Create;
Reg.GetKeyNames(ts);
for i:=0 to ts.Count-1 do begin
reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Uninstall\"+ts.Strings[i],false);
Memo1.Lines.Add(reg.ReadString("DisplayName"));
Memo1.Lines.Add(reg.ReadString("Uninstallstring"));
ListBox1.Items.Add(reg.ReadString("DisplayName")) ;
Reg.CloseKey;
end;
ts.Free;
end else
Reg.CloseKey;
Reg.Free;
end;
Почему в ListBox-e количество Item-ов не совпадает действительным количеством инсталираных программ?

← →
XenonXX (2003-10-27 04:45) [1]

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths

HKEY_CLASSES_ROOT\Applications
посмотри там еще.

TRegistry Найти похожие ветки