Bonjour,

Je viens faire appel au pro pour une problème avec Inno Setup Script Include.

Ce programme permet de proposer des fonctions prédéfini tel que l'ajout de son, modification de la taille des images et autres.

Avant l'utilisation de ce programme, mon script fonctionnait correctement, mais depuis que j'utilise ce dernier. J'obtiens une erreur non pas lors de la compilation mais lorsque je clique sur le bouton Suivant de mon installeur.



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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
var
  UserPage: TInputQueryWizardPage;
  Pseudo: String;
Procedure ISSI_InitializeWizard;
begin
RegQueryStringValue(HKCU, 'Software\Valve\Steam', 'LastGameNameUsed', Pseudo);
 begin
  UserPage := CreateInputQueryPage(wpInstalling,
    'Information de jeu', 'Quel est votre pseudo ?',
    'Saisissez le pseudo que vous souhaitez avoir en jeu.');
  UserPage.Add('Pseudo :', False);
  UserPage.Values[0] := Pseudo;
 end;
end;
{ Skin }
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';
function InitializeSetup(): Boolean;
var
  SplashImage: TBitmapImage;
  SplashForm: TForm;
  SplashFileName: String;
  I : Integer;
begin
  SplashFileName := ExpandConstant('{tmp}\{#Splash}');
  ExtractTemporaryFile(ExtractFileName(SplashFileName));
 
  SplashForm := TForm.create(nil);
  with SplashForm do
   begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    ClientWidth := 600;
    ClientHeight := 293;
   end;
 
  SplashImage := TBitmapImage.Create(SplashForm);
  with SplashImage do
    begin
    Bitmap.LoadFromFile(SplashFileName);
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
 
  with SplashForm do
   begin
     Show;
     for I := 1 to 5 do
      begin
       Repaint;
       Sleep(400);
      end;
     Close;
     Free;
   end;
   begin
  ExtractTemporaryFile('{#Skin}.msstyles');
  LoadSkin(ExpandConstant('{tmp}\{#Skin}.msstyles'), '');
  Result := True;
end;
end;
procedure ISSI_DeinitializeSetup();
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;
function NextButtonClick(CurPageID: Integer): Boolean;
var
  aExecFile, bExecDir: String;
begin
  Result := True;
  if CurPageID = wpSelectdir then
  begin
    aExecFile := ExpandConstant('{app}') + '\fichier.exe';
    bExecDir := ExpandConstant('{app}') + '\dossier';
    if not FileExists(aExecFile) then
    begin
      MsgBox('Ce répertoire ne correspond pas au jeu {#Game} !', mbError, MB_OK);
      Result := False;
    end
    else if not DirExists(bExecDir) then
    begin
      MsgBox('Ce répertoire ne correspond pas au jeu {#Game} !', mbError, MB_OK);
      Result := False;
    end
  end
   If CurPageID = UserPage.ID then
   begin
   if UserPage.Values[0] = '' then begin
      MsgBox('Merci de saisir votre pseudo.', mbError, MB_OK);
      Result := False;
    end
  Begin
  RegWriteStringValue(HKCU, 'Software\Valve\Steam', 'LastGameNameUsed', UserPage.Values[0])
  end;
  Begin
    SetIniString('Emulator', //section
    'SteamUser', //clé
    UserPage.Values[0], //valeur de la page perso
    ExpandConstant('{app}\rev.ini'));
    SetIniString('steamclient',
    'Playername',
    UserPage.Values[0],
    ExpandConstant('{app}\rev.ini'));
  end;
end;
end;
Merci d'avance