Discussion :

[DanielB]

Bonjour,
Je souhaite lors de l'installation contrôler l'existence d'une clé dans le registre et si cette clé existe stopper l'installation.
Avec l'aide des forums, je pense avoir trouver le code pour effectuer ce contrôle mas je ne sais pas comment stopper l'installation si la clé existe et créer la clé si elle n'existe pas.
Pouvez-vous m'aider ? Par avance je vous remercie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
function InitializeSetup(): Boolean;
	begin
		if RegKeyExists(HKEY_LOCAL_MACHINE,'SOFTWARE\WOW6432Node\MaClé') = true then
        begin
        Msgbox('Clé présente',mbConfirmation,MB_OK);
        Result:=true;
        //Mettre fin à l'installation
        end    
			else
        begin
				Msgbox('RAS',mbConfirmation,MB_OK);
				Result:=True;
       //Créer la clé
        end;	
	end;

[franckcl]

Bonjour Daniel,

Il faudrait nous en dire plus.
De quelle installation parles-tu ?
Tu essaies d'écrire un script pascal dans Inno Setup ?

[franckcl]

Avec Inno setup il faut appeller "Abort"

[ShaiLeTroll]

Tout simplement ne pas lancer le Application.Run ou sinon ne pas créer de MainForm

[franckcl]

Tout simplement ne pas lancer le Application.Run ou sinon ne pas créer de MainForm

Je pense que ce monsieur parle de Inno setup car InitializeSetup est une fonction appellée pendant la phase d'initialisation de Inno Setup, mais bon, on suppose que son problème est résolu.

[ShaiLeTroll]

Ah effectivement

Du coup InitializeSetup peut retourner False !

Faut juste lire la documentation

function InitializeSetup(): Boolean;
Called during Setup's initialization. Return False to abort Setup, True otherwise.

et

Remarks:
Abort does not cause Setup or Uninstall to exit unless it's called from one of these event functions (or another function invoked by them):

InitializeSetup
InitializeWizard
CurStepChanged(ssInstall)

InitializeUninstall
CurUninstallStepChanged(usAppMutexCheck)
CurUninstallStepChanged(usUninstall)

Abort étant plus radical dans ces fonctions qu'ailleurs.

[franckcl]

Bine vu pour la remarque !

[DanielB]

Bonjour,
Je reviens vers vous et merci pour les messages.
Je veux, avec inno setup, installer une version démo d'un de mes logiciels. Donc je veux vérifier si une installation a déjà eu lieu en contrôlant l'existence d'une clé dans le registre et, si oui, stopper l'installation et, si la clé n'existe pas, la créer.
J'ai déjà fait des installateurs avec inno set up mais sans accès au registre.
Par avance merci

[DanielB]

Pour être plus précis, je voudrais que, après avoir cliqué sur "OK" dans la boite de dialogue on stoppe l'installation si la clé existe ou on continue si ce n'est pas le cas

[franckcl]

Je pense que ce que tu cherches est là :
https://www.developpez.net/forums/d1...esinstalation/

[DanielB]

Merci je ferai des essais demain et je vous tiens au courant.

[Andnotor]

Procéder ainsi empêchera toute mise à jour par l'installateur. Est-ce logique ?

On utiliserait plutôt InitializeSetup pour s'assurer que toutes les conditions sont remplies avant installation (dépendances manquantes).

Et spécifie SOFTWARE\MaClé uniquement, la redirection WOW6432Node est automatique.

[DanielB]

Merci pour vos réponses.
Je ne comprends pas, je veux créer la clé suite à une condition dans la section [code] alors que si je mets le code ci-dessous dans [Registry] cela ne va pas créer la clé comme je le souhaite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
[Registry]  
Root: HKLM; Subkey: "HKEY_LOCAL_MACHINE,'SOFTWARE\MaClé"; ValueType: string; ValueName: "path"; ValueData: "{app}"; Flags: uninsdeletevalue

.

[Andnotor]

La racine est définie par Root, Subkey est uniquement le chemin depuis cette racine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[Registry]  
Root: HKLM; Subkey: "SOFTWARE\MaClé"; ValueType: string; ValueName: "path"; ValueData: "{app}"

Pour ajouter une validation par code, il faut une commande Check.
J'ajouterais également la suppression de la clé à la désinstallation, uninsdeletevalue ne supprimant que la valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
[Registry]  
Root: HKLM; Subkey: "SOFTWARE\MaClé"; Flags: uninsdeletekey
Root: HKLM; Subkey: "SOFTWARE\MaClé"; ValueType: string; ValueName: "path"; ValueData: "{app}"; Check: DoWritePath
 
[Code]
function DoWritePath :boolean;
begin
  Result := ...;
end;

[DanielB]

Bonjour et merci,
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
[Registry]
Root: HKLM; Subkey: "SOFTWARE\MaClé"; Flags: uninsdeletekey
Root: HKLM; Subkey: "SOFTWARE\MaClé"; ValueType: string; ValueName: "path"; ValueData: "{app}"; Check: DoWritePath
 
[Code]
function InitializeSetup(): Boolean;
	begin
		if RegKeyExists(HKEY_LOCAL_MACHINE,'SOFTWARE\MaClé') = true then
        begin
        Msgbox('Clé présente',mbConfirmation,MB_OK);
        Result:=true;
        //Mettre fin à l'installation
        end    
	else
        begin
				Msgbox('Clé absente',mbConfirmation,MB_OK);
				 //Créer la clé
        begin
				function DoWritePath :boolean;
				Result :=true;     
        end;     
	end;
  end;

La compilation me donne ce message d'erreur : "identifier expected"...