Mdp dans Bdr de windows

voila, mon probleme en ce moment c'est que j'ai mis comme valeur "2989" comme password. mais mon prob quand mon Edit1 est sur la fiche et je mets "2989" et je confirme il me dit que j'ai le mauvais password pourant c'est le bon et quand j'écrit rien il me dit que j'ai le bon mdp...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Tform1.Button1Click(Sender: TObject); begin // Lire les mdp dans Ini Registre:=TRegistry.Create; //Crée un objet TRegistry Registre.RootKey:=HKEY_CLASSES_ROOT; //Définit la clé principale Registre.OpenKey('\bp',true); if Edit1.Text=mdp then begin ShowMessage('Le mot de passe est valide.'); jepeuxclose:=True; Close; end else ShowMessage('Le mot de passe est incorrect.'); end;

---

P.S: Mes Variable et mes Uses sont bien définie aussi!

- merci

C'est moi ou tu ne lis jamais la clé ?
Où est-ce que mdp est initialisé ?

P.S.
N'oublie pas de libérer l'objet TRegistry quand t'en as fini ;)

Code:

---

1 2	Registre.Free

---

Citation:

---

Envoyé par slimjoe

C'est moi ou tu ne lis jamais la clé ?
Où est-ce que mdp est initialisé ?

---

Je confirme, c'est pas toi, c'est bien lui.;)

Il manque la lecture de la valeur du mot de passe dans le registre.

Code:

---

mdp:=Registry.ReadString('NomClee');

---

merci bcp ! Sa marche maintenant!:lol: s'étais une erreur bete:P