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.

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.