formRésolu

Question

bonjour bon vote a tous!

je voulais savoir si il est possible que la form1 de mon programme ne demarre qu'une seul fois a la premiere utilisation et que pa la suite le programme demarre directement su la form2??

merci pour vos reponse

cptpingu · Accepted Answer

Tu dois tout simplement noter quelquepart, si l'application à déjà été démarré.
Tu peux le faire avec un simple fichier texte, un fichier ini ou écrire dans la base des registres.
Au démarrage de ton programme il te suffira de regarder si un tel marqueur est déjà présent.

cs_Loda · Answer

salut,

Par exemple tu peux  distribuer ton applic avec un fichier "FirstRun" dans le dossier de l'exe. et tu l'efface au first run.
En bonus, tu peux mettre le texte d'acceuil dans le fichier :-)

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

florenth · Answer

Ou alors, pour faire plus propre, tu essaye de créer un sémaphore au lancement de ton appli.
Si la création réussit, c'est que tu peux créer ta fichier principale, sinon, c'est l'autre !

Et c'est bien plus propre car aucun accès disque...

++

cs_Loda · Answer

@Florent:
si j'ai bien compris, il veut différencier le premier lancement (depuis l'install). pas la premère instance (depuis la session).

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

florenth · Answer

Ahhh autant pour moi ^^ j'avais pas compris ça comme ça....

f0xi · Answer

Fichiers > nouveau > Application
Fichiers > nouveau > Fiche

la tu doit avoir Form1 et Form2

Nome correctement Form1 et Form2 exemple :

Form1 = FrmFirstRun (TFrmFirstRun)
Form2 = FrmMain (TFrmMain)

Sauvegarde ton projet dans le repertoire final :

c:\projet delphi\MonAppli

Ici on doit maintenant avoir ces fichiers :

FrmFirstRun.dpr
FrmFirstRun.dfm
uFirstRun.pas
FrmMain.dpr
FrmMain.dfm
uMain.pas

maintenant :

projet > voir le source

tu doit avoir ceci :

program MonAppli;

uses
  Forms,
  uFirstRun in 'uFirstRun.pas' {FrmFirstRun},
  uMain in 'uMain.pas' {FrmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrmFirstRun, FrmFirstRun);
  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.

bien, modifions comme cela :

program MonAppli;

uses
  Forms,
  uFirstRun in 'uFirstRun.pas' {FrmFirstRun},
  uMain in 'uMain.pas' {FrmMain};

{$R *.res}

var FirstRun : boolean;

begin
  Application.Initialize;

  with TRegistry.Create do
  try
    RootKey := cardinal($80000001);

    if OpenKey('Software\MonAppli',true) then
    begin
      FirstRun := not ValueExists('FirstRun');
      if FirstRun then
      begin
        WriteInteger('FirstRun',1);
      end;
    end;
    CloseKey;
  finally
    Free;
  end;

  case FirstRun of
    true : Application.CreateForm(TFrmFirstRun, FrmFirstRun);
  else
      Application.CreateForm(TFrmMain, FrmMain);
  end;

  Application.Run;
end.

dans uMain préparer cette procedure :

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TFrmMain = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure ResetFirstRun(const ByDeleteKey : boolean = false);
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}

uses Registry;

{ TFrmMain }

procedure TFrmMain.ResetFirstRun(const ByDeleteKey : boolean = false);
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if ByDeleteKey then
        DeleteKey('Software\MonAppli)
    else
    if OpenKey('Software\MonAppli',false) then
    begin
      DeleteValue('FirstRun');
      CloseKey;
    end;
  finally
    Free;
  end;
end;

end.

et voila, au premier lancement on aurat bien la Fiche FrmFirstRun et au prochain lancement la fiche FrmMain :)

on appel la procedure :

ResetFirstRun;  pour supprimer la valeur FirstRun mais pas la clef MonAppli
ResetFirstRun(true); pour supprimer la clef MonAppli

Attention, si on ajoute des fiches au projet aprés modifications on vas se retrouver avec cela dans le source du projet :

begin
  Application.Initialize;

  with TRegistry.Create do
  try
    RootKey := cardinal($80000001);

    if OpenKey('Software\MonAppli',true) then
    begin
      FirstRun := not ValueExists('FirstRun');
      if FirstRun then
      begin
        WriteInteger('FirstRun',1);
      end;
    end;
    CloseKey;
  finally
    Free;
  end;

  case FirstRun of
    true : Application.CreateForm(TFrmFirstRun, FrmFirstRun);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  else
      Application.CreateForm(TFrmMain, FrmMain);
  end;

  Application.Run;
end.

il faudrat alors réediter le source comme suis :

  case FirstRun of

    true : Application.CreateForm(TFrmFirstRun, FrmFirstRun);
  else

      Application.CreateForm(TFrmMain, FrmMain);

  end;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);

<hr size="2" width="100%" />Croc (click me)

f0xi · Answer

petit oublis :

a la modification tu doit ajouter Registry dans les Uses :

uses
  Forms,
  Registry,
  uFirstRun in 'uFirstRun.pas' {FrmFirstRun},
  uMain in 'uMain.pas' {FrmMain};

<hr size="2" width="100%" />Croc (click me)

florenth · Answer

Ahhh berk ! Le bon vieux registre windows !
Quoi de plus crade et poussiéreux ?

Sérieusement, faut passer à mieux....

Mais c'est pas pour dénigrer ton code f0xi, simplement un rappel...

++

Form

8 réponses

Votre réponse

Discussions similaires