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 : Sélectionner tout - Visualiser dans une fenêtre à part
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