begin process at 2010 02 10 01:04:20
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > CRÉER UN INSTALLATEUR POUR VOS PROGRAMME

CRÉER UN INSTALLATEUR POUR VOS PROGRAMME


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :installateur, raccourcie, ShellApi, ressources Niveau :Débutant Date de création :06/02/2008 Vu :8 282

Auteur : craftsystem

Ecrire un message privé
Site perso
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale

En ligne

Inscrit le: 06 Déc 2007
Messages: 159
Localisation: Perdu dans L'Assembleur
Masculin Taureau (20avr-20mai) 猪 Cochon
Point(s): 891
Moyenne de points: 5,60


MessagePosté le: 06/02/2008 12:14:52    Sujet du message: Créer un installateur pour ses programme Répondre en citant Editer/Supprimer ce message Supprimer ce message Voir l’adresse IP du posteur
Salut a tous


Par souci d'éthique je me suis dis que
si on je devais diffuser un programme
je devrais faire les chose bien donc
faire un installateur pour mon programme

MAIS voilà la majorité des créateur d'installateur ne
sont pas libre de droit donc si vlous devez commercialisez
votre programme il va falloir BANKé !!!!

mais j'ai une solution a tous çà:

Source

  • 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;
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; 


 Conclusion

voilà maintenant compiler et exécuter et vérifier le tous chez moi sa fonctionne
dans tous les cas je prépare une petite source d'exemple car là j'ai créer ce code pour un
projet commercial

voilà en espérant que cela vous seras utile

@++


 Sources du même auteur

Source avec Zip Source avec une capture WEBDEZIGN FORMULAIRE
BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE
INTERPRÉTEUR DE SYNTAXE
Source avec Zip Source avec une capture SOUNDCRYPT
Source avec Zip Source avec une capture KEYGENME PROTECTION

 Sources de la même categorie

Source avec Zip Source avec une capture LOGICIEL DE DIAGNOSTIC AUTOMOBILE KWP2000 par Oniria
Source avec Zip Source avec une capture RÉGLE TRANSPARENTE POUR MESURER UN OBJET ECRAN par dubois77
Source avec Zip Source avec une capture LE BOOK DU PAUVRE par dubois77
Source avec Zip Source avec une capture CAHIER 90 PAGES par dubois77
Source avec Zip Source avec une capture TABLEAU DE BOUTONS DYNAMIQUES (AGENDA) par dubois77

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture UTILISER UNE DLL INCLUSE EN RESSOURCES par Bacterius
Source avec Zip Source avec une capture JEU DU SOLITAIRE (AVEC PIONS) par mengele
Source avec Zip CHARGEZ VOS JPEG DEPUIS VOS RESSOURCES FACILEMENT par cirec
Source avec Zip Source avec une capture AVELLO, UN JEU QUI MALGRÉ SON NOM N'A RIEN À VOIR AVEC LE TO... par Debiars
LANCER UN FICHIER par fabiin

Commentaires et avis

Commentaire de BruNews le 06/02/2008 14:32:17 administrateur CS

C:\Program Files\dossier_de_votre_programme
JAMAIS un chemin en dur de la sorte, faut demander au système où se trouve ce chemin.

Tu as prévu le désinstall ?
Voir InnoSetup.

Commentaire de Loda le 06/02/2008 15:11:22

InnoSetup+1

Commentaire de craftsystem le 06/02/2008 16:07:11

pour le désinstallateur je vais juste mettre la clé dans la base des registres commele fait InstallCreator

Pour le chemin d'accès je voulé utilisé un shelltreeview

mais je n'arrive pas a mettre l'adresse dans le Tedit

là c'est juste une version super simple de "comment faire un
petit installeur perso"

je précise que se n'est pas un Createur d'installation

Bref dans tous les cas je compte l'amélioré

et bien sur posé les mise a jours.

PS: Comment faire pour localiser le dossier Program files
car j'ai jeter un coup d'oeil au dossier spéciaux de windows mais je n'ai rien trouvé de concluant

Merci

PS2: avant d'oublié j'aimerais sa voir comment prendre une adresse dans un shelltreeview pour la transposé en AnsiString dans mon TEdit

ReMerci

et Perso InnoSetup j'ai rien compris (je suis de mauvaise fois)c'est surtout que je ne me suis pas penché dessus et que je  
voulé faire mon propre installateur sans passé par un logiciel externe en gros c'est du 100% MOI. lol
En espérant que sa devienne du 100% VOUS. lol

merci pour les remarque BruNews

Commentaire de BruNews le 06/02/2008 16:26:56 administrateur CS

SHGetFolderLocation te donnera le bon chemin.

Commentaire de craftsystem le 06/02/2008 16:34:11

ok je jette un coup d'oeil et je vous tien au courant

encore merci

Commentaire de cirec le 07/02/2008 00:20:17 administrateur CS

Salut,

pour récupérer les chemins "system" regarde ceci :
http://www.delphifr.com/codes/UTILITAIRE-ACCEDEZ-FACILEMENT-REPERTOIRES-SYSTEME-PEUT-IMPORTE-LEURS_39080.aspx

Commentaire de f0xi le 07/02/2008 03:59:07 administrateur CS 1/10

(O_o)

c'est une blague c'est ça ?

Commentaire de craftsystem le 07/02/2008 09:29:08

pourquoi tu dis ça F0xi?
Je ne comprend pas cette remarque qui me peine

le but n'est t'il de proposer des sources et des tutos
je n'est rien de telle sur le site, même après une recherche sur le site (Merci pour cette Note Fabuleuse)lol

En plus je voulais le mettre en tutos mais j'ai passer trois quart d'heure a essayer mais sa bugger (ou peut que etre c'était une si belle blague et que sa n'a pas voulus...le
mystère reste entier)lol

PS pour les adeptes d'InnoSetup: Hier je suis tomber sur
un programme de capture video SHAREWARE qui à utiliser un
créateur d'installateur OpenSource.
Ces l'hopital qui se fout de la charité!!!! Non?

Merci cirec pour l'info
et merci f0xi pour la note (pour une fois que l'on m'en mets   une on va pas ce plaire...A croire qu'il faut de bonne blague pour que l'on me note...et à ce que je peut voir je ne suis pas un bon comique...LOL)

Commentaire de craftsystem le 07/02/2008 10:59:49

Merci Cirec ta source fonctionne nikel

Mais dès que je veux l'intégré a mon prog sa bug

????????

Avec un peu d'acharnement sa devrait le faire

Commentaire de cirec le 07/02/2008 12:44:39 administrateur CS

Quel est le problème ???

Il suffit de déclarer l'unité "UPath" dans les "Uses"
et d'utiliser la classe Path ... Ex.:

Path.MyPictures  // renvoi le répertoire "Mes Images" de la session en cour
Path.PROGRAMFILES  // renvoi le répertoire "Program Files"
Path.Desktop   // renvoi le répertoire du Bureau de la session en cour

... etc. etc.

Commentaire de craftsystem le 07/02/2008 13:13:38

oui oui ça j'avais compris

Mais je vais refère la source entière

Les chose dans l'ordre

Commentaire de cirec le 07/02/2008 13:27:15 administrateur CS

Si déjà tu veux tout refaire (ce qui est une bonne chose en soit)
je te conseille de changer de méthode ... et pour avoir de nouvelles perspectives je t'invite à faire un tour sur l'excellente source de Bestiol ici :
http://www.delphifr.com/codes/_12432.aspx

Commentaire de malksouf le 14/02/2008 10:14:15

mericii

Commentaire de mark15 le 29/09/2009 20:56:29

merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

ajouter ShellAPI au 'uses' [ par ZeRo_KooL ] Qq1 sait me dire comment faire pour ajouter SHELLAPI au 'uses' ShellApi [ par Laurent LE BRUN ] Je cherche des docs sur l'unité ShellApi, histoire de savoir tout ce qu'on peut faire avec... (à part exécuter des fichiers ;-)Toute info est la bienv Pb Ressources système [ par ogizmo ] Bonjour à tous,Je suis en cours de création d'une appli, mais depuis peu, après avoir fermé mon appli, les ressources systèmes de mon PC s'écroule pet TTreeView & D5:épuisement des ressources [ par ericamiens ] bonjour,j'urtilise un TTreeView dans un programme Delphi5.lorsque j'intercepte l'événement OnCustomDrawItem,les ressources systèmes s'épuisent très ra Utilisation Ressources [ par hippocampe2912 ] Bonjour,J'ai constitué un fichier Ressource avec des Fichiers *.Mid, *.Avi et *.exe.Pour l'utilisation de ces ressources, j'ai trouvé je ne sais plus Lister les ressources dispo [ par bebeb3 ] Bonjour, J'utilise un fichier .res pour stocker des fichiers textes et des images. J'aimerais pouvoir obtenir la liste des ressources dispo m Installateur [ par Glorkonline ] Voilà, je voudrais faire un installateur pour mon application, est-ce que quelqu'un aurait une idée Merci d'avance !Glorkonline <img src=/imgs2/smile. Comment ajouter des ressources (images, textes) à une DLL ? [ par rguef ] Bonjour,Je cherche à ajouter des images et textes à une DLL.Comment faire ?WezzaR Ressources et fichiers texte [ par florenth ] bonjour,Je voulais juste savoir s'il est possible d'ouvrir un fichier placé en ressource avec Reset sans le sauver sur le disque. ( le fichier fait pl Fichier ressources et icônes [ par John Dogget ] Salut à tous.J'ai defini dans un fichier ressources plusieurs icônes. Quand je souhaite afficher une de ces icônes dans un composant image, la taille


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,045 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales