Voici mon code :
Code :
- procedure TForm1.Button1Click(Sender: TObject);
- Var Registre : TRegistry;
- begin
- Registre:=TRegistry.Create;
- Registre.RootKey:=HKEY_CURRENT_USER;
- Registre.OpenKey('\Software\Patchou\MsgPlus2\Nobody\CustSounds',False);
- Registre.GetKeyNames(ListBox1.Items);
- Registre.CloseKey;
- Registre.Free;
|
J'obtient une list de Dossiers présent dans la base de registres. Ils possèdent tous des Key similaires, mais les values de celles ci sont différente.
Voici la liste des dossiers obtenu avec ce code :
002800791251
0028041A1AE8
0028997648D3
0070006C2B12
009022138377
00B801ABA63D
0157D3016928
....
....
Etc, que je peux soit laisser dans la listebox, soit inséré dans un fichier texte.
Ensuite je veux mettre dans une list, toutes les Valeur de Name, des Sous dossier précédent (ceux de la List1)
En gros voici l'arborcécence du registre :
CustSounds/[00B801ABA63D jusqu'a 0028041A1AE8 par exemple]/Name, Et je veux récupéré les donnée contenu dans Name
Merci
Message édité par Darknessshade1 le 24-09-2005 à 14:19:16
FORUM HardWare.fr
