Débutant c'est pour vous!voici une source pour une demande de mot de passe.

Commenter

Contenu du snippet

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;

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Quake)