Discussion :

[Mistic100]

Bonjour (je reposte puisque mon message a été supprimé lors de la maintenance)

j'ai un problème avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
function InitializeSetup(): Boolean;
begin
  if RegKeyExists(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TmUnitedForever_is1') = false then
  begin
     if Msgbox('Il semble que TMUF ne soit pas installé, continuer ?'+#10+#13+'It seems that TMUF is not installed, continue ?', mbConfirmation, MB_YESNO) = IDYES then
     Result:=True
     else Result:=False
  end;
end;

Si la clef est absente et si l'on clique sur NON, l'installeur s'initialise quand même

Je ne comprend pas pourquoi

[Cl@udius]

En examinant ton code, je ne vois pas pourquoi cela ne marcherait pas.

Essaye comme ceci:

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
 
[Languages]
Name: en; MessagesFile: "compiler:Default.isl"
Name: fr; MessagesFile: "compiler:Languages\French.isl"
 
[CustomMessages]
en.InitMsg=It seems that TMUF is not installed, continue ?
fr.InitMsg=Il semble que TMUF ne soit pas installé, continuer ?
 
[Code]
function InitializeSetup: Boolean;
begin
  Result := True;
  if not RegKeyExists(HKEY_LOCAL_MACHINE,
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TmUnitedForever_is1') then
    Result := MsgBox(CustomMessage('InitMsg'), mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES;
end;

@+ Claudius

[Mistic100]

Han c'est de ma faute

juste après ca il y a une autre condition qui vérifie la présence d'un autre logiciel, et comme j'ai oublié de l'intégrer dans le if MsgBox, ce dernier n'a plus d'influence

[ero-sennin]

Han c'est de ma faute

juste après ca il y a une autre condition qui vérifie la présence d'un autre logiciel, et comme j'ai oublié de l'intégrer dans le if MsgBox, ce dernier n'a plus d'influence

J'en connais un(e) qui risque de se faire taper sur les fesses...
Le principal, c'est que tu sois parvenu(e) à voir ta faute!
Si tout est OK pour toi, n'oublies pas le petit

@+
Ero-Sennin