CRÉER UN INSTALLATEUR POUR VOS PROGRAMME

1: créer un fichier de ressource avec Reshacker que vous appellerez
"import.res"

    * ajouter votre programme dans "import.res" qui vous appellerez "PROG" dans un onglée nommer "EXE"


2: une fois "import.res" de créer ouvrez Delphi et créer un nouveau projet

3: dans la fiche rajoutez 2 TButton, 1 TEdit, 1 TLabel, 1 TGauge, 2 TCheckBox

    * le 1er bouton nommer le "Installer" le 2eme "Annuler"
    * dans le TEdit mettre "C:\Program Files\dossier_de_votre_programme"
    * nommez le 1er TCheckBox "Raccourci bureau" et le 2ème "Ouvrir le dossier

4: créer une procedure CLICK pour le bouton Installer et une autre pour Annuler

    * Pour Annuler mettre

Code:

 procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

    * Pour Installer mettre ce code pour créer & vérifié si votre dossier d'installation existe

Code:

 procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CreateDir('C:\Program Files\dossier_de_votre_programme') then begin
    showmessage('Impossible de créer C:\Program Files\dossier_de_votre_programme');
    end;
    copie
end;
vous pouvez constater qu'a la fin de la procedure il y a "copie" donc créer une procedure public


Code:

  private
    { Private declarations }
  public
    procedure copie;

voilà sa c'est fait

maintenant on va rallier "import.res" a notre installateur et rajouter des variable que nous aurons besoin plus tard dans "copie" se qui donne

Code:

 unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,  Forms,Dialogs, StdCtrls, Gauges, ComObj, Shlobj, ActiveX, shellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Gauge1: TGauge;
    CheckBox2: TCheckBox;
    CheckBox1: TCheckBox;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure copie;
  end;

var
  Form1: TForm1;
  path: string;
  res: TResourceStream;

implementation

{$R *.dfm}
{$R import.res}

maintenant la procedure copie:
elle va nous servir a extraire les donner de "import.res" dans notre dossier d'installation




Code:

 procedure tform1.copie;
begin
 path := form1.edit1.text; // Je recupère le chemin de mon exe
 Res := TResourceStream.Create(0,'PROG','EXE');
 Res.SaveToFile(path + '\votre_programme.exe');
 form1.label1.caption:='votre_programme.exe';
 form1.gauge1.progress:=100;
 Res.Free;
end;

maintenant les options Raccourci bureau. pour cela créer une procedure que j'ai trouvé sur le net

Code:

 procedure CreFicLien(FicSource, FicRaccourci :string);
var
  ShellLink : IShellLink;
begin
  if UpperCase(extractFileExt(FicRaccourci))<>'.LNK' then
     FicRaccourci:=FicRaccourci+'.lnk'; // si on a oublié de mettre l'extension on l'ajoute
  ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
  ShellLink.SetDescription('');
  shellLink.SetWorkingDirectory(PChar(form1.Edit1.Text));
  ShellLink.SetPath(PChar(FicSource));
  ShellLink.SetShowCmd(SW_SHOW);
  (ShellLink as IpersistFile).Save(StringToOleStr(FicRaccourci), true);
end;

et nous allons ajouter dans la procedure copie

Code:

  if checkbox1.Checked = true then begin
  CreFicLien(edit1.Text + '\votre_programme.exe','C:\Documents and     Settings\All Users\Bureau\votre_programme');
 end;

et nous allons ajouter aussi le code pour ouvrir le dossier d'installation si l'option et coché

Code:
  if checkbox2.Checked = true then begin
 path  := edit1.Text + '\votre_programme.exe';
  ShellExecute (handle,'Open',  PChar(Edit1.Text) , PChar(Edit1.Text), PChar(Edit1.Text),SW_SHOWNORMAL);
 end;
se qui donne:


Code:
  procedure tform1.copie;
 begin
  path := form1.edit1.text; // Je recupère le chemin de mon exe
  Res := TResourceStream.Create(0,'PROG','EXE');
  Res.SaveToFile(path + '\votre_programme.exe');
  form1.label1.caption:='votre_programme.exe';
  form1.gauge1.progress:=100;
  Res.Free;

  if checkbox1.Checked = true then begin
   CreFicLien(edit1.Text + '\WebCam Shooting.exe','C:\Documents and     Settings\All Users\Bureau\votre_programme');
  end;

  if checkbox2.Checked = true then begin
  path  := edit1.Text + '\votre_programme.exe';
   ShellExecute (handle,'Open',  PChar(Edit1.Text) , PChar(Edit1.Text), PChar(Edit1.Text),SW_SHOWNORMAL);
  end;

 end; 

et pour finir c'est a dire quitter l' installateur a la fin de l'installation on ajoute a la procedure copie

Code:

  showmessage('Votre Programme est installé avec succès.');
 application.Terminate;

donc au final sa donne:

Code:

   procedure tform1.copie;
  begin
   path := form1.edit1.text; // Je recupère le chemin de mon exe
   Res := TResourceStream.Create(0,'PROG','EXE');
   Res.SaveToFile(path + '\votre_programme.exe');
   form1.label1.caption:='votre_programme.exe';
   form1.gauge1.progress:=100;
   Res.Free;
 
   if checkbox1.Checked = true then begin
    CreFicLien(edit1.Text + '\votre_programme','C:\Documents and     Settings\All Users\Bureau\votre_programme');
   end;
 
   if checkbox2.Checked = true then begin
   path  := edit1.Text + '\votre_programme.exe';
    ShellExecute (handle,'Open',  PChar(Edit1.Text) , PChar(Edit1.Text), PChar(Edit1.Text),SW_SHOWNORMAL);
   end;
 
  showmessage('Votre Programme est installé avec succès.');
  application.Terminate;

  end;