Source d'un mot de passe pour entrer dans un prog...Conseil la mettre sur la derniere unité.
Source / Exemple :
procedure TForm1.FormCreate(Sender: TObject); // Cliquer sur form aller sur evenement et cliquer sur create
const
MotDePasse = 'se que vous voullez';
RepQuit='q';
var
Reponse: string;
DonneReponse: boolean;
begin
Reponse := '';
DonneReponse := InputQuery('Attention', 'Entrez le mot de passe !', Reponse);
if Reponse = RepQuit then
Form1.Close;
if DonneReponse then
begin
if Reponse = MotDePasse then
ShowMessage('Mot de passe correct')
else
Form1.Close
end
else
Form1.Close;
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.