En fait c'est pas trop compliqué (g réussi à faire ça assez vite en étant débutant) mais ça améliore un peu le source de Quake (Pas le jeu comme l'a cru un de mes potes, Quake est le pseudo d'un programmeur de Codes Sources) qui était une bonne base mais inéficace, merci à lui quand-même pour m'avoir donné une base pour faire ce petit source(désolé pour les erreurs de construction du source, pour compléter la lisibilité j'ai ajouté pas mal de commentaires.
Source / Exemple :
procedure TForm1.FormCreate(Sender: TObject); //Ce code est à rentrer dans la partie Evénements de l'inspecteur d'objets à l'onglet ""OnCreate""
const
MotDePasse = 'Le mot de passe choisi est à rentrer ici';
var
Reponse: string;
DonneReponse: boolean;//Pour les novice, boolean sert à affecter à une variable la valeur true (vrai) ou false (faux)
label label1;
begin
DonneReponse := InputQuery('.::Attention::.', 'Entrez le mot de passe !', Reponse);
if DonneReponse then
begin
if Reponse = MotDePasse then
Form1.Show
else
begin //Dans le cas où l'utilisateur entre un mauvais mot de passe, le programme ouvre la même fenêtre que la première, mais avec un message différent "Entrez un mot de passe valide !"
label1:// cible du goto label1
Reponse := '';
DonneReponse := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Reponse);
if DonneReponse then
begin
if Reponse = MotDePasse then
Form1.Show
else
goto label1 //Ouvre de nouveau la fenêtre avec les instructions en cas de mauvais mot de passe
end
else //si la fenêtre est quittée
Application.Terminate; // ou si on clique sur annuler
end; //le programme se ferme
end
else //idem, mais cette fois ci
Application.Terminate; //c'est pour la deuxième fenêtre, celle qui s'ouvre quand
end; //l'utilisateur a entré un mauvais mot de passe
end.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.