Bonjour,
j'ai un petit soucis avec la base de registre :
Selon la FAQ, j'essaye de lister tous les programmes installés.
Je fais donc ceci :
Cela me renvoie 366 sous-clefs, alors qu'avec Regedit, je n'en affiche que 60 ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 { ============================================================================== } procedure TF_Princ.Btn_LogicielsClick(Sender: TObject); const REGKEYAPPS = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'; var reg : TRegistry; List1 : TStringList; List2 : TStringList; i, n : integer; j : Integer ; begin reg := TRegistry.Create; List1 := TStringList.Create; List2 := TStringList.Create; ListBox1.Clear ; {Charge toutes les sous-clés} with reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey(REGKEYAPPS, false); GetKeyNames(List1); end; ShowMessage('Nombre de sous-clefs : '+ IntToStr(List1.Count)) ; ...
Comment expliquer cette bizarrerie ?
Merci
A+
Charly
Partager