cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 26 janv. 2003 à 17:44
Tu peux utiliser n'importe quel logiciel de création d'installation tel que InstallMaker en freeware.
Tout dépend de tes besoins (déploiement BDE, activeX, etc).
May Delphi be with you
cs_RMD
Messages postés84Date d'inscriptionmercredi 25 septembre 2002StatutMembreDernière intervention21 mai 2004 26 janv. 2003 à 22:21
Création d'un raccourci vers NotePad (Bloc Note) qui ouvre le fichier Autoexec.bat (un fichier système d'avant XP)
Uses ShlObj, ActiveX, ComObj, Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := 'NOTEPAD.EXE';
with MySLink do
begin
SetArguments('C:\AUTOEXEC.BAT');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
// Enlever les // de la ligne ci-dessous pour mettre le raccourci sur le bureau
// Directory := MyReg.ReadString('Shell Folders','Desktop','');
// Enlever les // de la ligne ci-dessous pour mettre le raccourci dans l'option démarrage du menu Démarrer
// Directory := MyReg.ReadString('Shell Folders','StartUp','');
// Enlever les // des 2 lignes ci-dessous pour mettre le raccourci dans le menu Démarrer
// Directory := MyReg.ReadString('Shell Folders','Start Menu','')+'\Dossier Menu';
// CreateDir(Directory);
WFileName := Directory+'\Raccourci.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;