Créer une base-Installation
Résolu
Guenky
Messages postés
44
Date d'inscription
mercredi 13 juin 2007
Statut
Membre
Dernière intervention
9 août 2007
-
1 août 2007 à 14:24
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 1 août 2007 à 20:21
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 1 août 2007 à 20:21
1 réponse
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
1 août 2007 à 20:21
1 août 2007 à 20:21
Inno setup propose 3 solutions pour le chemin de l'appli :
le registre, le fichier INI ou rien.
dans l'appli on peu recuperer le chemin de l'appli de cette façon :
Application.ExeName
ou
ParamStr(0)
ou donc dans le registre via TRegistry ou dans un fichier INI via TIniFile.
dans inno setup le chemin d'installation se recupere via le mots clef : {app}
exemple dans le script :
[Files]
Source: "c:\monprog\monprog.exe"; DestDir: "{app}"; Flags: ignoreversion
et optionnelement :
[Registry]
Root: HKLM; Subkey: "SOFTWARE\MonProg"; ValueType: string; ValueName: "InsPath"; ValueData: "{app}"; Flags: uninsdeletevalue;
a recuperer ensuite par le programme comme ceci :
uses
Registry;
var
ProgPath : string;
procedure TMainForm.FormCreate(Sender : TObject);
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SOFTWARE\MonProg',false) then
if ValueExists('InsPath') then
ProgPath := ReadString('InsPath')
else
begin
ProgPath := ExtractFilePath(ParamStr(0));
WriteString('InsPath',ProgPath);
end;
CloseKey;
finally
Free;
end;
end;
le registre, le fichier INI ou rien.
dans l'appli on peu recuperer le chemin de l'appli de cette façon :
Application.ExeName
ou
ParamStr(0)
ou donc dans le registre via TRegistry ou dans un fichier INI via TIniFile.
dans inno setup le chemin d'installation se recupere via le mots clef : {app}
exemple dans le script :
[Files]
Source: "c:\monprog\monprog.exe"; DestDir: "{app}"; Flags: ignoreversion
et optionnelement :
[Registry]
Root: HKLM; Subkey: "SOFTWARE\MonProg"; ValueType: string; ValueName: "InsPath"; ValueData: "{app}"; Flags: uninsdeletevalue;
a recuperer ensuite par le programme comme ceci :
uses
Registry;
var
ProgPath : string;
procedure TMainForm.FormCreate(Sender : TObject);
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SOFTWARE\MonProg',false) then
if ValueExists('InsPath') then
ProgPath := ReadString('InsPath')
else
begin
ProgPath := ExtractFilePath(ParamStr(0));
WriteString('InsPath',ProgPath);
end;
CloseKey;
finally
Free;
end;
end;