Accueil > Codes Sources > Code du Jour

Application Cachée

  Télécharger

 

Cette source montre comment lancer une application en mode caché.

L'astuce est assez simple et consiste à affecter la valeur "False" à la propriété "Visible" de la fiche principale de l'application lors du lancement et de l'application.

Project1.dpr

Program
Project1;

Uses
Forms,windows,
Unit1 in 'Unit1.pas'{FMain};

{$R *.RES}

Begin
Application.ShowMainForm:=False;//Cette commande permet de cacher la fiche principale
Application.Initialize;
Application.Title:='Application Cachée';
Application.CreateForm(TFMain,FMain);
Application.Run;
End.

 

Haut de Page ^

 

Unit1.pas

Unit
Unit1;

Interface

Uses
Windows, ShellApi, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

Type
TFMain=Class(TForm)
TmMain:TTimer;
LbLink:TLabel;
LbMain:TLabel;
BtExit:TButton;

Procedure LbLinkClick(Sender:TObject);
Procedure TmMainTimer(Sender:TObject);
Procedure BtExitClick(Sender:TObject);

Private

Public
End;

Var
FMain:TFMain;

Implementation

{$R *.DFM}

Procedure TFMain.TmMainTimer(Sender:TObject);
Begin
TmMain.Enabled:=False;
Application.MainForm.Show;
End;

Procedure TFMain.LbLinkClick(Sender:TObject);
Begin
ShellExecute(Handle,'open','http://www.delphilab.com',nil,nil,SW_SHOWMAXIMIZED);
End;

Procedure TFMain.BtExitClick(Sender:TObject);
Begin
Close;
End;
End.

 

Haut de Page ^