Discussion :

[ouiouioui]

tu vire la 1er fonction next... et tu fusionne comme sa

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
 
 
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  if CurPageID = MyUserInfoPage.ID then
  begin
    //verif sur serveur distant user, serial et récuperation clé.
    if CheckSerialOnline then   
      Result := True
    else 
    begin 
      MsgBox(ExpandConstant('{cm:cmBadUserOrSerial}'), mbError, MB_OK);
      Result := False
    end;
  end
  else
    Result := istool_download(CurPageId);
end;

[kyu666]

Merci je vien de voir ta reponse rapide je vais tester desuite et tous ces petits trucs m'en font comprendre beaucoup d'autre.

Cordialement
Kyu

[kyu666]

Apparemment j'ai une petite erreur en lançant l'exe du style "cannot read an encrypted file before the key has been set" donc je vais chercher un peu et si je ne trouve pas je donnerai de plus ample info.

Cordialement
Kyu666

[ouiouioui]

surement un fichier nécessaire à l'installation et ou il faut lui rajouter un flags section files pour qu'il ne soit pas crypté

[abriko]

Je me suis inscrit sur ce site pour remercier Ouiouioui pour ce code très efficace qui corespond exactement à ce que je recherchais. Et en plus, ça marche du premier coup !
Je débute et la prochaine étape pour moi est de rédiger un DLL qui pourrait s'assurer par le biais d'un serveur distant que la version utilisée est à jour et que la licence est valable.

Merci encore.