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; |
