ou mettre sa demande de mot de passe

**pierrot67** · 09/07/2006, 09h19

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.

**Hauwke** · 09/07/2006, 09h43

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

**pierrot67** · 09/07/2006, 10h20

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;

**Hauwke** · 09/07/2006, 11h45

Avec un bout de code, ça sera plus probant...
Création de la fiche principale...

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.

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
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.

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...
NOTA: Ce n'est pas trés prudent de laisser un mot de passe codé en dur dans le source
Cordialement,
Hauwke

**pierrot67** · 09/07/2006, 12h39

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.

**pierrot67** · 09/07/2006, 13h39

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.