Installation sur le bureau d'un raccourci

Commenter

Contenu du snippet

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


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 !!

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_fab30)