bonjour
je voudrais proteger l'ouverture de mon appli par mot de passe mais je ne sais
pas dans quel evenement le placer ou s'il faut le créer independement du programme.
Merci d'avance.
bonjour
je voudrais proteger l'ouverture de mon appli par mot de passe mais je ne sais
pas dans quel evenement le placer ou s'il faut le créer independement du programme.
Merci d'avance.
Bonjour,
Je vous suggére de placer votre demande de mot de passe dans une boite de dialogue particulière. La création de cette boite de dialogue se fera dans le "OnShow" de votre fiche principale. utilisez une boite "modale" ainsi votre application ne démarrera que si et seulement si le mot de passe est correct. Dans le cas contraire, utilisez l'instruction "Application.terminate" afin de finir votre application avant même qu'elle ne s'affiche à l'écran.
Cordialement,
Hauwke
merci mais...
je voudrais que ma boite de dialog se ferme après ouverture de mon appli
j'ai mis ce code ça marche mais la demande de mot de passe reste ouverte derrière mon application
code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 if edit1.text='xxxxxxx'then begin Form2 := TForm2.Create(self); try Form2.ShowModal; finally Form2.Free; end; end else ShowMessage('Mot de passe incorrect !'); end;
Avec un bout de code, ça sera plus probant...
Création de la fiche principale...
Création de la boite de dialogue modale...
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TFormePrincipale = class(TForm) procedure FormShow(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var FormePrincipale: TFormePrincipale; implementation uses Unit2; {$R *.dfm} procedure TFormePrincipale.FormShow(Sender: TObject); var FormeMotdePasse : TFormeMotDePasse; begin FormeMotDePAsse := TFormeMotDePasse.Create(self); FormeMotDePasse.ShowModal; FormeMotDePasse.Free; end; end.
Dans les options du projet, retirez FormeMotDePasse des fiches "autocréées". Respectez la casse lorsque vous tapez "Tata" et voyez si vous obtenez ce que vous cherchez...
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFormeMotDePasse = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var FormeMotDePasse: TFormeMotDePasse; implementation {$R *.dfm} procedure TFormeMotDePasse.Button1Click(Sender: TObject); begin if (Edit1.Text<>'Tata') then begin messageDlg('Identification incorrecte', mtwarning, [mbok], 0); Application.Terminate; end else messagedlg('Ca va marcher!', mtinformation, [mbok], 0); end; procedure TFormeMotDePasse.FormShow(Sender: TObject); begin Edit1.text := ''; end; end.
NOTA: Ce n'est pas trés prudent de laisser un mot de passe codé en dur dans le source
Cordialement,
Hauwke
Effectivemen ça marche à peu près sauf que quand je lui confirme le mot de passe rien ne se passe que quand je clique sur la croix il me lance mon appli
même si je ne lui donne pas de mot de passe.
bon j'ai résolu le problème
j'ai mis un close; et j'ai désactivé les " border icones";
je sais pas si c'était la bonne solution mais apparement ça fonctionne.
Salut,
Tu peux gerer l'evenement onClose de la fiche de renseignement de mot de passe et agir en conséquence.
A+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager