Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

INSTALLATION SUR LE BUREAU D'UN RACCOURCI


Information sur la source

Catégorie :Base de registre Niveau : Débutant Date de création : 09/07/2002 Date de mise à jour : 09/07/2002 10:34:56 Vu : 6 016

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note


Description

Ce code sert a installer sur n'importe quel poste une appli en la copiant dans program files et en créant un raccourcis sur le bureau. Il se sert de la base de registre pour connaitre le chemin de ces derniers
 

Source

  • uses
  • Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  • Dialogs, StdCtrls, FileCtrl, ExtCtrls,registry, Grids,inifiles,jpeg,ShlObj,ComObj,ActiveX, MPlayer, ComCtrls;
  • procedure TInstall.Button1Click(Sender: TObject);
  • var
  • chem_bureau, chem_prog_file:String;
  • Registre:Tregistry;
  • ShellLink : IShellLink;
  • begin
  • //******* je regarde dans la Base de Registre le chemin du bureau
  • //ouvre le registre
  • registre:=Tregistry.create;
  • //si l'ouverture a reussi alors
  • With registre do
  • begin
  • //je récupére le chemin du bureau dans chem_bureau
  • RootKey:=HKEY_CURRENT_USER;
  • OpenKey ('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
  • chem_bureau:=ReadString('DeskTop')+'\';
  • end;
  • //libere le registre
  • registre.free;
  • //*******je vais chercher le chemin ou se trouve program files
  • //ouvre le registre
  • registre:=Tregistry.create;
  • //si l'ouverture a reussi alors
  • With registre do
  • begin
  • //je récupére le chemin du bureau dans chem_bureau
  • RootKey:=HKEY_LOCAL_MACHINE;
  • OpenKey('Software\Microsoft\Windows\CurrentVersion\',false);
  • chem_prog_file:=ReadString('ProgramFilesDir')+'\';
  • end;
  • //libere le registre
  • registre.free;
  • //creer un nouveau répértoire
  • CreateDir(chem_prog_file+'installation\');
  • //copie des fichier dans Program Files
  • copyfile(Pchar('speedis.avi'),Pchar(chem_prog_file+'installation\speedis.avi'),true);
  • copyfile(Pchar('Project1.exe'), Pchar(chem_prog_file+'installation\Project1.exe'),true);
  • //Création du raccourcis
  • ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
  • //Description du raccourcis (visible dans les propriétés du raccourcis)
  • ShellLink.SetDescription('Raccourcis vers le projet');
  • //Direction de l'execution du raccourcis (important si il un a des
  • //composants qui appelle des fichier externe avec un chemin relatif)
  • ShellLink.SetWorkingDirectory(Pchar(chem_prog_file+'installation\'));
  • //Chemin du .exe
  • ShellLink.SetPath(PChar(chem_prog_file+'installation\Project1.exe'));
  • //?? mais ne marche pas quand on le met pas
  • ShellLink.SetShowCmd(SW_SHOW);
  • //creation du raccourcis sur le bureau
  • (ShellLink as IpersistFile).Save(StringToOleStr(chem_bureau+'Project1.lnk'), true);
  • //super, ca marche !!!
  • showmessage('installation reussie');
  • end;
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ExtCtrls,registry, Grids,inifiles,jpeg,ShlObj,ComObj,ActiveX, MPlayer, ComCtrls;


procedure TInstall.Button1Click(Sender: TObject);
var
   chem_bureau, chem_prog_file:String;
   Registre:Tregistry;
   ShellLink : IShellLink;
begin

     //******* je regarde dans la Base de Registre le chemin du bureau

     //ouvre le registre
     registre:=Tregistry.create;

     //si l'ouverture a reussi alors
     With registre do
     begin
          //je récupére le chemin du bureau dans chem_bureau
          RootKey:=HKEY_CURRENT_USER;
	  OpenKey ('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
	  chem_bureau:=ReadString('DeskTop')+'\';
     end;

     //libere le registre
     registre.free;

     //*******je vais chercher le chemin ou se trouve program files

     //ouvre le registre
     registre:=Tregistry.create;

     //si l'ouverture a reussi alors
     With registre do
     begin
          //je récupére le chemin du bureau dans chem_bureau
          RootKey:=HKEY_LOCAL_MACHINE;
	  OpenKey('Software\Microsoft\Windows\CurrentVersion\',false);
	  chem_prog_file:=ReadString('ProgramFilesDir')+'\';
     end;

     //libere le registre
     registre.free;

     //creer un nouveau répértoire
     CreateDir(chem_prog_file+'installation\');

     //copie des fichier dans Program Files
     copyfile(Pchar('speedis.avi'),Pchar(chem_prog_file+'installation\speedis.avi'),true);
     copyfile(Pchar('Project1.exe'), Pchar(chem_prog_file+'installation\Project1.exe'),true);

     //Création du raccourcis
     ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink;

     //Description du raccourcis (visible dans les propriétés du raccourcis)
     ShellLink.SetDescription('Raccourcis vers le projet');

     //Direction de l'execution du raccourcis (important si il un a des
     //composants qui appelle des fichier externe avec un chemin relatif)
     ShellLink.SetWorkingDirectory(Pchar(chem_prog_file+'installation\'));

     //Chemin du .exe
     ShellLink.SetPath(PChar(chem_prog_file+'installation\Project1.exe'));

     //?? mais ne marche pas quand on le met pas
     ShellLink.SetShowCmd(SW_SHOW);

     //creation du raccourcis sur le bureau
     (ShellLink as IpersistFile).Save(StringToOleStr(chem_bureau+'Project1.lnk'), true);

     //super, ca marche !!!
     showmessage('installation reussie');
end;

Conclusion

Ce code est mon premier source sur DelphiFR. Il marche sur XP mais je ne l'ai pas testé sur d'autres OS, si vous avez un bugs, merci de me le dire !!
 

Commentaires et avis

signaler à un administrateur
Commentaire de ellde le 23/12/2004 12:50:41

Je viens d'insérer ce code dans mon soft d'install et ça marche très bien. Simplement pour dire que j'ai testé et que ça fonctionne aussi sous Win98 de base.

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,858 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.