INSTALLATEUR DE PROGRAMMES (V2)
Pienso
Messages postés
16
Date d'inscription
mercredi 5 juillet 2006
Statut
Membre
Dernière intervention
31 janvier 2007
-
24 sept. 2006 à 18:01
cs_pepitto Messages postés 22 Date d'inscription jeudi 13 novembre 2003 Statut Membre Dernière intervention 25 juin 2008 - 18 mai 2008 à 22:52
cs_pepitto Messages postés 22 Date d'inscription jeudi 13 novembre 2003 Statut Membre Dernière intervention 25 juin 2008 - 18 mai 2008 à 22:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39671-installateur-de-programmes-v2
https://codes-sources.commentcamarche.net/source/39671-installateur-de-programmes-v2
18 mai 2008 à 22:52
Pour moi ça se compile tout seul en delphi 6.
Par contre tu as peut avoir un message d'erreur juste au démarrage de configXp si il ne trouve pas de fichier de configuration "ConfigXp.ini"
En cas de PB contacte moi.
Stephane
18 mai 2008 à 14:01
svp, comment on le compile ???
Giikaker
www.giikaker.c.la
26 sept. 2006 à 21:42
Mais Bon je ne suis pas ici pour ça, mais pour prévenir qu'une version avec des sous rubriques dans le Treeview (Sur seulement 2 niveau c'est pas très instructif comme source).
En attendant, bonne Prog à tous
@+ Stef
25 sept. 2006 à 23:42
REG ADD %KEY%\001 /VE /D "Installation d'Office 2003 Professional" /f
REG ADD %KEY%\001 /V 1 /D "%PP%OfficeXp\Instapls.exe TRANSFORMS=Unattended.MST /qb-" /f
et pour le reste tu n'es pas le seul à avoir automatisé certaines tâches :-)
chez moi tout se fait automatiquement et même les applications qui normalement demande l'intervention de l'utilisateur sont automatisées ...
mais ceci n'enlève rien à ton travail que je respècte
pour la fermeture de l'application je vais revoir la chose
@+
Cirec
25 sept. 2006 à 21:47
En reponse à cirec :
Pour moi, j'ai pas de problème de fermeture :
- Si ConfigXp.ini n'est pas trouvé, l'appli s'arrete après m'avoir notifier qu'il n'a pas trouvé le fichier.
- Si je n'ai rien de sélectionné (utilise le menu Popup il est la pour ça) dans la liste (C'est à dire de ne rien installer), la non plus pas de Pb, la boucle fait le tour de toutes les Item du Treeview et fini par mettre "Fermeture:= True" et lance l'instruction Close. Pas besoin d'utiliser le gestionnaire de Tache.
Pour le Cd ou DVD en version unattented, tu as bien créé un fichier de type ".bat" pour exécuter tes programmes. Moi le mien permet de sélectionner les Programmes alors que toi quand tu rejoute un nouveau programme, il faut rajouter manuellement des lignes d'instruction. De plus si tu configure bien le fichier "ConfigXp.ini", les Programme s'installent tous automatiquement en mode silencieux ou passif si tu connais les options (mais on est pas ici pour parler de ça). Seul problème avec Createprocess, c'est que l'on ne peut pas lancer un fichier ".msi".
Pour finir, tu peux utiliser le Programme autrement que pour faire une Réinstallation complète de ton ordi.
par contre, j'ai bien pris note, je vais éclairsir le programme. de plus j'ai vu un petit Pb : Le fond de la form n'est pas visible (juste un détail). Autre Bug mais dans la suppression d'une application : l'incrément de la variable "n" est oublié.
25 sept. 2006 à 14:31
pensez à changer dans le titre : INTALLATEUR -> INSTALLATEUR
drjerome
25 sept. 2006 à 11:52
juste un petit truc, il n'est pas utile de laisser ce genre de "d'information" dans ton fichier INI : "KeyGen Nero7" et pour ceux qui n'ont rien compris il y a encore : "Crack pour installer Nero7 Prenium"
Ensuite ton programme refuse de se fermer si aucune installation n'est faite !!!
Il faut tuer le processus ...
Normal puisque au début dans le OnCreate il y a :
Fermeture := False;
et si Ini n'existe pas alors :
Fermeture := True;
Dans une utilisation normal Fermeture = False jusqu'à ce qu'une installation soit faite
Mais quand on decide de ne pas installer ... impossible de fermer .
Dans le Dpr on voit ceci :
Application.CreateForm(TForm1, Form1);
IF fORM1.Fermeture then messageDlg('Le fichier "ConfigXp.ini" n''a pas été trouvé',mtError,[mbOk],-1)
else begin
Application.CreateForm(TForm2, Form2);
Application.Run;
end;
encore une fois si le fichier ini n'existe pas tu stopes tout ...
Mais Application est crée Form1 aussi mais jamais libéré ... non non ce n'est pas la bonne méthode à force la mémoire risque de saturer
Allège "éclaircie" un peut ton code il serat plus facile à lire
au lieu d'avoir 16 fois
Info.Canvas.
Tu écris :
With Info.Canvas do Begin
Font.Color := 0;
...
End;
Et pour finir j'utilise depuis longtemps déjà mon propre DVD d'installation en mode Unattend je trouve ça cent mille fois plus cool et surtout plus rien à faire après l'installation (même pas un click) tout est dans la machine ... service pack, mes progs, tout se met et se configure automatiquement sans que j'ai besoin d'intervenir le pied quoi. il suffit de tenir son CD où DVD à jour.
Bonne prog et ...
@+
Cirec
24 sept. 2006 à 18:21
24 sept. 2006 à 18:01