Créer un installateur pour vos programme

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 118 fois - Téléchargée 21 fois

Contenu du snippet

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 / Exemple :


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

@++

A voir également

Ajouter un commentaire

Commentaires

hakatsuki
Messages postés
1
Date d'inscription
jeudi 9 septembre 2010
Statut
Membre
Dernière intervention
29 décembre 2010

je suis un bleu en delphi et en pascal mais j'ai vraiment apprécier le travail fait le seul hic ce que j'ai voulu utiliser ce programme pour créer seulement un raccourci sur le bureau et pas la copie du programme en entier le programme ne fonctionne pas
que faire?
cs_mark15
Messages postés
18
Date d'inscription
dimanche 7 décembre 2008
Statut
Membre
Dernière intervention
6 décembre 2010
4
merci
malksouf
Messages postés
2
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
14 février 2008

mericii
craftsystem
Messages postés
146
Date d'inscription
samedi 21 juillet 2007
Statut
Membre
Dernière intervention
7 mars 2009

oui oui ça j'avais compris

Mais je vais refère la source entière

Les chose dans l'ordre
cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.