API tools faq
paste
Guest User

inn script

a guest
Nov 14th, 2011
158
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 141.81 KB | None | 0 0
raw download clone embed print report
  1. ;#UNINSTALL REG DISABLED
  2. ;#define CustomGDFBinary
  3.  
  4. ; TUTAJ WRZUCAMY PRODUCT CODE, ALE JESLI NIE MAMY, MOŻNA TO WYKOMENTOWAĆ
  5. ;#define ProductCode "{76285C16-411A-488A-BCE3-C83CB933D8CF}"
  6.  
  7. [Setup]
  8. AppName={code:GetAppName}
  9. AppVerName={code:GetAppName}
  10. DefaultDirName={pf}\{code:GetAppPublisher}\{code:GetAppName}
  11. DefaultGroupName={code:GetAppPublisher}\{code:GetAppName}
  12. VersionInfoDescription=TLRG
  13. VersionInfoCopyright=TLRG
  14. VersionInfoProductName=TLRG
  15. VersionInfoVersion=6.6.0.0
  16. VersionInfoCompany=TLRG
  17. DirExistsWarning=no
  18. DisableReadyPage=true
  19. ShowLanguageDialog=no
  20. OutputBaseFilename=Setup.dll
  21. OutputDir=.
  22. ;OutputDir=.
  23. Compression=none
  24. DisableStartupPrompt=true
  25. ;LicenseFile=EULA\eula.rtf
  26. DisableProgramGroupPage=yes
  27. SetupIconFile=Setup.ico
  28. ;WindowVisible=true
  29. WindowShowCaption=false
  30. WindowResizable=false
  31. BackColor=clBlack
  32. WizardImageFile=blank.bmp
  33. CreateUninstallRegKey=true
  34. UsePreviousLanguage=No
  35. ;PrivilegesRequired=lowest
  36. ChangesEnvironment=yes
  37. ChangesAssociations=yes
  38. UninstallFilesDir={app}\Uninstall
  39.  
  40.  
  41.  
  42. [UninstallDelete]
  43. Type: filesandordirs; Name: {app}
  44.  
  45. [Languages]
  46. Name: eng; MessagesFile: Languages\English.isl
  47. Name: cze; MessagesFile: Languages\Czech.isl
  48. Name: cnt; MessagesFile: Languages\ChineseTrad.isl
  49. Name: dan; MessagesFile: Languages\Danish.isl
  50. Name: ndl; MessagesFile: Languages\Dutch.isl
  51. Name: fre; MessagesFile: languages\french.isl
  52. Name: ger; MessagesFile: Languages\German.isl
  53. Name: hun; MessagesFile: languages\Hungarian.isl
  54. Name: ita; MessagesFile: languages\italian.isl
  55. Name: jap; MessagesFile: Languages\Japanese.isl
  56. Name: kor; MessagesFile: Languages\Korean.isl
  57. Name: nor; MessagesFile: Languages\Norwegian.isl
  58. Name: pol; MessagesFile: Languages\Polish.isl
  59. Name: por; MessagesFile: Languages\Portuguese.isl
  60. Name: rus; MessagesFile: Languages\Russian.isl
  61. Name: esp; MessagesFile: Languages\Spanish.isl
  62. Name: swe; MessagesFile: Languages\Swedish.isl
  63. Name: tha; MessagesFile: Languages\Thai.isl
  64. Name: tur; MessagesFile: Languages\Turkish.isl
  65.  
  66. [Icons]
  67. Name: {group}\{code:GetAppName} {cm:uninstall}; Filename: {uninstallexe}; WorkingDir: {app}
  68. Name: {group}\{code:GetAppName}; Filename: {app}\{code:GetMyAppExePath}\{code:GetMyAppExeName}; WorkingDir: {app}\{code:GetMyAppExePath}
  69. Name: {userdesktop}\{code:GetAppName}; Filename: {app}\{code:GetMyAppExePath}\{code:GetMyAppExeName}; WorkingDir: {app}\{code:GetMyAppExePath}
  70.  
  71.  
  72. [Registry]
  73. Root: HKLM; SubKey: "SOFTWARE\{code:GetAppPublisher}\{code:GetAppName}"; ValueName: UninstallString; ValueData: {uninstallexe}; ValueType: string; Flags: UninsDeleteKey;
  74.  
  75. [Code]
  76.  
  77. type
  78. #ifdef UNICODE
  79. #define A "W"
  80. #else
  81. #define A "A" ;// òî÷êà âõîäà â SetWindowText, {#A} ìåíÿåòñÿ íà A èëè W â çàâèñèìîñòè îò âåðñèè
  82. #if Ver < 84084736
  83. PAnsiChar = PChar; // Required for Inno Setup 5.3.0 and lower. (òðåáóåòñÿ äëÿ Inno Setup âåðñèè 5.3.0 è íèæå)
  84. #endif
  85. #endif
  86. #if Ver < 84018176
  87. AnsiString = String; // There is no need for this line in Inno Setup 5.2.4 and above (äëÿ Inno Setup âåðñèé 5.2.4 è âûøå ýòà ñòðîêà íå íóæíà)
  88. #endif
  89.  
  90. TCallback = function (Pct: integer;CurrentFile:string): longword;
  91. TMessage = record hWnd: HWND; msg, wParam: Word; lParam: LongWord; Time: TFileTime; pt: TPoint; end;
  92. TArc = record Path, Dest, comp, task, pass: string; allMb: Integer; Disks: Integer; UnPack, UnPacked: Boolean; end;
  93. TCWPSTRUCT = record lParam: LongWord; wParam: Word; Msg: LongWord; hwnd: HWnd; end;
  94. TCWPSTRUCTProc = procedure(Code: Integer; wParam: Word; lParam: TCWPSTRUCT);
  95. TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord);
  96. TBGIChange=procedure;
  97.  
  98.  
  99.  
  100. var
  101. GUID: TGUID;
  102. MyCancelButton,Musiconoff2, CancelButton2: TButton;
  103. OveralPct,Cancel:integer;
  104. CallBack:longword;
  105. MyError:boolean;
  106. Arcs, AllArchives: array of string;
  107. StatusLabel, FileNameLabel, ExtractFile, StatusInfo: TLabel;
  108. PrepareProgressBar,ProgressBar: TNewProgressBar;
  109. CancelCode, n, ArcInd, UnPackError, StartInstall, LastTimerEvent, lastMb, baseMb: Integer;
  110. FreeMB, TotalMB: Cardinal;
  111. WndHookID, TimerID, TimerID2: LongWord;
  112. msgError, CompressMethod, ProductCode: string;
  113. FreezeTimer, SuspendUpdate: Boolean;
  114. alpha, origsize, FastInstall, Disabled, SleepTime: Integer; // total uncompressed size of archive data in mb
  115. Labl4: TLabel;
  116.  
  117. CustomInstallButton, btnCancelUnpacking: TButton;
  118. SplashLabel, LicenseLabel1, AcceptLicenseLabel,MainLabel, lblExtractFileName: TLabel;
  119. AcceptLicense,DirectX, Redist,Icons, Group, Music, Physx,GFWL: TCheckBox;///????????
  120. WelcomeLabel1, WelcomeLabel2,InstallingPageLabel1,InstallingPageLabel2,GFWLText: TLabel;
  121. BlankLabel,WelcomeLabel,SelectDirBrowseLabel,SelectDirBrowseLabel1, SelectDirBrowseLabel2, FinishedLabel1, FinishedLabel2, FinishedHeadingLabel, PrepareLabel : TLabel;///????????
  122. lblDirectX, lblRedist,lblIcons, lblGroup, PhysxText: TLabel;///??????? ? ?????????
  123. Musiconoff : TButton;
  124. NeedSpaceLabel,FreeSpaceLabel: TLabel;//????? ?? ?????
  125. WindowsVersion: TWindowsVersion;
  126. FreeArcEnabled, yener90Mode, TestMode, BeforeInstall, CancelMode : Boolean;
  127. appath, S, DateString: String;
  128. BmpFile1,BmpFile2,BmpFile3,BmpFile4,BmpFile5,BmpFile6, BmpFile7, BmpFile8, Image, Image2, Image3, Image4, Image5 : TBitmapImage;
  129. BGForm, PrepareForm, SplashForm : TForm;
  130. BGImage, SplashImage : TBitmapImage;
  131. SplashPanel : TPanel;
  132. PictureShown, ResultCode, counter2, BackgroundImageQuantity: Integer;
  133. ButtonPanel: array [0..9] of TPanel;
  134. ButtonImage: array [0..9] of TBitmapImage;
  135. ButtonLabel: array [0..9] of TLabel;
  136.  
  137. var
  138. Panel, Panel3, BmpPanel1: TPanel;
  139. Labl, Labl3: TLabel;
  140.  
  141. const
  142. CP_ACP = 0; CP_UTF8 = 65001;
  143. oneMB=1024*1024;
  144. Period = 250; // ÷àñòîòà îáíîâëåíèÿ êíîïêè òàñêáàðà è ñòðîêè ñòàòóñà
  145. VK_ESCAPE = 27;
  146. HC_ACTION = 0;
  147. WM_PAINT = $F;
  148. CancelDuringInstall = True;
  149. bidBack = 0;
  150. bidNext = 1;
  151. bidCancel = 2;
  152. bidDirBrowse = 3;
  153. bidGroupBrowse = 4;
  154. bidFastInstall = 5;
  155. bidCustomInstall = 6;
  156. bidMusicButton = 7;
  157. bidMusic2Button = 8;
  158. bidCancel2 = 9;
  159. SND_FILENAME = $00020000;
  160. SND_ASYNC = $0001;
  161. ButtonImage6Height = 23;
  162. ButtonImage6Width = 200;
  163. ButtonImage7Height = 23;
  164. ButtonImage7Width = 200;
  165. ButtonImage8Height = 23;
  166. ButtonImage8Width = 80 ;
  167. ButtonImage9Height = 23;
  168. ButtonImage9Width = 200;
  169. ButtonImage10Height = 23;
  170. ButtonImage10Width = 200;
  171. ButtonImage11Height = 23;
  172. ButtonImage11Width = 200;
  173. GWL_EXSTYLE = (-20);
  174. WS_EX_LAYERED = $80000;
  175. LWA_ALPHA = $2;
  176.  
  177. {$EXTERNALSYM AW_HOR_POSITIVE}
  178. AW_HOR_POSITIVE = $00000001;
  179. {$EXTERNALSYM AW_HOR_NEGATIVE}
  180. AW_HOR_NEGATIVE = $00000002;
  181. {$EXTERNALSYM AW_VER_POSITIVE}
  182. AW_VER_POSITIVE = $00000004;
  183. {$EXTERNALSYM AW_VER_NEGATIVE}
  184. AW_VER_NEGATIVE = $00000008;
  185. {$EXTERNALSYM AW_CENTER}
  186. AW_CENTER = $00000010;
  187. {$EXTERNALSYM AW_HIDE}
  188. AW_HIDE = $00010000;
  189. {$EXTERNALSYM AW_ACTIVATE}
  190. AW_ACTIVATE = $00020000;
  191. {$EXTERNALSYM AW_SLIDE}
  192. AW_SLIDE = $00040000;
  193. {$EXTERNALSYM AW_BLEND}
  194. AW_BLEND = $00080000;
  195.  
  196. function PeekMessage(var lpMsg: TMessage; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external '[email protected] stdcall';
  197. function TranslateMessage(const lpMsg: TMessage): BOOL; external '[email protected] stdcall';
  198. function DispatchMessage(const lpMsg: TMessage): Longint; external '[email protected] stdcall';
  199.  
  200. function WrapMyCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:innocallback.dll stdcall';
  201.  
  202. function ISArcExtract(CurComponent:longword; var OveralPct:integer; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; callback: longword; Password, CfgFile, WorkPath: AnsiString):BOOL; external 'ISArcExtract@files:ISDone.dll stdcall';
  203. function IS7ZipExtract(CurComponent:longword; var OveralPct:integer; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; callback: longword; Password: AnsiString):BOOL; external 'IS7zipExtract@files:ISDone.dll stdcall';
  204. function ISRarExtract(CurComponent:longword; var OveralPct:integer; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; callback: longword; Password: AnsiString):BOOL; external 'ISRarExtract@files:ISDone.dll stdcall';
  205. function ISPrecompExtract(CurComponent:longword; var OveralPct:integer; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean; callback: longword):BOOL; external 'ISPrecompExtract@files:ISDone.dll stdcall';
  206. function ISSRepExtract(CurComponent:longword; var OveralPct:integer; PctOfTotal:double; InName, OutFile, IdxFile: AnsiString; DeleteInFile:boolean; callback: longword):BOOL; external 'ISSrepExtract@files:ISDone.dll stdcall';
  207. function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):BOOL; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall';
  208. function StartRecord(RecordFileName:AnsiString; AllComponents:longword):BOOL; external 'StartRecord@files:ISDone.dll stdcall';
  209. function CheckPoint(CurComponent:Integer):BOOL; external 'CheckPoint@files:ISDone.dll stdcall';
  210. function StopRecord:BOOL; external 'StopRecord@files:ISDone.dll stdcall';
  211. function SetLayeredWindowAttributes(hwnd:DWord; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; external 'SetLayeredWindowAttributes@user32 stdcall';
  212. function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external '[email protected] stdcall';
  213. function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; external 'AnimateWindow@user32 stdcall';
  214.  
  215. function GetTickCount: DWord; external 'GetTickCount@kernel32';
  216. function GetWindowLong(hWnd, nIndex: Integer): Longint; external 'GetWindowLongA@user32 stdcall delayload';
  217. function SetWindowText(hWnd: Longint; lpString: String): Longint; external 'SetWindowText{#A}@user32 stdcall delayload';
  218. function GetKeyState(nVirtKey: Integer): ShortInt; external 'GetKeyState@user32 stdcall delayload';
  219. function GetCurrentThreadID: LongWord; external 'GetCurrentThreadId@kernel32 stdcall delayload';
  220. function CallNextWNDPROC(idHook: LongWord; Code: Integer; wParam: Word; lParam: TCWPSTRUCT): LongWord; external 'CallNextHookEx@user32 stdcall delayload';
  221. function SetWindowsHookEx(idHook: LongWord; callback: LongWord; hMod: LongWord; dwThreadID: HWND): LongWord; external 'SetWindowsHookExW@user32 stdcall delayload';
  222. function UnhookWindowsHookEx(idHook: LongWord): LongWord; external 'UnhookWindowsHookEx@user32 stdcall delayload';
  223. function WrapCWPSTRUCTProc(callback:TCWPSTRUCTProc; paramcount:integer): longword; external 'wrapcallback@files:innocallback.dll';
  224. function WrapTimerProc(callback: TTimerProc; Paramcount: Integer): longword; external 'wrapcallback@files:innocallback.dll stdcall';
  225. function WrapBGI(callback: TBGIChange; Paramcount: Integer): longword; external 'wrapcallback@files:innocallback.dll stdcall';
  226. function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external 'SetTimer@user32';
  227. function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32 stdcall delayload';
  228.  
  229. function GenerateGUID(var GUID: TGUID): Cardinal; external 'GenerateGUID@files:GameuxInstallHelper.dll stdcall setuponly';
  230. function AddToGameExplorer(Binary: String; Path: String; InstallType: Integer; var GUID: TGUID): Cardinal; external 'AddToGameExplorerW@files:GameuxInstallHelper.dll stdcall setuponly';
  231. function CreateTask(InstallType: Integer; var GUID: TGUID; TaskType: Integer; TaskNumber: Integer; TaskName: String; Binary: String; Parameters: String): Cardinal; external 'CreateTaskW@files:GameuxInstallHelper.dll stdcall setuponly';
  232. function RetrieveGUIDForApplication(Binary: String; var GUID: TGUID): Cardinal; external 'RetrieveGUIDForApplicationW@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
  233. function RemoveFromGameExplorer(var GUID: TGUID): Cardinal; external 'RemoveFromGameExplorer@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
  234. function RemoveTasks(var GUID: TGUID): Cardinal; external 'RemoveTasks@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
  235. function sndPlaySound(lpszSoundName: PAnsiChar; uFlags: cardinal):Integer; external '[email protected]';
  236. function mciSendString(lpstrCommand, lpstrReturnString: PAnsiChar; uReturnLength: UINT; hWndCallback: HWND): Integer; external '[email protected] stdcall';
  237. function GetSystemMetrics(nIndex : Integer): Integer; external 'GetSystemMetrics@user32 stdcall';
  238. function GetWorkArea(uiAction, uiParam: LongWord; var Recto: TRect; fWinIni: LongWord): LongBool; external '[email protected] stdcall';
  239. function ShowWindow (hWnd: DWord; nCmdShow: Integer): boolean; external '[email protected] stdcall';
  240. Function cm(Message: String): String; Begin Result:= ExpandConstant('{cm:'+ Message +'}') End;
  241.  
  242.  
  243. function LanguageTranslator(lang:String):String;
  244. begin
  245. Case Uppercase(lang) of
  246. 'CZ': Result:= 'cze';
  247. 'CNT': Result:= 'cnt';
  248. 'DE': Result:= 'ger';
  249. 'DK': Result:= 'dan';
  250. 'EN': Result:= 'eng';
  251. 'ES': Result:= 'esp';
  252. 'FR': Result:= 'fre';
  253. 'HU': Result:= 'hun';
  254. 'IT': Result:= 'ita';
  255. 'JP': Result:= 'jap';
  256. 'KO': Result:= 'kor';
  257. 'NL': Result:= 'ndl';
  258. 'NO': Result:= 'nor';
  259. 'PL': Result:= 'pol';
  260. 'PR': Result:= 'por';
  261. 'RU': Result:= 'rus';
  262. 'SW': Result:= 'swe';
  263. 'TH': Result:= 'tha';
  264. 'TR': Result:= 'tur';
  265. end;
  266. end;
  267.  
  268. function LanguageTranslator2(lang:String):String;
  269. begin
  270. Case lang of
  271. 'cze': Result:= 'CZ';
  272. 'ger': Result:= 'DE';
  273. 'cnt': Result:= 'CNT';
  274. 'dan': Result:= 'DK';
  275. 'eng': Result:= 'EN';
  276. 'esp': Result:= 'ES';
  277. 'fre': Result:= 'FR';
  278. 'hun': Result:= 'HU';
  279. 'ita': Result:= 'IT';
  280. 'jap': Result:= 'JP';
  281. 'kor': Result:= 'KO';
  282. 'ndl': Result:= 'NL';
  283. 'nor': Result:= 'NO';
  284. 'pol': Result:= 'PL';
  285. 'por': Result:= 'PR';
  286. 'rus': Result:= 'RU';
  287. 'swe': Result:= 'SW';
  288. 'tha': Result:= 'TH';
  289. 'tur': Result:= 'TR';
  290. end;
  291. end;
  292.  
  293. function InstallerWidth:integer ;
  294. begin
  295. Result:=BMPFile1.Bitmap.Width;
  296. end;
  297.  
  298. function InstallerHeight:integer ;
  299. begin
  300. Result:=BMPFile1.Bitmap.Height;
  301. end;
  302.  
  303. Function DeleteChars(S, Char: String): String; begin if (Pos(Char, S)>0) then
  304. begin while (Pos(Char, S)>0) do StringChange(S, Char, ''); end; Result:=S; end;
  305.  
  306. Function CutStr(var S: String; Index, Length: Integer): String; var str: string;
  307. begin str:= Copy(S, Index, Length); Delete(S, Index, Length); Result:=Str; end;
  308.  
  309. Function CutStrEx(var S: String; Code: String): String;
  310. var str: string; pos1, pos2: integer; begin pos1:= Pos(Code, S); If (pos1>0) then begin
  311. pos2:=pos1; while S[pos2]<>';' do if pos2<>length(S) then pos2:=pos2+1; str:=cutStr(S, pos1, (pos2-pos1)+1);
  312. StringChange(str, Code, ''); if str[Length(str)]=';' then Setlength(str, Length(str)-1); end; Result:=str; end;
  313.  
  314. Function ExpandENV(string: String): String; var n: UINT; Begin // ExpandConstant + ðàçâ¸ðòûâàíèå DOS-ïåðåìåííûõ òèïà %SystemRoot%
  315. if Pos('{',string) * Pos('}',string) = 0 then Result:= String else Result:= ExpandConstant(String); n:= Pos('%',result); if n = 0 then Exit;
  316. Delete(result, n,1); Result:= Copy(Result,1, n-1) + ExpandConstant('{%'+Copy(Result, n, Pos('%',result) -n) +'}') + Copy(Result, Pos('%',result) +1, Length(result))
  317. End;
  318.  
  319. procedure BGIChanger;
  320. begin
  321. with WizardForm.ProgressGauge do begin
  322. if (Position >= round(counter2 * Max /BackgroundImageQuantity)) and (PictureShown = counter2) and (BackgroundImageQuantity >= (counter2 +1)) then begin
  323. BGImage.Bitmap.LoadFromFile(ExpandConstant('{src}\background'+ IntToStr(counter2 + 1) + '.bmp'));
  324. PictureShown := PictureShown + 1
  325. counter2 := counter2 + 1
  326. end;
  327. end;end;
  328.  
  329. procedure WizardClose(Sender: TObject; var Action: TCloseAction);
  330. Begin
  331. Action:= caFree;
  332. DeleteFile(ExpandConstant('{src}\Setup.dll'));
  333. End;
  334.  
  335. function GetAppName(Default:String):String;
  336. begin
  337. Result:=GetIniString('InstallOptions', 'ApplicationName', '', ExpandConstant('{src}\Setup.ini'))
  338. end;
  339.  
  340. function GetAppPublisher(Default:String):String;
  341. begin
  342. Result:=GetIniString('InstallOptions', 'Publisher', '', ExpandConstant('{src}\Setup.ini'))
  343. end;
  344.  
  345.  
  346.  
  347. function GetMyAppExeName(Default:String):String;
  348. begin
  349. Result:=GetIniString('InstallOptions', 'MyExecutableName', '', ExpandConstant('{src}\Setup.ini'))
  350. end;
  351.  
  352. function GetMyAppExePath(Default:String):String;
  353. begin
  354. Result:=GetIniString('InstallOptions', 'MyExecutablePath', '', ExpandConstant('{src}\Setup.ini'))
  355. end;
  356.  
  357. Procedure SetTaskBarTitle(Title: String); var h: Integer;
  358. Begin
  359. h:= GetWindowLong(MainForm.Handle, -8); if h <> 0 then SetWindowText(h, Title);
  360. End;
  361.  
  362. function GetSourcePath(Default:String):String;
  363. begin
  364. S := GetCmdTail
  365. S := Copy(S, Pos('/SRCPATH="',S) +10, Length(S))
  366. S := Copy(S, 0, Pos('"',S) - 1)
  367. Result:=S
  368. end;
  369.  
  370. Function ArcDecode(Line: String):array of String; // ðàçáîð ñòðîêè Archives
  371. var TmpStr:String;
  372. begin
  373. SetArrayLength(Result, 7);
  374. TmpStr:=Line
  375. if Copy(TmpStr, Length(TmpStr),1) <> ';' then
  376. TmpStr:=TmpStr + ';' ;
  377. Result[0]:= ExpandConstant(Copy(TmpStr, 0, Pos(';',TmpStr) - 1))
  378. StringChangeEx(Result[0], ExpandConstant('{src}'), GetSourcePath(''),True);
  379. TmpStr := Copy(TmpStr, Pos(';',TmpStr) + 1, Length (TmpStr))
  380. if Pos('DestDir:',TmpStr) <> 0 then begin
  381. Result[1]:= Copy(TmpStr,Pos('DestDir:' ,TmpStr) + 8, Length (TmpStr))
  382. Result[1]:= Copy(Result[1],0, Pos(';',Result[1]) - 1)
  383. StringChange(TmpStr, 'DestDir:' + Result[1] + ';', '')
  384. Result[1]:= ExpandConstant(Result[1])
  385. end else
  386. Result[1]:= ExpandConstant('{app}');
  387. if Pos('Disk:',TmpStr) <> 0 then begin
  388. Result[2]:= Copy(TmpStr,Pos('Disk:' ,TmpStr) + 5, Length (TmpStr))
  389. Result[2]:= Copy(Result[2],0, Pos(';',Result[2]) - 1)
  390. StringChange(TmpStr, 'Disk:' + Result[2] + ';', '')
  391. //Result[1]:= ExpandConstant(Result[1])
  392. end else
  393. Result[2]:= '1';
  394. if Pos('PrecSrep:',TmpStr) <> 0 then begin
  395. Result[3]:= Copy(TmpStr,Pos('PrecSrep:' ,TmpStr) + 9, Length (TmpStr))
  396. Result[3]:= Copy(Result[3],0, Pos(';',Result[3]) - 1)
  397. StringChange(TmpStr, 'PrecSrep:' + Result[3] + ';', '')
  398. //Result[1]:= ExpandConstant(Result[1])
  399. end else
  400. Result[3]:= '0';
  401. if Pos('Lang:',TmpStr) <> 0 then begin
  402. Result[4]:= Copy(TmpStr,Pos('Lang:' ,TmpStr) + 5, Length (TmpStr))
  403. Result[4]:= Copy(Result[4],0, Pos(';',Result[4]) - 1)
  404. StringChange(TmpStr, 'Lang:' + Result[4] + ';', '')
  405. //Result[1]:= ExpandConstant(Result[1])
  406. end else
  407. Result[4]:= '';
  408. //if (Pos('Tasks:', Line)>0) then Result[1]:= DeleteChars(CutStrEx(cut, 'Tasks:'), ';');
  409. // end;
  410. end;
  411.  
  412. procedure CancelButtonOnClick(Sender: TObject);
  413. begin
  414. if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then Cancel:=1;
  415. end;
  416.  
  417. function ProgressCallback(Pct: integer; CurrentFile:String): longword;
  418. var Msg: TMessage;
  419. begin
  420. if Pct<=Wizardform.ProgressGauge.Max then begin
  421. Wizardform.ProgressGauge.Position := Pct
  422. end;
  423. if (Wizardform.ProgressGauge.Position<=Wizardform.ProgressGauge.Max) and (FileExists(ExpandConstant('{src}\background1.bmp'))) and (FileExists(ExpandConstant('{src}\Installer.bmp'))) then begin
  424. BGIChanger end;
  425. while PeekMessage(Msg, 0, 0, 0, 1) do begin
  426. TranslateMessage(Msg);
  427. DispatchMessage(Msg);
  428. end;
  429. Result := Cancel;
  430. end;
  431.  
  432. procedure AddRegistryInfo;
  433. begin
  434. #ifdef ProductCode
  435. ProductCode := '{#ProductCode}'
  436. #endif
  437. DateString := GetDateTimeString('yyyy/mm/dd','-' ,'-' );
  438. StringChangeEx(DateString, '-', '', True);
  439. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'AuthorizedCDFPrefix', '');
  440. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Comments', '');
  441. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Contact', '');
  442. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'DisplayIcon', ExpandConstant('{app}\'+ GetMyAppExeName('')));
  443. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'DisplayName', GetAppName(''));
  444. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'DisplayVersion', '1.0');
  445. //RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'EstimatedSize', 10496897);
  446. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'GameLink', ExpandConstant('{app}\deadspace2.exe'));
  447. //RegWriteExpandStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'HelpLink', ExpandConstant('{app}\docs\EA Help\Electronic_Arts_Technical_Support.htm'));
  448. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'HelpTelephone', '');
  449. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'InstallDate', DateString);
  450. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'InstallLocation', ExpandConstant('{app}\'));
  451. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'InstallSource', ExpandConstant('{code:GetSourcePath}\'));
  452. //RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Language', StrToInt(ExpandConstant('{cm:LanguageNR}')));
  453. //RegWriteExpandStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'ModifyPath', ExpandConstant('{uninstallexe}'));
  454. RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'NoModify', 1);
  455. RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'NoRepair', 1);
  456. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Publisher', GetAppPublisher(''));
  457. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'ProductGuid', ProductCode);
  458. //RegWriteExpandStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Readme', ExpandConstant('{app}\docs\ReadMe_de.txt'));
  459. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Size', '');
  460. RegWriteExpandStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'UninstallString', ExpandConstant('"{uninstallexe}"'));
  461. RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'URLInfoAbout', 'http://www.torrentleech.pl/');
  462. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'URLUpdateInfo', '');
  463. //RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'Version', 16777216);
  464. RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'VersionMajor', 1);
  465. RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'VersionMinor', 0);
  466. //RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'WindowsInstaller', 0);
  467. //RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode, 'WorkingDirectory', ExpandConstant('{app}\'));
  468. //Additional
  469. //RegWriteStringValue(HKLM, 'SOFTWARE\BioWare\Dragon Age 2', 'GUID', ProductCode);
  470. end;
  471.  
  472. procedure CancelButton2OnClick(Sender: TObject);
  473. begin
  474. Wizardform.CancelButton.OnClick(nil);
  475. end;
  476.  
  477. procedure ExitButtonOnClick(Sender: TObject;var Action: TCloseAction);
  478. begin
  479. Action:= caNone;
  480. if (Wizardform.CurPageId = wpInstalling) then
  481. Wizardform.CancelButton.OnClick(nil)
  482. else
  483. mainform.close;
  484. end;
  485.  
  486. function infomusic: string;
  487. begin
  488. if Music.Checked =False then begin
  489. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = True) then
  490. Result:= ExpandConstant('{cm:BM}: {cm:BMoff}')
  491. else
  492. Result:= ExpandConstant('{cm:BM}' + #13 + #10 + '- {cm:BMoff} -');
  493. end else begin
  494. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = True) then
  495. Result:= ExpandConstant('{cm:BM}: {cm:BMon}')
  496. else
  497. Result:= ExpandConstant('{cm:BM}' + #13 + #10 + '- {cm:BMon} -');
  498. end;
  499. end;
  500.  
  501. function infomusic2: string;
  502. begin
  503. if Music.Checked =False then
  504. Result:= ExpandConstant('{cm:BM}: {cm:BMoff}')
  505. else
  506. Result:= ExpandConstant('{cm:BM}: {cm:BMon}')
  507. end;
  508.  
  509. procedure DeleteRegistryInfo;
  510. begin
  511. #ifdef ProductCode
  512. ProductCode := '{#ProductCode}'
  513. #endif
  514. RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductCode);
  515. //Additional
  516. //RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\BioWare\Dragon Age 2');
  517. end;
  518.  
  519. function SetupMessage2(MsgID: TSetupMessageID): String;
  520. begin
  521. Result := SetupMessage(MsgID);
  522. StringChangeEx(Result, '[name]', GetAppName(''), True);
  523. Result := Result
  524. // S now equals '&Next >'
  525. end;
  526.  
  527. function DiskSpaceLabelFix: String;
  528. var
  529. StpMsg: String;
  530. begin
  531. Result := SetupMessage(MsgDiskSpaceMBLabel);
  532. StringChangeEx(Result, '[mb]', GetIniString('InstallOptions', 'GameSize', '', ExpandConstant('{src}\Setup.ini')), True);
  533.  
  534. // S now equals '&Next >'
  535. end;
  536.  
  537. function IntToHex(l:longword; digits:integer):string;
  538.  
  539. var hexchars:string;
  540.  
  541. begin
  542.  
  543. hexchars:='0123456789ABCDEF';
  544. setlength(result,digits);
  545.  
  546. while (digits>0) do begin
  547.  
  548. result[digits]:=hexchars[l mod 16+1];
  549. l:=l div 16;
  550. digits:=digits-1;
  551. end;
  552. end;
  553.  
  554. procedure Background (SpBitmap : string);
  555.  
  556. begin
  557. BGForm := TForm.Create(nil);
  558. BGImage := TBitmapImage.Create(BGForm);
  559. with BGImage do
  560. begin
  561. Bitmap.LoadFromFile(ExpandConstant('{src}\' + SpBitmap));
  562. Parent := BGForm;
  563. Top:= GetSystemMetrics(1) /2 - Bitmap.Height / 2
  564. Left:= GetSystemMetrics(0) /2 - Bitmap.Width / 2
  565. Width:= Bitmap.Width
  566. Height:= Bitmap.Height
  567. Stretch := false;
  568. end;
  569.  
  570. with BGForm do
  571. begin
  572. Color := ClBlack
  573. BorderStyle := bsNone;
  574. Position := poScreenCenter;
  575. Enabled := False;
  576. Width := GetSystemMetrics(0);
  577. Height := GetSystemMetrics(1) + 50;
  578. // FormStyle := fsStayOnTop;
  579. Show();
  580. Repaint();
  581. end;;
  582. with Wizardform do begin
  583. // FormStyle := fsStayOnTop;
  584. end;
  585. end;
  586.  
  587.  
  588. procedure Splash (SpBitmap : string);
  589.  
  590. begin
  591. SplashForm := TForm.Create(nil);
  592. SplashPanel := TPanel.Create(SplashForm);
  593. SplashImage := TBitmapImage.Create(SplashForm);
  594. with SplashImage do
  595. begin
  596. Bitmap.LoadFromFile(ExpandConstant('{src}\' + SpBitmap));
  597. // Align := alTop;
  598. Parent := SplashPanel;
  599. Top:= 0
  600. Left:= 0
  601. Stretch := False;
  602. Width:=SplashImage.BitMap.Width;
  603. Height := SplashImage.BitMap.Height;
  604. if yener90Mode = True then
  605. Hide;
  606.  
  607. end;
  608. if yener90Mode = True then begin
  609. SplashLabel := TLabel.Create(SplashForm);
  610. with SplashLabel do
  611. begin
  612. Font.Size:= 11;
  613. Font.Name:= 'Comic Sans MS';
  614. Font.Color:=clWhite
  615. Parent := SplashForm;
  616. Alignment := taCenter;
  617. Top:= 0
  618. Left:= 0
  619. Autosize := False;
  620. Width:=SplashImage.BitMap.Width;
  621. Height := SplashImage.BitMap.Height;
  622. Caption := #13 + 'All my respect to my friends: ' +#13 + '2x+1, Dark_Siegfried89, mondragon, nando2002,' +#13 + ' pakrat2k2 and senseman' +#13 + #13 +'and also to:' +#13 + 'Bulat Ziganshin (FreeArc Creator), EMPiRE, ' +#13 + ' FREEMAN100, Joe Forster/STA, ' +#13 + ' Jordan Russel(Inno Setup Creator) and ravd' +#13 + #13 + 'No respect to some kind of idiots'
  623. end;
  624. end;
  625. with SplashPanel do
  626. begin
  627. // Align := alTop;
  628. Parent := SplashForm;
  629. Top:= 0
  630. Left:= 0
  631. Width:=SplashImage.BitMap.Width;
  632. Height := SplashImage.BitMap.Height;
  633. if yener90Mode = True then
  634. Hide;
  635.  
  636. end;
  637. with SplashForm do
  638. begin
  639. Color := ClBlack
  640. if yener90Mode = True then
  641. Color := $24248E;
  642. BorderStyle := bsNone;
  643. Position := poScreenCenter;
  644. Enabled := False;
  645. ClientWidth := SplashImage.BitMap.Width;
  646. ClientHeight := SplashImage.BitMap.Height;
  647. Show();
  648. Repaint();
  649. Splashform.Width := SplashImage.Bitmap.Width
  650. Splashform.Height := SplashImage.Bitmap.Height
  651. if (Lowercase(GetIniString('InterfaceSettings', 'SplashAnimation', '', ExpandConstant('{src}\Setup.ini'))) <> 'fade') and (Lowercase(GetIniString('InterfaceSettings', 'SplashAnimation', '', ExpandConstant('{src}\Setup.ini'))) <> 'ring') and (Lowercase(GetIniString('InterfaceSettings', 'SplashAnimation', '', ExpandConstant('{src}\Setup.ini'))) <> 'transparent')then begin
  652. Sleep(2000);
  653. Close();
  654. Free();
  655. end;
  656.  
  657. if (Lowercase(GetIniString('InterfaceSettings', 'SplashAnimation', '', ExpandConstant('{src}\Setup.ini'))) = 'fade') then begin
  658. Splashform.Height := 0;
  659. repeat
  660. Repaint();
  661. Sleep(5); // will hold the splash for 1 sec.
  662. Splashform.Top := GetSystemMetrics(1) /2 - Splashform.Height /2
  663. Splashform.Height :=Splashform.Height + 1
  664. until (Splashform.Height = SplashImage.BitMap.Height)// or (Splashform.Height = 400)
  665. Repaint();
  666. Sleep(1000);
  667. if yener90Mode = True then
  668. Sleep(9000);
  669. repeat
  670. Repaint();
  671. Sleep(1); // will hold the splash for 1 sec.
  672. Splashform.Top := GetSystemMetrics(1) /2 - Splashform.Height /2
  673. Splashform.Height :=Splashform.Height - 1
  674. until (Splashform.Width = 0) or (Splashform.Height = 0)
  675.  
  676. Close();
  677. Free();
  678. end;
  679. if (Lowercase(GetIniString('InterfaceSettings', 'SplashAnimation', '', ExpandConstant('{src}\Setup.ini'))) = 'ring') then begin
  680. SleepTime := 30
  681. Splashform.Top := Splashform.Top - 10
  682. Sleep(SleepTime);
  683. Splashform.Top := Splashform.Top + 20
  684. Sleep(SleepTime);
  685. Splashform.Left := Splashform.Left + 20
  686. Sleep(SleepTime);
  687. Splashform.Top := Splashform.Top - 20
  688. Sleep(SleepTime);
  689. Splashform.Top := Splashform.Top + 20
  690. Sleep(SleepTime);
  691. Splashform.Left := Splashform.Left - 20
  692. Sleep(SleepTime);
  693. Splashform.Top := Splashform.Top - 20
  694. Sleep(SleepTime);
  695. Splashform.Top := Splashform.Top + 20
  696. Sleep(SleepTime);
  697. Splashform.Left := Splashform.Left - 20
  698. Sleep(SleepTime);
  699. Splashform.Left := Splashform.Left + 20
  700. Sleep(SleepTime);
  701. Splashform.Top := Splashform.Top - 20
  702. Sleep(SleepTime);
  703. Splashform.Top := Splashform.Top + 20
  704. Sleep(SleepTime);
  705. Splashform.Left := Splashform.Left - 10
  706. Sleep(SleepTime);
  707. Splashform.Left := Splashform.Left + 20
  708. Sleep(SleepTime);
  709. Splashform.Left := Splashform.Left - 20
  710. Sleep(SleepTime);
  711. Splashform.Left := Splashform.Left + 20
  712. Sleep(SleepTime);
  713. Splashform.Top := Splashform.Top - 10
  714. Sleep(SleepTime);
  715. Splashform.Top := Splashform.Top + 20
  716. Sleep(SleepTime);
  717. Splashform.Left := Splashform.Left + 20
  718. Sleep(SleepTime);
  719. Splashform.Top := Splashform.Top - 20
  720. Sleep(SleepTime);
  721. Splashform.Top := Splashform.Top - 20
  722. Sleep(SleepTime);
  723. Splashform.Top := Splashform.Top + 20
  724. Sleep(SleepTime);
  725. Splashform.Left := Splashform.Left - 20
  726. Sleep(SleepTime);
  727. Splashform.Top := Splashform.Top - 20
  728. Sleep(SleepTime);
  729. Splashform.Top := Splashform.Top + 20
  730. Sleep(SleepTime);
  731. Splashform.Left := Splashform.Left - 20
  732. Sleep(SleepTime);
  733. Splashform.Top := Splashform.Top + 20
  734. Sleep(SleepTime);
  735. Splashform.Left := Splashform.Left + 20
  736. Sleep(SleepTime);
  737. Splashform.Left := Splashform.Left - 10
  738. Sleep(SleepTime);
  739. Splashform.Left := Splashform.Left + 20
  740. Sleep(SleepTime);
  741. Splashform.Left := Splashform.Left - 20
  742. Sleep(SleepTime);
  743. Splashform.Left := Splashform.Left + 20
  744. Sleep(SleepTime);
  745. Sleep(2000);
  746.  
  747. Close();
  748. Free();
  749. end;
  750. if (Lowercase(GetIniString('InterfaceSettings', 'SplashAnimation', '', ExpandConstant('{src}\Setup.ini'))) = 'transparent') then begin
  751. AnimateWindow(splashform.Handle, 500,AW_CENTER);
  752. SetWindowLong(splashform.Handle,GWL_EXSTYLE, WS_EX_LAYERED);
  753. for alpha:=0 to 255 do begin
  754. SetLayeredWindowAttributes(splashform.Handle, 0, alpha, LWA_ALPHA);
  755. Sleep(5);
  756. end;
  757. Sleep(2000);
  758. for alpha:=255 downto 0 do begin
  759. SetLayeredWindowAttributes(splashform.Handle, 0, alpha, LWA_ALPHA);
  760. sleep(5);
  761. end;
  762. end;
  763. end;
  764.  
  765. end;
  766.  
  767. procedure CustomInstallOnClick(Sender: TObject);
  768. begin
  769. FastInstall := 2;
  770. Wizardform.NextButton.OnClick(nil);
  771. end;
  772.  
  773. procedure AcceptLicenseOnClick2(Sender: TObject);
  774. begin
  775. if AcceptLicense.Checked = False then
  776. AcceptLicense.Checked:= True else
  777. AcceptLicense.Checked:= False;
  778. end;
  779.  
  780. function MusicEndis():Boolean;
  781. begin
  782. if FileExists(ExpandConstant('{src}\music.mp3')) then
  783. Result :=True
  784. else
  785. Result :=False
  786. end;
  787.  
  788. function SoundEndis():Boolean;
  789. begin
  790. if FileExists(ExpandConstant('{src}\button.wav')) then
  791. Result :=True
  792. else
  793. Result :=False
  794. end;
  795.  
  796. function Dirx():Boolean;
  797. begin
  798. if (GetIniString('LauncherSettings', 'Launch1', '', ExpandConstant('{src}\Setup.ini')) <> '') and ((GetIniBool('LauncherSettings', 'Launch164', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch164', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then
  799. Result :=True
  800. else
  801. Result :=False
  802. end;
  803.  
  804. function Redx():Boolean;
  805. begin
  806. if (GetIniString('LauncherSettings', 'Launch2', '', ExpandConstant('{src}\Setup.ini')) <> '') and ((GetIniBool('LauncherSettings', 'Launch264', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch264', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then
  807. Result :=True
  808. else
  809. Result :=False
  810. end;
  811.  
  812. function Phyx():Boolean;
  813. begin
  814. if (GetIniString('LauncherSettings', 'Launch3', '', ExpandConstant('{src}\Setup.ini')) <> '') and ((GetIniBool('LauncherSettings', 'Launch364', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch364', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then
  815. Result :=True
  816. else
  817. Result :=False
  818. end;
  819.  
  820. function GFWLV():Boolean;
  821. begin
  822. if (GetIniString('LauncherSettings', 'Launch4', '', ExpandConstant('{src}\Setup.ini')) <> '') and ((GetIniBool('LauncherSettings', 'Launch464', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch464', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then
  823. Result :=True
  824. else
  825. Result :=False
  826. end;
  827.  
  828. procedure SoundPlay(Sender: TObject);
  829. begin
  830. if SoundEndis = True then
  831. sndPlaySound(ExpandConstant('{src}\Button.wav'), SND_FILENAME or SND_ASYNC);
  832. end;
  833.  
  834. function checkus:string;
  835. begin
  836. if FileExists(ExpandConstant('{app}\Campaigns\Liberty.SC2Campaign\enUS.SC2Data')) or FileExists(ExpandConstant('{app}\Campaigns\Liberty.SC2Campaign\ptBR.SC2Data')) then
  837. Result :='http://us.battle.net/account'
  838. else
  839. Result :='http://eu.battle.net/account'
  840. end;
  841.  
  842. function checkus2:string;
  843. begin
  844. if FileExists(ExpandConstant('{app}\Campaigns\Liberty.SC2Campaign\enUS.SC2Data')) then
  845. Result := 'http://us.blizzard.com/support/index.xml?locale=en_US&gameId=13'
  846. else
  847. Result := ExpandConstant('{cm:techsupportpage}')
  848. end;
  849.  
  850.  
  851.  
  852. // Sets the TaskBar title
  853.  
  854.  
  855. // Ïåðåâîä ÷èñëà â ñòðîêó ñ òî÷íîñòüþ 2 çíàêà (%.2n) ñ îêðóãëåíèåì äðîáíîé ÷àñòè, åñëè îíà åñòü
  856.  
  857. procedure CurStepChanged(CurStep: TSetupStep);
  858. var ChComp, TmpValue:longword;
  859. n,i:integer;
  860. begin
  861. FileCopy(ExpandConstant('{tmp}\GameuxInstallHelper.dll'),ExpandConstant('{app}\GameuxInstallHelper.dll'),False);
  862. #ifdef CustomGDFBinary
  863. ExtractTemporaryFile('GDF.dll')
  864. #endif
  865. if CurStep = ssInstall then begin
  866. if (GetIniBool('LauncherSettings', 'InstallBeforeInstall', False, ExpandConstant('{src}\Setup.ini')) = true) and (GetIniBool('LauncherSettings', 'InstallRedist', False, ExpandConstant('{src}\Setup.ini')) = true) then begin
  867. if (DirectX.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch164', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch164', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  868. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch1', '', ExpandConstant('{src}\Setup.ini'))]);
  869. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom1', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg1', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  870. end;
  871. if (Redist.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch264', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch264', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  872. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch2', '', ExpandConstant('{src}\Setup.ini'))]);
  873. // Exec(ExpandConstant('{code:GetSourcePath}\vcredist_x86.exe'), '/q:a', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  874. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom2', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg2', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  875. end;
  876. if (PhysX.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch364', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch364', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  877. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch3', '', ExpandConstant('{src}\Setup.ini'))]);
  878. // Exec(ExpandConstant('{code:GetSourcePath}\support\PhysX_9.10.0129_SystemSoftware.exe'),'/passive','', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  879. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom3', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg3', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  880. // Exec('msiexec.exe',ExpandConstant('/quiet /i "{code:GetSourcePath}\Dependencies\xnafx31_redist.msi"'),'', SW_SHOW, ewNoWait, ResultCode)
  881. end;
  882. if (GFWL.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch464', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch464', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  883. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch4', '', ExpandConstant('{src}\Setup.ini'))]);
  884. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom4', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg4', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  885.  
  886. // Exec(ExpandConstant('{code:GetSourcePath}\support\gfwlivesetup.exe'),'/q /nu','', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  887. end;
  888. InstallingPageLabel2.Caption := SetupMessage2(msgInstallingLabel)
  889. end;
  890. GenerateGUID(GUID)
  891. WizardForm.CancelButton.OnClick:=@CancelButtonOnClick;
  892. CallBack:=WrapMyCallback(@ProgressCallback,2);
  893. Cancel:=0;
  894. OveralPct:=0;
  895.  
  896. // Ðàñïàêîâêà âñåõ íåîáõîäèìûõ ôàéëîâ â ïàïêó {tmp}. Ýòî íåîáõîäèìî äëÿ òîãî, ÷òîáû
  897. //âûïîëíÿòü óñòàíîâêó â ìîìåíò ssInstall, è ñåêöèÿ [Run] âûïîëíÿëàñü ïîñëå óñòàíîâêè.
  898.  
  899. ExtractTemporaryFile('packjpg_dll.dll');
  900. ExtractTemporaryFile('RTconsole.exe');
  901. ExtractTemporaryFile('precomp038.exe');
  902. ExtractTemporaryFile('zlib1.dll');
  903. ExtractTemporaryFile('Unrar.dll');
  904. CreateDir(ExpandConstant('{app}\Uninstall\'))
  905.  
  906.  
  907. // Ïîäãîòàâëèâàåì ïåðåìåííóþ, ñîäåðæàùóþ âñþ èíôîðìàöèþ î âûäåëåííûõ êîìïîíåíòàõ äëÿ ISDone.dll
  908. ChComp:=0;
  909.  
  910. StartRecord(ExpandConstant('{tmp}\records.inf'),ChComp);
  911. // repeat
  912. Wizardform.ProgressGauge.Max:=0
  913. i := 1;
  914. if GetIniString('ExtractSettings', 'FreeArcFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  915. repeat
  916. Arcs:=ArcDecode(GetIniString('ExtractSettings', 'FreeArcFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')))
  917. if (LanguageTranslator(Arcs[4]) = ActiveLanguage) or (Arcs[4] = '') then begin
  918. if Arcs[3] = '1' then
  919. Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 4000
  920. else
  921. Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 1000;
  922. end;
  923. i:= i + 1
  924. until GetIniString('ExtractSettings', 'FreeArcFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) = ''
  925. end;
  926. i := 1;
  927. if GetIniString('ExtractSettings', '7zFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  928. repeat
  929. Arcs:=ArcDecode(GetIniString('ExtractSettings', '7zFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')))
  930. if (LanguageTranslator(Arcs[4]) = ActiveLanguage) or (Arcs[4] = '') then
  931. Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 1000;
  932. i:= i + 1
  933. until GetIniString('ExtractSettings', '7zFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) = ''
  934. end;
  935. i := 1;
  936. if GetIniString('ExtractSettings', 'RarFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  937. repeat
  938. Arcs:=ArcDecode(GetIniString('ExtractSettings', 'RarFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')))
  939. if (LanguageTranslator(Arcs[4]) = ActiveLanguage) or (Arcs[4] = '') then
  940. Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 1000;
  941. i:= i + 1
  942. until GetIniString('ExtractSettings', 'RarFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) = ''
  943. end;
  944. MyError:=false;
  945. i := 1;
  946. if GetIniString('ExtractSettings', 'FreeArcFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  947. repeat
  948. Arcs:=ArcDecode(GetIniString('ExtractSettings', 'FreeArcFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')))
  949. if (Arcs[4] = '') or (LanguageTranslator(Arcs[4]) = ActiveLanguage) then begin
  950. if not FileExists(Arcs[0]) then begin
  951. // MsgBox(Arcs[0], mbError, MB_OKCANCEL)
  952. repeat
  953. // if MsgBox(Arcs[0], mbError, MB_OKCANCEL) = IDCANCEL then begin
  954.  
  955. if MsgBox(FmtMessage(cm('InsertDisk'),[Arcs[2]]), mbError, MB_OKCANCEL) = IDCANCEL then begin
  956. MyError := True;
  957. end;
  958. until (FileExists( Arcs[0]) = True) or (MyError = True)
  959. end;;
  960. if MyError = False then begin
  961. if Arcs[3] = '0' then begin
  962. if not ISArcExtract ( 0, OveralPct, 0, Arcs[0], Arcs[1], false,CallBack, '', '', '') then MyError := True
  963. end else begin
  964. if not ISArcExtract ( 0, OveralPct, 0, Arcs[0], Arcs[1], false,CallBack, '', '', '') then MyError := True;
  965. if MyError = True then break;
  966. if not ISSRepExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'srep', Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'pcf', '', true, CallBack ) then MyError := True ;
  967. if MyError = True then break;
  968. if not ISPrecompExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'pcf', Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'arc', true, CallBack ) then MyError := True ;
  969. if MyError = True then break;
  970. if not ISArcExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'arc', Arcs[1], true,CallBack, '', '', '') then MyError := True ;
  971. end;
  972. end;
  973. end;
  974. if MyError = True then break ;
  975. i:= i + 1
  976. until GetIniString('ExtractSettings', 'FreeArcFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) = ''
  977. end;
  978. i := 1;
  979. if (GetIniString('ExtractSettings', '7zFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) <> '') and (MyError = False) then begin
  980. repeat
  981. Arcs:=ArcDecode(GetIniString('ExtractSettings', '7zFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')))
  982. if (Arcs[4] = '') or (LanguageTranslator(Arcs[4]) = ActiveLanguage) then begin
  983. if not FileExists( Arcs[0]) then begin
  984. repeat
  985. if MsgBox(FmtMessage(cm('InsertDisk'),[Arcs[0]]), mbError, MB_OKCANCEL) = IDCANCEL then begin
  986. MyError := True;
  987. end;
  988. until (FileExists( Arcs[0]) = True) or (MyError = True)
  989. end;
  990. if MyError = False then begin
  991. if not IS7ZipExtract ( 0, OveralPct, 0, Arcs[0], Arcs[1], false, CallBack, '' ) then MyError := True ;
  992. end;
  993. end;
  994. if MyError = True then break;
  995. i:= i + 1
  996. until GetIniString('ExtractSettings', '7zFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) = ''
  997. end;
  998. i := 1;
  999. if (GetIniString('ExtractSettings', 'RarFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) <> '') and (MyError = False) then begin
  1000. repeat
  1001. Arcs:=ArcDecode(GetIniString('ExtractSettings', 'RarFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')))
  1002. if (Arcs[4] = '') or (LanguageTranslator(Arcs[4]) = ActiveLanguage) then begin
  1003. if not FileExists( Arcs[0]) then begin
  1004. repeat
  1005. if MsgBox(FmtMessage(cm('InsertDisk'),[Arcs[0]]), mbError, MB_OKCANCEL) = IDCANCEL then begin
  1006. MyError := True;
  1007. end;
  1008. until (FileExists( Arcs[0]) = True) or (MyError = True)
  1009. end;
  1010. if MyError = False then begin
  1011. if not ISRarExtract ( 0, OveralPct, 0, Arcs[0], Arcs[1], false,CallBack, '' ) then MyError := True ;
  1012. end;
  1013. end;
  1014. if MyError = True then break;
  1015. i:= i + 1
  1016. until GetIniString('ExtractSettings', 'RarFile' + IntToStr(i), '', ExpandConstant('{src}\Setup.ini')) = ''
  1017. end;
  1018. StopRecord;
  1019. PictureShown := 0;
  1020.  
  1021. end;
  1022. if (CurStep = ssPostInstall) and (MyError = False) then begin
  1023. FileCopy(ExpandConstant('{tmp}\GameuxInstallHelper.dll'),ExpandConstant('{app}\GameuxInstallHelper.dll'),False);
  1024. #ifdef CustomGDFBinary
  1025. FileCopy(ExpandConstant('{tmp}\GDF.dll'),ExpandConstant('{app}\GDF.dll'),False);
  1026. #endif
  1027. GetWindowsVersionEx(WindowsVersion);
  1028. if (WindowsVersion.Major >= 6) and ((GetIniString('InstallSettings', 'GDFBinary', '', ExpandConstant('{src}\Setup.ini')) <> '') or (GetIniString('InstallSettings', 'GDFBinary' + LanguageTranslator2(ActiveLanguage) , '', ExpandConstant('{src}\Setup.ini')) <> '')) then
  1029. begin
  1030. if (GetIniString('InstallSettings', 'GDFBinary', '', ExpandConstant('{src}\Setup.ini')) <> '') then
  1031. AddToGameExplorer(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'GDFBinary', '', ExpandConstant('{src}\Setup.ini'))), ExpandConstant('{app}'), 3, GUID)
  1032. else
  1033. AddToGameExplorer(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'GDFBinary' + LanguageTranslator2(ActiveLanguage), '', ExpandConstant('{src}\Setup.ini'))), ExpandConstant('{app}'), 3, GUID);
  1034. CreateTask(3, GUID, 0, 0,'Play', ExpandConstant('{app}\' + GetMyAppExePath('') + '\' + GetMyAppExeName('')), '');
  1035. end;
  1036. #ifdef ProductCode
  1037. AddRegistryInfo
  1038. #endif
  1039. if (GetIniBool('LauncherSettings', 'InstallBeforeInstall', False, ExpandConstant('{src}\Setup.ini')) = False) and (GetIniBool('LauncherSettings', 'InstallRedist', False, ExpandConstant('{src}\Setup.ini')) = true) then begin
  1040. if (DirectX.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch164', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch164', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  1041. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch1', '', ExpandConstant('{src}\Setup.ini'))]);
  1042. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom1', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg1', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1043. end;
  1044. if (Redist.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch264', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch264', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  1045. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch2', '', ExpandConstant('{src}\Setup.ini'))]);
  1046. // Exec(ExpandConstant('{code:GetSourcePath}\vcredist_x86.exe'), '/q:a', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1047. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom2', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg2', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1048. end;
  1049. if (PhysX.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch364', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch364', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  1050. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch3', '', ExpandConstant('{src}\Setup.ini'))]);
  1051. // Exec(ExpandConstant('{code:GetSourcePath}\support\PhysX_9.10.0129_SystemSoftware.exe'),'/passive','', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1052. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom3', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg3', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1053. // Exec('msiexec.exe',ExpandConstant('/quiet /i "{code:GetSourcePath}\Dependencies\xnafx31_redist.msi"'),'', SW_SHOW, ewNoWait, ResultCode)
  1054. end;
  1055. if (GFWL.Checked = True) and ((GetIniBool('LauncherSettings', 'Launch464', False, ExpandConstant('{src}\Setup.ini')) = false) or ((GetIniBool('LauncherSettings', 'Launch464', False, ExpandConstant('{src}\Setup.ini')) = true) and (IsWin64=True))) then begin
  1056. InstallingPageLabel2.Caption :=FmtMessage(cm('InstallingAF'), [GetIniString('LauncherSettings', 'Launch4', '', ExpandConstant('{src}\Setup.ini'))]);
  1057. Exec(ExpandConstant('{code:GetSourcePath}\') + GetIniString('LauncherSettings', 'LaunchCom4', '', ExpandConstant('{src}\Setup.ini')), GetIniString('LauncherSettings', 'LaunchArg4', '', ExpandConstant('{src}\Setup.ini')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1058.  
  1059. // Exec(ExpandConstant('{code:GetSourcePath}\support\gfwlivesetup.exe'),'/q /nu','', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  1060. end;
  1061. InstallingPageLabel2.Caption := SetupMessage2(msgInstallingLabel)
  1062. end;
  1063. end;
  1064.  
  1065. if (CurStep = ssPostInstall) and (MyError = True) then
  1066. Exec(ExpandConstant('{uninstallexe}'), '/VERYSILENT','', sw_Hide, ewWaitUntilTerminated, n);
  1067. end;
  1068.  
  1069. #ifdef Texture
  1070. #include "FATexture.iss"
  1071. #endif
  1072.  
  1073. procedure WizardKeyPress(Sender: TObject; var Key: Char);
  1074. Begin
  1075. MsgBox(Key, mbInformation, MB_YESNO)
  1076. End;
  1077.  
  1078. Procedure InitializeWizard1();
  1079. Begin
  1080. // Create controls to show extended info
  1081. WizardForm.StatusLabel.Top:= WizardForm.ProgressGauge.Top; WizardForm.FileNameLabel.Top:= WizardForm.ProgressGauge.Top; // ïðÿ÷åì ïîä ïðîãðåññáàð, òîãäà âñå ñîáûòèÿ WM_PAINT ïåðåõâàòûâàþòñÿ
  1082. with WizardForm.ProgressGauge do begin
  1083. ProgressBar := TNewProgressBar.Create(WizardForm);
  1084. ProgressBar.SetBounds(Left, ScaleY(16), Width, Height);
  1085. ProgressBar.Parent := WizardForm.InstallingPage;
  1086. ProgressBar.max := 65536;
  1087. ProgressBar.Hide; // áóäåò ïîêàçàí ïðè îáðàáîòêå íåñêîëüêèõ àðõèâîâ
  1088. end;
  1089. // ïîçâîëÿåò ïðåðâàòü ðàñïàêîâêó àðõèâîâ ñòàíäàðòíûìè ñïîñîáàìè
  1090. End;
  1091.  
  1092. Procedure DeInitializeSetup;
  1093. Begin
  1094. KillTimer(0, TimerID) {óäàëåíèå òàéìåðà}
  1095. KillTimer(0, TimerID2) {óäàëåíèå òàéìåðà}
  1096. UnhookWindowsHookEx(WndHookID) {óäàëåíèå SendMessage õóêà}
  1097. End;
  1098.  
  1099. procedure PlayMusic; // PlayMP3();
  1100. begin
  1101.  
  1102. mciSendString(ExpandConstant('OPEN ' + ExpandConstant('{src}') + '\music.mp3 TYPE MPEGVIDEO ALIAS BGMUSIC'), s, 255, 0);
  1103. mciSendString(ExpandConstant('PLAY BGMUSIC REPEAT'), s, 255, 0);
  1104. end;
  1105.  
  1106.  
  1107. procedure StopMusic; // PlayMP3();
  1108. begin
  1109. mciSendString(ExpandConstant('STOP BGMUSIC'), s, 255, 0);
  1110. mciSendString(ExpandConstant('CLOSE ' + ExpandConstant('{src}') + '\music.mp3 TYPE MPEGVIDEO ALIAS BGMUSIC'), s, 255, 0);
  1111. end;
  1112.  
  1113. procedure MusicOnClick(Sender: TObject);
  1114. begin
  1115. if SoundEndis = True then begin
  1116. sndPlaySound(ExpandConstant('{src}\Button.wav'), SND_FILENAME or SND_ASYNC);
  1117. end;
  1118. if Music.Checked =False then
  1119. begin
  1120. PlayMusic()
  1121. //Image4.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicOn.bmp'))
  1122. if FileExists(ExpandConstant('{src}\btn1.bmp')) then begin
  1123. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = True) then
  1124. Labl4.Caption:= ExpandConstant('{cm:BM}: {cm:BMon}')
  1125. else
  1126. Labl4.Caption:= ExpandConstant('{cm:BM}' + #13 + #10 + '- {cm:BMon} -');
  1127. ButtonLabel[bidMusic2Button].Caption := ExpandConstant('{cm:BM}: {cm:BMon}')
  1128. end else
  1129. MusiconOff.Caption:= ExpandConstant('{cm:BM}: {cm:BMon}') ;
  1130. Music.Checked:= True
  1131.  
  1132. end
  1133. else
  1134. begin
  1135. if SoundEndis = True then begin
  1136. sndPlaySound(ExpandConstant('{src}\Button.wav'), SND_FILENAME or SND_ASYNC);
  1137. end;
  1138. StopMusic()
  1139. //Image4.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicOff.bmp'))
  1140. if FileExists(ExpandConstant('{src}\btn1.bmp')) then begin
  1141. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = True) then
  1142. Labl4.Caption:= ExpandConstant('{cm:BM}: {cm:BMoff}')
  1143. else
  1144. Labl4.Caption:= ExpandConstant('{cm:BM}' + #13 + #10 + '- {cm:BMoff} -');
  1145. ButtonLabel[bidMusic2Button].Caption := ExpandConstant('{cm:BM}: {cm:BMoff}')
  1146. end else
  1147. MusiconOff.Caption:= ExpandConstant('{cm:BM}: {cm:BMoff}');
  1148. Music.Checked:= False
  1149. end
  1150. end;
  1151.  
  1152.  
  1153.  
  1154. function InstallDirectX: Boolean;
  1155. begin
  1156. Result:= DirectX.Checked;
  1157. end;
  1158.  
  1159. function InstallPhysx: Boolean;
  1160. begin
  1161. Result:=Physx.Checked;
  1162. end;
  1163.  
  1164. function DVD1: Boolean;
  1165. begin
  1166. if GetIniString('InstallSettings', 'CheckSource1', '', ExpandConstant('{src}\Setup.ini')) <> '' then
  1167. REsult := True
  1168. else
  1169. Result := False;
  1170. end;
  1171.  
  1172. function DVD2: Boolean;
  1173. begin
  1174. if GetIniString('InstallSettings', 'CheckSource2', '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  1175. Result:=True;
  1176. if FileExists(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'CheckSource1', '', ExpandConstant('{src}\Setup.ini')))) then
  1177. begin
  1178. repeat
  1179. if MsgBox(FmtMessage(cm('InsertDisk'),['2']), mbError, MB_OKCancel) = IDCancel then
  1180. begin
  1181. if MsgBox(SetupMessage(msgExitSetupMessage), mbInformation, MB_YESNO) = IDYES then begin
  1182. CancelMode:= True;
  1183. Wizardform.CancelButton.Onclick(nil)
  1184. end;end;
  1185. until (FileExists(ExpandConstant('{code:GetSourcePath}\DATA2\' + GetIniString('InstallSettings', 'CheckSource2', '', ExpandConstant('{src}\Setup.ini')))) = True) or (CancelMode = True);
  1186. end;
  1187. end else
  1188. Result := False
  1189. end;
  1190.  
  1191. function DVD3: Boolean;
  1192. begin
  1193. if GetIniString('InstallSettings', 'CheckSource3', '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  1194. Result:=True;
  1195. if FileExists(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'CheckSource2', '', ExpandConstant('{src}\Setup.ini')))) then
  1196. begin
  1197. repeat
  1198. if MsgBox(FmtMessage(cm('InsertDisk'),['3']), mbError, MB_OKCancel) = IDCancel then
  1199. begin
  1200. if MsgBox(SetupMessage(msgExitSetupMessage), mbInformation, MB_YESNO) = IDYES then begin
  1201. CancelMode:= True;
  1202. Wizardform.CancelButton.Onclick(nil)
  1203. end;end;
  1204. until (FileExists(ExpandConstant('{code:GetSourcePath}\DATA3\' + GetIniString('InstallSettings', 'CheckSource3', '', ExpandConstant('{src}\Setup.ini')))) = True) or (CancelMode = True);
  1205. end;
  1206. end else
  1207. Result := False
  1208. end;
  1209.  
  1210. function DVD4: Boolean;
  1211. begin
  1212. if GetIniString('InstallSettings', 'CheckSource4', '', ExpandConstant('{src}\Setup.ini')) <> '' then begin
  1213. Result:=True;
  1214. if FileExists(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'CheckSource3', '', ExpandConstant('{src}\Setup.ini')))) then
  1215. begin
  1216. repeat
  1217. if MsgBox(FmtMessage(cm('InsertDisk'),['4']), mbError, MB_OKCancel) = IDCancel then
  1218. begin
  1219. if MsgBox(SetupMessage(msgExitSetupMessage), mbInformation, MB_YESNO) = IDYES then begin
  1220. CancelMode:= True;
  1221. Wizardform.CancelButton.Onclick(nil)
  1222. end;end;
  1223. until (FileExists(ExpandConstant('{code:GetSourcePath}\DATA4\' + GetIniString('InstallSettings', 'CheckSource4', '', ExpandConstant('{src}\Setup.ini')))) = True) or (CancelMode = True);
  1224. end;
  1225. end else
  1226. Result := False
  1227. end;
  1228.  
  1229.  
  1230. function CheckEnglish: Boolean;
  1231. begin
  1232. Result:=True;
  1233. if ActiveLanguage = 'eng' then
  1234. Result:=True else
  1235. Result:=False;
  1236. end;
  1237.  
  1238. function CheckFrench: Boolean;
  1239. begin
  1240. Result:=True;
  1241. if ActiveLanguage = 'fre' then
  1242. Result:=True else
  1243. Result:=False;
  1244. end;
  1245.  
  1246. function CheckGerman: Boolean;
  1247. begin
  1248. Result:=True;
  1249. if ActiveLanguage = 'ger' then
  1250. Result:=True else
  1251. Result:=False;
  1252. end;
  1253.  
  1254. function CheckItalian: Boolean;
  1255. begin
  1256. Result:=True;
  1257. if ActiveLanguage = 'ita' then
  1258. Result:=True else
  1259. Result:=False;
  1260. end;
  1261.  
  1262. function CheckSpanish: Boolean;
  1263. begin
  1264. Result:=True;
  1265. if ActiveLanguage = 'esp' then
  1266. Result:=True else
  1267. Result:=False;
  1268. end;
  1269.  
  1270. function InstallRedist: Boolean;
  1271. begin
  1272. Result:=Redist.Checked;
  1273. end;
  1274.  
  1275. function CreateIcons: Boolean;
  1276. begin
  1277. Result:=Icons.Checked;
  1278. end;
  1279.  
  1280.  
  1281. function GroupIcons: Boolean;
  1282. begin
  1283. Result:=Group.Checked;
  1284. end;
  1285.  
  1286. procedure RedistOnClick(Sender: TObject);
  1287. begin
  1288. if Redist.Checked = False then
  1289. Redist.Checked:= True else
  1290. Redist.Checked:= False;
  1291. end;
  1292.  
  1293. procedure lblDirectXOnClick(Sender: TObject);
  1294. begin
  1295. if DirectX.Checked = False then
  1296. DirectX.Checked:= True else
  1297. DirectX.Checked:= False;
  1298. end;
  1299.  
  1300. procedure IconsOnClick(Sender: TObject);
  1301. begin
  1302. if Icons.Checked =False then
  1303. Icons.Checked:= True else
  1304. Icons.Checked:= False;
  1305. end;
  1306.  
  1307. procedure GroupOnClick(Sender: TObject);
  1308. begin
  1309. if Group.Checked = False then
  1310. Group.Checked:= True else
  1311. Group.Checked:= False;
  1312. end;
  1313.  
  1314. procedure PhysxOnClick(Sender: TObject);
  1315. begin
  1316. if Physx.Checked = False then
  1317. Physx.Checked:= True else
  1318. Physx.Checked:= False;
  1319. end;
  1320.  
  1321. procedure GFWLOnClick(Sender: TObject);
  1322. begin
  1323. if GFWL.Checked = False then
  1324. GFWL.Checked:= True else
  1325. GFWL.Checked:= False;
  1326. end;
  1327.  
  1328. procedure ButtonLabelClick(Sender: TObject);
  1329. var
  1330. Button: TButton;
  1331. Labl: TLabel;
  1332. begin
  1333. if SoundEndis = True then
  1334. begin
  1335. sndPlaySound(ExpandConstant('{src}\Button.wav'), SND_FILENAME or SND_ASYNC);
  1336. end;
  1337. ButtonImage[TLabel(Sender).Tag].Left:=0
  1338. case TLabel(Sender).Tag of
  1339. bidBack: Button:=WizardForm.BackButton ;
  1340. bidNext: Button:=WizardForm.NextButton ;
  1341. bidCancel: Button:=WizardForm.CancelButton ;
  1342. bidCancel2: Button:=CancelButton2 ;
  1343. bidDirBrowse: Button:=WizardForm.DirBrowseButton ;
  1344. bidGroupBrowse: Button:=WizardForm.GroupBrowseButton ;
  1345. bidCustomInstall: Button:=CustomInstallButton;
  1346. bidMusicButton: Button:=Musiconoff ;
  1347. bidMusic2Button: Button:=Musiconoff2 ;
  1348. else
  1349. Exit
  1350. end
  1351. Button.OnClick(Button)
  1352. end;
  1353.  
  1354. procedure ButtonLabelMouseMoveMain(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1355. begin
  1356. ButtonImage[bidback].Left:=0
  1357. ButtonImage[bidcancel].Left:=0
  1358. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then
  1359. ButtonImage[bidcancel2].Left:=0 ;
  1360. ButtonImage[bidnext].Left:=0
  1361. ButtonImage[bidDirBrowse].Left:=0
  1362. ButtonImage[bidCustomInstall].Left:=0
  1363. if FileExists(ExpandConstant('{src}\btn1.bmp')) then
  1364. ButtonImage[bidMusicButton].Left:=0 ;
  1365. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then
  1366. ButtonImage[bidMusic2Button].Left:=0 ;
  1367. ButtonLabel[bidback].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1368. ButtonLabel[bidcancel].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1369. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then
  1370. ButtonLabel[bidcancel2].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'));
  1371. ButtonLabel[bidnext].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1372. ButtonLabel[bidDirBrowse].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1373. ButtonLabel[bidCustomInstall].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1374. if FileExists(ExpandConstant('{src}\btn1.bmp')) then
  1375. ButtonLabel[bidMusicButton].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'));
  1376. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then
  1377. ButtonLabel[bidMusic2Button].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'));
  1378. end;
  1379.  
  1380. procedure ButtonLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1381. begin
  1382. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1383. ButtonImage[TLabel(Sender).Tag].Left:=-(Image.Bitmap.Width /3)
  1384. ButtonImage[bidBack].Left:=0;
  1385. ButtonImage[bidCustomInstall].Left:=0;
  1386. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1387. end;
  1388. end;
  1389.  
  1390. procedure ButtonLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1391. begin
  1392. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1393. ButtonImage[TLabel(Sender).Tag].Left:=-(Image2.Bitmap.Width /3)
  1394. ButtonImage[bidNext].Left:=0;
  1395. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1396. end;
  1397. end;
  1398.  
  1399. procedure ButtonLabelMouseMove3(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1400. begin
  1401. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1402. ButtonImage[TLabel(Sender).Tag].Left:=-(Image3.Bitmap.Width /3)
  1403. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1404. end;
  1405. end;
  1406.  
  1407. procedure ButtonLabelMouseMove4(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1408. begin
  1409. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1410. ButtonImage[TLabel(Sender).Tag].Left:=-((Image4.Bitmap.Width /3))
  1411. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1412. end;
  1413. end;
  1414.  
  1415. procedure ButtonLabelMouseMove5(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1416. begin
  1417. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1418. ButtonImage[TLabel(Sender).Tag].Left:=-(Image5.Bitmap.Width /3)
  1419. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1420. end;
  1421. end;
  1422.  
  1423. procedure ButtonLabelMouseMove6(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1424. begin
  1425. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1426. ButtonImage[TLabel(Sender).Tag].Left:=-(ButtonImage6Width)
  1427. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1428. end;
  1429. end;
  1430.  
  1431. procedure ButtonLabelMouseMove7(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1432. begin
  1433. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1434. ButtonImage[TLabel(Sender).Tag].Left:=-(ButtonImage7Width)
  1435. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1436. end;
  1437. end;
  1438.  
  1439. procedure ButtonLabelMouseMove8(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1440. begin
  1441. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1442. ButtonImage[TLabel(Sender).Tag].Left:=-(ButtonImage8Width)
  1443. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1444. end;
  1445. end;
  1446.  
  1447. procedure ButtonLabelMouseMove9(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1448. begin
  1449. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1450. ButtonImage[TLabel(Sender).Tag].Left:=-(ButtonImage9Width)
  1451. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1452. end;
  1453. end;
  1454.  
  1455. procedure ButtonLabelMouseMove10(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1456. begin
  1457. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1458. ButtonImage[TLabel(Sender).Tag].Left:=-(ButtonImage10Width)
  1459. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1460. end;
  1461. end;
  1462.  
  1463. procedure ButtonLabelMouseMove11(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1464. begin
  1465. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1466. ButtonImage[TLabel(Sender).Tag].Left:=-(ButtonImage11Width)
  1467. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorOnMouse', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1468. end;
  1469. end;
  1470.  
  1471. procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1472. begin
  1473. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1474. ButtonImage[TLabel(Sender).Tag].Left:=-(2*(Image.Bitmap.Width /3))
  1475. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1476. end;
  1477. end;
  1478.  
  1479. procedure ButtonLabelMouseDown2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1480. begin
  1481. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1482. ButtonImage[TLabel(Sender).Tag].Left:=-(2*(Image2.Bitmap.Width /3))
  1483. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1484. end;
  1485. end;
  1486.  
  1487. procedure ButtonLabelMouseDown3(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1488. begin
  1489. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1490. ButtonImage[TLabel(Sender).Tag].Left:=-(2*(Image3.Bitmap.Width /3))
  1491. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1492. end;
  1493. end;
  1494.  
  1495. procedure ButtonLabelMouseDown4(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1496. begin
  1497. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1498. ButtonImage[TLabel(Sender).Tag].Left:=-(2*(Image4.Bitmap.Width /3))
  1499. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1500. end;
  1501. end;
  1502.  
  1503. procedure ButtonLabelMouseDown5(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1504. begin
  1505. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1506. ButtonImage[TLabel(Sender).Tag].Left:=-(2*(Image5.Bitmap.Width /3))
  1507. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1508. end;
  1509. end;
  1510.  
  1511. procedure ButtonLabelMouseDown6(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1512. begin
  1513. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1514. ButtonImage[TLabel(Sender).Tag].Left:=-(2*ButtonImage6Width)
  1515. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1516. end;
  1517. end;
  1518.  
  1519. procedure ButtonLabelMouseDown7(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1520. begin
  1521. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1522. ButtonImage[TLabel(Sender).Tag].Left:=-(2*ButtonImage7Width)
  1523. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1524. end;
  1525. end;
  1526.  
  1527. procedure ButtonLabelMouseDown8(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1528. begin
  1529. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1530. ButtonImage[TLabel(Sender).Tag].Left:=-(2*ButtonImage8Width)
  1531. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1532. end;
  1533. end;
  1534.  
  1535. procedure ButtonLabelMouseDown9(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1536. begin
  1537. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1538. ButtonImage[TLabel(Sender).Tag].Left:=-(2*ButtonImage9Width)
  1539. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1540. end;
  1541. end;
  1542.  
  1543. procedure ButtonLabelMouseDown10(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1544. begin
  1545. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1546. ButtonImage[TLabel(Sender).Tag].Left:=-(2*ButtonImage10Width)
  1547. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1548. end;
  1549. end;
  1550.  
  1551. procedure ButtonLabelMouseDown11(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1552. begin
  1553. if ButtonLabel[TLabel(Sender).Tag].Enabled then begin
  1554. ButtonImage[TLabel(Sender).Tag].Left:=-(2*ButtonImage11Width)
  1555. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColorMouseDown', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1556. end;
  1557. end;
  1558.  
  1559.  
  1560. procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1561. begin
  1562. ButtonImage[TLabel(Sender).Tag].Left:=0
  1563. ButtonLabel[TLabel(Sender).Tag].Font.Color := GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  1564. end;
  1565.  
  1566. procedure LoadButtonImage1(AButton: TButton; AButtonIndex: integer);
  1567. begin
  1568. Image:=TBitmapImage.Create(WizardForm);
  1569. Image.Bitmap.LoadfromFile(ExpandConstant('{src}\btn4.bmp')) ;
  1570. Image.Width:= Image.Bitmap.Width //??????????? ????????? ???????????? ?????? ???????
  1571. Image.Height:=Image.Bitmap.Height
  1572. Image.Enabled:=False
  1573. Image.BackColor:=ClBlack
  1574. Image.ReplaceColor:=ClBlack
  1575.  
  1576. Panel:=TPanel.Create(WizardForm)
  1577. Panel.Left:=AButton.Left
  1578. Panel.Top:=AButton.Top
  1579. Panel.Width:=Image.Bitmap.Width / 3
  1580. Panel.Height:=Image.Bitmap.Height
  1581. Panel.Tag:=AButtonIndex
  1582. Panel.Parent:=AButton.Parent
  1583. Panel.Color:=ClBlack
  1584. ButtonPanel[AButtonIndex]:=Panel
  1585. //??????? ??????? ??????? ?? ??????
  1586. // Image.Bitmap.LoadFromFile(ExpandConstant('{src}\btn4.bmp'))
  1587. Image.Parent:=Panel
  1588. ButtonImage[AButtonIndex]:=Image
  1589.  
  1590.  
  1591. with TLabel.Create(WizardForm) do begin
  1592. Tag:=AButtonIndex
  1593. Parent:=Panel
  1594. Width:=Panel.Width
  1595. Height:=Panel.Height
  1596. Transparent:=True
  1597. OnClick:=@ButtonLabelClick
  1598. OnDblClick:=@ButtonLabelClick
  1599. OnMouseDown:=@ButtonLabelMouseDown
  1600. OnMouseUp:=@ButtonLabelMouseUp
  1601. OnMouseMove:=@ButtonLabelMouseMove;
  1602. end ;
  1603.  
  1604. Labl:=TLabel.Create(WizardForm) ; //????? ??????
  1605. Labl.Left:=23 ; //????????? ????????? ??????
  1606. Labl.Top:=(GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) ;
  1607. Labl.Width := Image.Bitmap.Width / 3 ;
  1608. Labl.Height := Image.Bitmap.Height;
  1609. Labl.Autosize:=False ;
  1610. Labl.Alignment:=taCenter ;
  1611. Labl.Tag:=AButtonIndex
  1612. Labl.Transparent:=True
  1613. Labl.Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini')) //???? ??????
  1614. Labl.Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'))
  1615. if GetIniBool('InterfaceSettings', 'ButtonFontBold', False, ExpandConstant('{src}\Setup.ini')) = true then
  1616. Labl.Font.Style:=[fsBold] ;
  1617. Labl.Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  1618. Labl.Caption:=AButton.Caption
  1619. Labl.OnClick:=@ButtonLabelClick
  1620. Labl.OnDblClick:=@ButtonLabelClick
  1621. Labl.OnMouseDown:=@ButtonLabelMouseDown
  1622. Labl.OnMouseUp:=@ButtonLabelMouseUp
  1623. Labl.OnMouseMove:=@ButtonLabelMouseMove;
  1624. Labl.Parent:=Panel
  1625. ButtonLabel[AButtonIndex]:=Labl
  1626. end;
  1627.  
  1628.  
  1629. procedure LoadButtonImage2(AButton: TButton; AButtonIndex: integer);
  1630. var
  1631. Panel2: TPanel;
  1632. Labl2: TLabel;
  1633.  
  1634. begin
  1635. Image2:=TBitmapImage.Create(WizardForm) //??????? ??????? ??????? ?? ??????
  1636. Image2.Bitmap.LoadFromFile(ExpandConstant('{src}\btn3.bmp'))
  1637. Image2.Width:=Image2.Bitmap.Width //??????????? ????????? ???????????? ?????? ???????
  1638. Image2.Height:=Image2.Bitmap.Height
  1639. Image2.Enabled:=False
  1640.  
  1641. Panel2:=TPanel.Create(WizardForm)
  1642. Panel2.Left:=AButton.Left
  1643. Panel2.Top:=AButton.Top
  1644. Panel2.Width:=Image2.Bitmap.Width /3
  1645. Panel2.Height:=Image2.Bitmap.Height
  1646. Panel2.Tag:=AButtonIndex
  1647. Panel2.Parent:=AButton.Parent
  1648. Panel2.Color:=ClBlack
  1649.  
  1650. ButtonPanel[AButtonIndex]:=Panel2
  1651. Image2.Parent:=Panel2
  1652. ButtonImage[AButtonIndex]:=Image2
  1653.  
  1654. with TLabel.Create(WizardForm) do begin
  1655. Tag:=AButtonIndex
  1656. Parent:=Panel2
  1657. Width:=Panel2.Width
  1658. Height:=Panel2.Height
  1659. Transparent:=True
  1660. OnClick:=@ButtonLabelClick
  1661. OnDblClick:=@ButtonLabelClick
  1662. OnMouseDown:=@ButtonLabelMouseDown2
  1663. OnMouseUp:=@ButtonLabelMouseUp
  1664. OnMouseMove:=@ButtonLabelMouseMove2;
  1665. end ;
  1666.  
  1667. Labl2:=TLabel.Create(WizardForm) ; //????? ??????
  1668. Labl2.Left:=0 ; //????????? ????????? ??????
  1669. Labl2.Top:=(GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) ;
  1670. Labl2.Width:=Image2.Bitmap.Width /3 ; //????????? ????????? ??????
  1671. Labl2.Height:=Image2.Bitmap.Height;
  1672. Labl2.Autosize:=True ;
  1673. Labl2.Alignment:=taCenter ;
  1674. Labl2.Tag:=AButtonIndex
  1675. Labl2.Transparent:=True
  1676. Labl2.Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini')) //???? ??????
  1677. Labl2.Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  1678. if GetIniBool('InterfaceSettings', 'ButtonFontBold', False, ExpandConstant('{src}\Setup.ini')) = true then
  1679. Labl2.Font.Style:=[fsBold] ;
  1680. Labl2.Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  1681. Labl2.Caption:=AButton.Caption
  1682. Labl2.OnClick:=@ButtonLabelClick
  1683. Labl2.OnDblClick:=@ButtonLabelClick
  1684. Labl2.OnMouseDown:=@ButtonLabelMouseDown2
  1685. Labl2.OnMouseUp:=@ButtonLabelMouseUp
  1686. Labl2.OnMouseMove:=@ButtonLabelMouseMove2;
  1687. Labl2.Parent:=Panel2
  1688. ButtonLabel[AButtonIndex]:=Labl2
  1689. end;
  1690.  
  1691. procedure LoadButtonImage3(AButton: TButton; AButtonIndex: integer);
  1692.  
  1693.  
  1694. begin
  1695. Image3:=TBitmapImage.Create(WizardForm)
  1696. with Image3 do begin //??????? ??????? ??????? ?? ??????
  1697. Bitmap.LoadFromFile(ExpandConstant('{src}\btn2.bmp'))
  1698. Width:=Image3.Bitmap.Width; //??????????? ????????? ???????????? ?????? ???????
  1699. Height:=Image3.Bitmap.Height
  1700. Enabled:=False
  1701. end;
  1702.  
  1703. Panel3:=TPanel.Create(WizardForm)
  1704. with Panel3 do begin
  1705. Left:=AButton.Left
  1706. Top:=AButton.Top
  1707. Width:=Image3.Bitmap.Width /3;
  1708. Height:=Image3.Bitmap.Height
  1709. Tag:=AButtonIndex
  1710. Parent:=AButton.Parent
  1711. Color:=ClBlack
  1712. end;
  1713.  
  1714. Image3.Parent:=Panel3
  1715.  
  1716. ButtonPanel[AButtonIndex]:=Panel3
  1717. ButtonImage[AButtonIndex]:=Image3
  1718.  
  1719. with TLabel.Create(WizardForm) do begin
  1720. Tag:=AButtonIndex
  1721. Parent:=Panel3
  1722. Width:=Panel3.Width
  1723. Height:=Panel3.Height
  1724. Transparent:=True
  1725. OnClick:=@ButtonLabelClick
  1726. OnDblClick:=@ButtonLabelClick
  1727. OnMouseDown:=@ButtonLabelMouseDown3
  1728. OnMouseUp:=@ButtonLabelMouseUp
  1729. OnMouseMove:=@ButtonLabelMouseMove3;
  1730. end ;
  1731.  
  1732. Labl3:=TLabel.Create(WizardForm) ; //????? ??????
  1733. with Labl3 do begin
  1734. Left:=23 ; //????????? ????????? ??????
  1735. Autosize:=True ;
  1736. Alignment:=taCenter ;
  1737. Tag:=AButtonIndex
  1738. Transparent:=True
  1739. Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini')) //???? ??????
  1740. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  1741. if GetIniBool('InterfaceSettings', 'ButtonFontBold', False, ExpandConstant('{src}\Setup.ini')) = true then
  1742. Font.Style:=[fsBold] ;
  1743. Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  1744. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = False) then
  1745. Top:=(GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + (Font.Size / 2) + 2
  1746. else
  1747. Top:=(GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  1748. Caption:=AButton.Caption
  1749. OnClick:=@ButtonLabelClick
  1750. OnDblClick:=@ButtonLabelClick
  1751. OnMouseDown:=@ButtonLabelMouseDown3
  1752. OnMouseUp:=@ButtonLabelMouseUp
  1753. OnMouseMove:=@ButtonLabelMouseMove3;
  1754. Parent:=Panel3
  1755. end;
  1756. ButtonLabel[AButtonIndex]:=Labl3
  1757. end;
  1758.  
  1759. procedure LoadButtonImage4(AButton: TButton; AButtonIndex: integer);
  1760. var
  1761.  
  1762. Panel4: TPanel;
  1763.  
  1764.  
  1765. begin
  1766. Image4:=TBitmapImage.Create(WizardForm)
  1767. with Image4 do begin //??????? ??????? ??????? ?? ??????
  1768. Bitmap.LoadFromFile(ExpandConstant('{src}\btn1.bmp'))
  1769. Width:=Image4.Bitmap.Width //??????????? ????????? ???????????? ?????? ???????
  1770. Height:=Image4.Bitmap.Height
  1771. Enabled:=False
  1772. Visible:=MusicEndis
  1773. end;
  1774. Panel4:=TPanel.Create(WizardForm)
  1775. with Panel4 do begin
  1776. Left:=AButton.Left
  1777. Top:=AButton.Top
  1778. Width:=Image4.Bitmap.Width /3
  1779. Height:=Image4.Bitmap.Height
  1780. Tag:=AButtonIndex
  1781. Parent:=AButton.Parent
  1782. Color:=ClBlack
  1783. Visible:=MusicEndis
  1784. end;
  1785.  
  1786. Image4.Parent:=Panel4
  1787. ButtonPanel[AButtonIndex]:=Panel4
  1788. ButtonImage[AButtonIndex]:=Image4
  1789.  
  1790. with TLabel.Create(WizardForm) do begin
  1791. Tag:=AButtonIndex
  1792. Parent:=Panel4
  1793. Width:=Panel4.Width
  1794. Height:=Panel4.Height
  1795. Transparent:=True
  1796. OnClick:=@ButtonLabelClick
  1797. OnDblClick:=@ButtonLabelClick
  1798. OnMouseDown:=@ButtonLabelMouseDown4
  1799. OnMouseUp:=@ButtonLabelMouseUp
  1800. OnMouseMove:=@ButtonLabelMouseMove4;
  1801.  
  1802. end ;
  1803.  
  1804. Labl4:=TLabel.Create(WizardForm) ; //????? ??????
  1805. with Labl4 do begin
  1806. Left:=0 ; //????????? ????????? ??????
  1807. Top:= (GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) ;
  1808. Width:=Image4.Bitmap.Width /3
  1809. Height:=Image4.Bitmap.Height
  1810. Autosize:=False ;
  1811. Alignment:=taCenter ;
  1812. Tag:=AButtonIndex
  1813. Transparent:=True
  1814. Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini')) //???? ??????
  1815. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  1816. if GetIniBool('InterfaceSettings', 'ButtonFontBold', False, ExpandConstant('{src}\Setup.ini')) = true then
  1817. Font.Style:=[fsBold] ;
  1818. Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  1819. Caption:=AButton.Caption
  1820. OnClick:=@ButtonLabelClick
  1821. OnDblClick:=@ButtonLabelClick
  1822. OnMouseDown:=@ButtonLabelMouseDown4
  1823. OnMouseUp:=@ButtonLabelMouseUp
  1824. OnMouseMove:=@ButtonLabelMouseMove4
  1825. Parent:=Panel4
  1826. Visible:=MusicEndis
  1827. end;
  1828. ButtonLabel[AButtonIndex]:=Labl4
  1829. end;
  1830.  
  1831. procedure LoadButtonImage5(AButton: TButton; AButtonIndex: integer);
  1832. var
  1833.  
  1834. Panel5: TPanel;
  1835. Labl5: TLabel;
  1836.  
  1837. begin
  1838. Image5:=TBitmapImage.Create(WizardForm)
  1839. with Image5 do begin //??????? ??????? ??????? ?? ??????
  1840. Bitmap.LoadFromFile(ExpandConstant('{src}\btn0.bmp'))
  1841. Width:=Image5.Bitmap.Width //??????????? ????????? ???????????? ?????? ???????
  1842. Height:=Image5.Bitmap.Height
  1843. Enabled:=False
  1844. end;
  1845.  
  1846. Panel5:=TPanel.Create(WizardForm)
  1847. with Panel5 do begin
  1848. Left:=AButton.Left
  1849. Top:=AButton.Top
  1850. Width:=Image5.Bitmap.Width /3
  1851. Height:=Image5.Bitmap.Height;
  1852. Tag:=AButtonIndex
  1853. Parent:=AButton.Parent
  1854. Color:=ClBlack
  1855. end;
  1856.  
  1857. Image5.Parent:=Panel5
  1858. ButtonPanel[AButtonIndex]:=Panel5
  1859. ButtonImage[AButtonIndex]:=Image5
  1860.  
  1861. with TLabel.Create(WizardForm) do begin
  1862. Tag:=AButtonIndex
  1863. Parent:=Panel5
  1864. Width:=Panel5.Width
  1865. Height:=Panel5.Height
  1866. Transparent:=True
  1867. OnClick:=@ButtonLabelClick
  1868. OnDblClick:=@ButtonLabelClick
  1869. OnMouseDown:=@ButtonLabelMouseDown5
  1870. OnMouseUp:=@ButtonLabelMouseUp
  1871. OnMouseMove:=@ButtonLabelMouseMove5;
  1872.  
  1873. end ;
  1874.  
  1875. Labl5:=TLabel.Create(WizardForm) ; //????? ??????
  1876. with Labl5 do begin
  1877. Left:=0 ; //????????? ????????? ??????
  1878. Top:= 5 ;
  1879. Width:=Image5.Bitmap.Width /3;
  1880. Height:=Image5.Bitmap.Height;
  1881. Autosize:=False ;
  1882. Alignment:=taCenter ;
  1883. Tag:=AButtonIndex
  1884. Transparent:=True
  1885. Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini')) //???? ??????
  1886. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  1887. if GetIniBool('InterfaceSettings', 'ButtonFontBold', False, ExpandConstant('{src}\Setup.ini')) = true then
  1888. Font.Style:=[fsBold] ;
  1889. Font.Size:= 9;
  1890. Caption:=AButton.Caption
  1891. OnClick:=@ButtonLabelClick
  1892. OnDblClick:=@ButtonLabelClick
  1893. OnMouseDown:=@ButtonLabelMouseDown5
  1894. OnMouseUp:=@ButtonLabelMouseUp
  1895. OnMouseMove:=@ButtonLabelMouseMove5
  1896. Parent:=Panel5
  1897. end;
  1898. ButtonLabel[AButtonIndex]:=Labl5
  1899. end;
  1900.  
  1901. procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
  1902. begin
  1903. ButtonLabel[AButtonIndex].Caption:=AButton.Caption
  1904. ButtonPanel[AButtonIndex].Visible:=AButton.Visible
  1905. ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled
  1906. ButtonPanel[AButtonIndex].Top:=AButton.Top
  1907. end;
  1908.  
  1909. procedure LicenceAcceptedRadioOnClick(Sender: TObject);
  1910. begin
  1911. ButtonLabel[bidNext].Enabled:=True
  1912. end;
  1913.  
  1914. procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
  1915. begin
  1916. ButtonLabel[bidNext].Enabled:=False
  1917. end;
  1918.  
  1919. procedure CurPageChanged2(CurPageID: Integer);
  1920. begin
  1921. UpdateButton(WizardForm.BackButton,bidBack)
  1922. UpdateButton(WizardForm.NextButton,bidNext)
  1923. UpdateButton(WizardForm.CancelButton,bidCancel)
  1924. ButtonLabel[bidBack].Left := (ButtonPanel[bidBack].Width / 2 - ButtonLabel[bidBack].Width / 2);
  1925. ButtonLabel[bidNext].Left := (ButtonPanel[bidNext].Width / 2 - ButtonLabel[bidNext].Width / 2);
  1926. ButtonLabel[bidCancel].Left := (ButtonPanel[bidCancel].Width / 2 - ButtonLabel[bidCancel].Width / 2);
  1927. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then
  1928. ButtonLabel[bidCancel2].Left := (ButtonPanel[bidCancel2].Width / 2 - ButtonLabel[bidCancel2].Width / 2);
  1929. ButtonLabel[bidDirBrowse].Left := (ButtonPanel[bidDirBrowse].Width / 2 - ButtonLabel[bidDirBrowse].Width / 2);
  1930. ButtonLabel[bidCustomInstall].Left := (ButtonPanel[bidCustomInstall].Width / 2 - ButtonLabel[bidCustomInstall].Width / 2);
  1931. if FileExists(ExpandConstant('{src}\btn1.bmp')) then
  1932. ButtonLabel[bidMusicButton].Left := (ButtonPanel[bidMusicButton].Width / 2 - ButtonLabel[bidMusicButton].Width / 2);
  1933. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then
  1934. ButtonLabel[bidMusic2Button].Left := (ButtonPanel[bidMusic2Button].Width / 2 - ButtonLabel[bidMusic2Button].Width / 2);
  1935. end;
  1936.  
  1937. procedure InitializeUninstallProgressForm();
  1938. begin
  1939. FileCopy(ExpandConstant('{app}\Uninstall\Uninstall.bmp'),ExpandConstant('{tmp}\Uninstall.bmp'),False);
  1940. FileCopy(ExpandConstant('{app}\Uninstall\Uninstall.dat'),ExpandConstant('{tmp}\Uninstall.dat'),False);
  1941. BmpFile1:= TBitmapImage.Create(UninstallProgressForm);
  1942. BmpFile1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Uninstall.bmp'));
  1943. BmpFile1.SetBounds(0, 0, InstallerWidth, InstallerHeight);
  1944. BmpFile1.Stretch:= true
  1945. BmpFile1.Parent:= UninstallProgressForm.InstallingPage;
  1946. StatusLabel:=TLabel.Create(UninstallProgressForm);
  1947. with StatusLabel do
  1948. begin
  1949. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) + 5;
  1950. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) + 5;
  1951. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) - 10;
  1952. Height:= ScaleY(200);
  1953. AutoSize:= false;
  1954. WordWrap:= true;
  1955. Transparent:= true;
  1956. Font.Size:= 12;
  1957. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{tmp}\Uninstall.dat'));
  1958. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{tmp}\Uninstall.dat'))
  1959. Font.Style := [fsBold]
  1960. Parent:= UninstallProgressForm.installingpage;
  1961. Caption:= UninstallProgressForm.StatusLabel.Caption
  1962. end;
  1963. StatusLabel:=TLabel.Create(UninstallProgressForm);
  1964. with StatusLabel do
  1965. begin
  1966. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) + 5;
  1967. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) + 55;
  1968. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) - 10;
  1969. Height:= ScaleY(200);
  1970. AutoSize:= false;
  1971. WordWrap:= true;
  1972. Transparent:= true;
  1973. Font.Size:= 10;
  1974. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{tmp}\Uninstall.dat'));
  1975. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{tmp}\Uninstall.dat'))
  1976. Parent:= UninstallProgressForm.installingpage;
  1977. Caption:= UninstallProgressForm.PageDescriptionLabel.Caption;
  1978. end;
  1979.  
  1980. with UninstallProgressForm do begin
  1981. Width:=InstallerWidth;
  1982. Height:=InstallerHeight + 25;
  1983. BorderStyle := bsSingle
  1984. Position := poScreenCenter;
  1985. MainPanel.Hide;
  1986. StatusLabel.Hide;
  1987. InnerNotebook.Left := ScaleX(0);
  1988. InnerNotebook.Top := ScaleY(0);
  1989. InnerNotebook.Width := ScaleX(InstallerWidth);
  1990. InnerNotebook.Height := ScaleY(InstallerHeight);
  1991. OuterNotebook.Left := ScaleX(0);
  1992. OuterNotebook.Top := ScaleY(0);
  1993. OuterNotebook.Width := ScaleX(InstallerWidth);
  1994. OuterNotebook.Height := ScaleY(InstallerHeight);
  1995. ProgressBar.Top:=(GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) + 105;
  1996. ProgressBar.Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) + 5;
  1997. ProgressBar.Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{tmp}\Uninstall.dat'))) - 15;
  1998. ProgressBar.Height:= 12
  1999.  
  2000. end;
  2001. end;
  2002.  
  2003. procedure InitializeWizard2();
  2004. begin
  2005. WizardForm.Position :=poScreenCenter
  2006.  
  2007. CustomInstallButton:=TButton.Create(WizardForm);
  2008. with CustomInstallButton do
  2009. begin
  2010. Top:= (GetIniInt('InterfaceSettings', 'Button3Top', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  2011. Left:= (GetIniInt('InterfaceSettings', 'Button3Left', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  2012. Font.Size:= 10;
  2013. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2014. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2015. Parent:= BmpPanel1;
  2016. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = True) then
  2017. Caption := FmtMessage(ExpandConstant('{cm:IDPROP_SETUPTYPE_CUSTOM}'), [' '])
  2018. else
  2019. Caption := FmtMessage(ExpandConstant('{cm:IDPROP_SETUPTYPE_CUSTOM}'), [#13 + #10]);
  2020. OnClick := @CustomInstallOnClick;
  2021. end;
  2022. Music:= TCheckBox.Create(WizardForm);
  2023. with Music do
  2024. begin
  2025. Parent:= WizardForm;
  2026. Left:= WizardForm.DirEdit.Left;
  2027. Top:= WizardForm.DirEdit.Top + 55;
  2028. Width:= ScaleX(14);
  2029. Height:= ScaleY(14);
  2030. TabOrder:= 0;
  2031. Checked:= true;
  2032. Visible:=false
  2033. end;
  2034. Musiconoff:= TButton.Create(WizardForm);
  2035. with Musiconoff do
  2036. begin
  2037. Caption:=infoMusic;
  2038. Left:= (GetIniInt('InterfaceSettings', 'Button1Left', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  2039. Top:= (GetIniInt('InterfaceSettings', 'Button1Top', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  2040. Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  2041. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2042. Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2043. //Transparent := True;
  2044. Parent:= WizardForm.NextButton.Parent;
  2045. Font.Style := [fsBold]
  2046. OnClick:= @MusicOnClick;
  2047. Visible := MusicEndis
  2048. end;
  2049.  
  2050. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then begin
  2051. Musiconoff2:= TButton.Create(WizardForm);
  2052. with Musiconoff2 do
  2053. begin
  2054. Caption:=infoMusic2;
  2055. Left:= 20;
  2056. Top:= BMPFile2.Bitmap.Height - Image5.Bitmap.Height - 15;
  2057. Width:= (Image5.Bitmap.Width /3);
  2058. Height:= Image5.Bitmap.Height;
  2059. Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  2060. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2061. Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2062. //Transparent := True;
  2063. Parent:= WizardForm.InstallingPage;
  2064. //Font.Style := [fsBold]
  2065. OnClick:= @MusicOnClick;
  2066. Visible := MusicEndis
  2067. end;
  2068. CancelButton2:= TButton.Create(WizardForm);
  2069. with CancelButton2 do
  2070. begin
  2071. Caption:=SetupMessage(msgButtonCancel);
  2072. Left:= BMPFile2.Bitmap.Width - 20 - (Image5.Bitmap.Width /3);
  2073. Top:= BMPFile2.Bitmap.Height - Image5.Bitmap.Height - 15;
  2074. Width:= Image5.Bitmap.Width /3;
  2075. Height:= Image5.Bitmap.Height;
  2076. Font.Size:= GetIniInt('InterfaceSettings', 'ButtonFontSize', 9,0,0, ExpandConstant('{src}\Setup.ini'));
  2077. Font.Name:= GetIniString('InterfaceSettings', 'ButtonFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2078. Font.Color:=GetIniInt('InterfaceSettings', 'ButtonFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2079. //Transparent := True;
  2080. Parent:= WizardForm.InstallingPage;
  2081. //Font.Style := [fsBold]
  2082. OnClick:= @CancelButton2OnClick;
  2083. end;
  2084. end;
  2085. WizardForm.Color := ClBlack
  2086. WizardForm.WelcomePage.Color := ClBlack
  2087. WizardForm.LicensePage.Color := ClBlack
  2088. WizardForm.SelectDirPage.Color := ClBlack
  2089. WizardForm.SelectProgramGroupPage.Color := ClBlack
  2090. WizardForm.ReadyPage.Color := ClBlack
  2091. WizardForm.InstallingPage.Color := ClBlack
  2092. WizardForm.FinishedPage.Color := ClBlack
  2093.  
  2094. WizardForm.WizardBitmapImage.hide;
  2095. WizardForm.WizardSmallBitmapImage.hide;
  2096. WizardForm.WizardSmallBitmapImage.Left:=0;
  2097. WizardForm.SelectGroupBitmapImage.hide;
  2098. WizardForm.SelectDirBitmapImage.hide;
  2099. // Mainform.Enabled := False;;
  2100. Wizardform.BorderStyle := bsSingle ;
  2101. Wizardform.BorderIcons := Mainform.BorderIcons - [biMaximize] ;
  2102. Wizardform.Caption := Mainform.Caption
  2103.  
  2104. WizardForm.LicenseMemo.Top := 160
  2105. WizardForm.LicenseMemo.Left := ScaleX(30)
  2106. WizardForm.LicenseMemo.Width := ScaleX(350)
  2107. WizardForm.LicenseMemo.Height := 165
  2108.  
  2109. WizardForm.BackButton.Left:=(GetIniInt('InterfaceSettings', 'Button3Left', 0,0,0, ExpandConstant('{src}\Setup.ini')))
  2110. WizardForm.BackButton.Top:=(GetIniInt('InterfaceSettings', 'Button3Top', 0,0,0, ExpandConstant('{src}\Setup.ini')))
  2111.  
  2112. WizardForm.NextButton.Left:=(GetIniInt('InterfaceSettings', 'Button4Left', 0,0,0, ExpandConstant('{src}\Setup.ini')))
  2113. WizardForm.NextButton.Top:=(GetIniInt('InterfaceSettings', 'Button4Top', 0,0,0, ExpandConstant('{src}\Setup.ini')))
  2114.  
  2115. WizardForm.CancelButton.Left:=(GetIniInt('InterfaceSettings', 'Button2Left', 0,0,0, ExpandConstant('{src}\Setup.ini')))
  2116. WizardForm.CancelButton.Top:=(GetIniInt('InterfaceSettings', 'Button2Top', 0,0,0, ExpandConstant('{src}\Setup.ini')))
  2117.  
  2118.  
  2119. WizardForm.DirBrowseButton.Left:=(GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - (Image5.Bitmap.Width /3) - 10
  2120. WizardForm.DirBrowseButton.Top:=(GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 130;
  2121. WizardForm.DirBrowseButton.Width:=Image5.Bitmap.Width /3
  2122. WizardForm.DirBrowseButton.Height:=Image5.Bitmap.Height
  2123. WizardForm.DirBrowseButton.Parent:=BmpPanel1 ;
  2124.  
  2125. LoadButtonImage1(WizardForm.NextButton,bidNext)
  2126. LoadButtonImage2(WizardForm.BackButton,bidBack)
  2127. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = False) then
  2128. ButtonLabel[bidBack].Top := (GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + (ButtonLabel[bidBack].Font.Size / 2) + 2 ;
  2129. LoadButtonImage3(WizardForm.CancelButton,bidCancel)
  2130. LoadButtonImage2(CustomInstallButton,bidCustomInstall)
  2131. LoadButtonImage4(MusicOnOff,bidMusicButton)
  2132. LoadButtonImage5(WizardForm.DirBrowseButton,bidDirBrowse)
  2133. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then begin
  2134. LoadButtonImage5(CancelButton2,bidCancel2)
  2135. LoadButtonImage5(MusicOnOff2,bidMusic2Button)
  2136. ButtonPanel[bidMusic2Button].Visible := MusicEndis
  2137. end;
  2138. ///////??????? ???????? ? ??????????
  2139. WizardForm.NextButton.Width:=Image.Bitmap.Width /3;
  2140. WizardForm.NextButton.Height:=Image.Bitmap.Height;
  2141. CustomInstallButton.Width:= Image2.Bitmap.Width /3;
  2142. CustomInstallButton.Height:= Image2.Bitmap.Height;
  2143. WizardForm.BackButton.Width:=Image2.Bitmap.Width /3;
  2144. WizardForm.BackButton.Height:=Image2.Bitmap.Height;
  2145. WizardForm.CancelButton.Width:=Image3.Bitmap.Width /3;
  2146. WizardForm.CancelButton.Height:=Image3.Bitmap.Height;
  2147. MusicOnOff.Width:= Image4.Bitmap.Width /3;
  2148. MusicOnOff.Height:= Image4.Bitmap.Height;
  2149. MainForm.OnClose:= @WizardClose
  2150.  
  2151. with WizardForm do
  2152. begin
  2153. PageNameLabel.Hide;
  2154. PageDescriptionLabel.Hide;
  2155. WelcomeLabel1.Hide;
  2156. WelcomeLabel2.Hide;
  2157. DiskSpaceLabel.Hide;
  2158. SelectDirBitmapImage.Hide;
  2159. SelectDirBrowseLabel.Hide;
  2160. SelectDirLabel.Hide;
  2161. FinishedHeadingLabel.Hide;
  2162. FinishedLabel.Hide;
  2163. MainPanel.Hide
  2164. FilenameLabel.Hide;
  2165. StatusLabel.Hide;
  2166. SelectStartMenuFolderLabel.Hide;
  2167. SelectStartMenuFolderBrowseLabel.Hide;
  2168. ReadyLabel.Hide;
  2169. LicenseLabel1.Hide;
  2170. LicenseAcceptedRadio.Hide;
  2171. LicenseNotAcceptedRadio.Hide;
  2172. end;
  2173. ///////??????? ???????? ? ??????????
  2174. end;
  2175.  
  2176. /////??????????????? ??????
  2177.  
  2178. ////?????? ???? ??????????
  2179. procedure InitializeWizard3();
  2180. begin
  2181. WizardForm.Width:=InstallerWidth;
  2182. WizardForm.Height:=InstallerHeight + 25;
  2183. end;
  2184. ////?????? ???? ??????????
  2185.  
  2186. procedure AcceptLicenseOnClick(Sender: TObject);
  2187. begin
  2188. if SoundEndis = True then
  2189. begin
  2190. sndPlaySound(ExpandConstant('{src}\Button.wav'), SND_FILENAME or SND_ASYNC);
  2191. end;
  2192. if AcceptLicense.Checked = False then begin
  2193. WizardForm.LicenseNotAcceptedRadio.Checked:= True
  2194. ButtonLabel[bidNext].Enabled:=False
  2195. end else begin
  2196. WizardForm.LicenseAcceptedRadio.Checked:= True
  2197. ButtonLabel[bidNext].Enabled:=True end; end;
  2198.  
  2199. ///?????
  2200. procedure InitializeWizard4();
  2201. begin
  2202. WizardForm.DiskSpaceLabel.Hide;
  2203. BmpFile1:= TBitmapImage.Create(WizardForm);
  2204. BmpFile1.Bitmap.LoadFromFile(ExpandConstant('{src}\Uninstall.bmp'));
  2205. BmpPanel1:= TPanel.Create(WizardForm);
  2206. with BmpPanel1 do begin
  2207. Left:=0
  2208. Top:=0
  2209. Width:=InstallerWidth
  2210. Height:=InstallerHeight
  2211. Parent:=Wizardform.BackButton.Parent
  2212. Color:=ClBlack
  2213. end;
  2214. BmpFile1.SetBounds(0, 0, InstallerWidth, InstallerHeight);
  2215. BmpFile1.Stretch:= false
  2216. BmpFile1.Parent:= BmpPanel1;
  2217. if FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then begin
  2218. BmpFile2:= TBitmapImage.Create(WizardForm);
  2219. BmpFile2.Bitmap.LoadFromFile(ExpandConstant('{src}\Installer.bmp'));
  2220. BmpFile2.SetBounds(0, 0, BmpFile2.Bitmap.Width, BmpFile2.Bitmap.Height);
  2221. BmpFile2.Stretch:= false
  2222. BmpFile2.Parent:= Wizardform.InstallingPage;
  2223. end;
  2224. BmpFile3:= TBitmapImage.Create(WizardForm);
  2225. BmpFile3.Bitmap.LoadFromFile(ExpandConstant('{src}\Uninstall.bmp'));
  2226. BmpFile3.SetBounds(0, 0, InstallerWidth, InstallerHeight);
  2227. BmpFile3.Stretch:= false
  2228. BmpFile3.Parent:= Wizardform.FinishedPage;
  2229.  
  2230. //BmpFile8.Bitmap.Left := -(InstallerWidth/2 )
  2231. Image5:= TBitmapImage.Create(WizardForm);
  2232. Image5.Bitmap.LoadFromFile(ExpandConstant('{src}\btn0.bmp'));
  2233. Image5.Parent:= WizardForm.LicensePage;
  2234.  
  2235. MainLabel:= TLabel.Create(WizardForm);
  2236. with MainLabel do
  2237. begin
  2238. Left:= 0;
  2239. Top:= 0;
  2240. Width:= InstallerWidth;
  2241. Height:= InstallerHeight;
  2242. AutoSize:= false;
  2243. Transparent:= true;
  2244. WordWrap:= False;
  2245. Parent:= BmpPanel1;
  2246. //Caption:= Wizardform.WelcomeLabel1.Caption
  2247. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2248. end;
  2249.  
  2250. MainLabel:= TLabel.Create(WizardForm);
  2251. with MainLabel do
  2252. begin
  2253. Left:= 0;
  2254. Top:= 0;
  2255. Width:= InstallerWidth;
  2256. Height:= InstallerHeight;
  2257. AutoSize:= false;
  2258. Transparent:= true;
  2259. WordWrap:= False;
  2260. Parent:= WizardForm.LicensePage;
  2261. //Caption:= Wizardform.WelcomeLabel1.Caption
  2262. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2263. end;
  2264.  
  2265. MainLabel:= TLabel.Create(WizardForm);
  2266. with MainLabel do
  2267. begin
  2268. Left:= 0;
  2269. Top:= 0;
  2270. Width:= InstallerWidth;
  2271. Height:= InstallerHeight;
  2272. AutoSize:= false;
  2273. Transparent:= true;
  2274. WordWrap:= False;
  2275. Parent:= WizardForm.SelectDirPage;
  2276. //Caption:= Wizardform.WelcomeLabel1.Caption
  2277. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2278. end;
  2279.  
  2280. MainLabel:= TLabel.Create(WizardForm);
  2281. with MainLabel do
  2282. begin
  2283. Left:= 0;
  2284. Top:= 0;
  2285. Width:= InstallerWidth;
  2286. Height:= InstallerHeight;
  2287. AutoSize:= false;
  2288. Transparent:= true;
  2289. WordWrap:= False;
  2290. Parent:= WizardForm.SelectProgramGroupPage;
  2291. //Caption:= Wizardform.WelcomeLabel1.Caption
  2292. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2293. end;
  2294.  
  2295. MainLabel:= TLabel.Create(WizardForm);
  2296. with MainLabel do
  2297. begin
  2298. Left:= 0;
  2299. Top:= 0;
  2300. Width:= InstallerWidth;
  2301. Height:= InstallerHeight;
  2302. AutoSize:= false;
  2303. Transparent:= true;
  2304. WordWrap:= False;
  2305. Parent:= WizardForm.InstallingPage;
  2306. //Caption:= Wizardform.WelcomeLabel1.Caption
  2307. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2308. end;
  2309.  
  2310. MainLabel:= TLabel.Create(WizardForm);
  2311. with MainLabel do
  2312. begin
  2313. Left:= 0;
  2314. Top:= 0;
  2315. Width:= InstallerWidth;
  2316. Height:= InstallerHeight;
  2317. AutoSize:= false;
  2318. Transparent:= true;
  2319. WordWrap:= False;
  2320. Parent:= WizardForm.FinishedPage;
  2321. //Caption:= Wizardform.WelcomeLabel1.Caption
  2322. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2323. end;
  2324.  
  2325. NeedSpaceLabel := TLabel.Create(WizardForm);
  2326. with NeedSpaceLabel do
  2327. begin
  2328. Parent := BmpPanel1;
  2329. Transparent:= true;
  2330. Font.Size:= 9;
  2331. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2332. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2333. Autosize:=False;
  2334. WordWrap:=True;
  2335. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2336. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + (GetIniInt('InterfaceSettings', 'TextPositionHeight', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 80;
  2337. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2338. Height := ScaleY(40);
  2339. Caption := DiskSpaceLabelFix
  2340. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2341. end;
  2342.  
  2343. FreeSpaceLabel := TLabel.Create(WizardForm);
  2344. with FreeSpaceLabel do
  2345. begin
  2346. Parent := WizardForm.SelectDirPage;
  2347. Transparent:= true;
  2348. Font.Style:= [fsbold,fsitalic];
  2349. Font.Size:= 9;
  2350. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2351. Font.Color:=ClWhite
  2352. Left := ScaleX(5);
  2353. Top := ScaleY(345);
  2354. Width := ScaleX(209);
  2355. Height := ScaleY(13);
  2356. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2357. end;
  2358.  
  2359. WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0;
  2360.  
  2361. with WizardForm do
  2362. begin
  2363. InnerNotebook.Left := ScaleX(0);
  2364. InnerNotebook.Top := ScaleY(0);
  2365. InnerNotebook.Width := ScaleX(InstallerWidth);
  2366. InnerNotebook.Height := ScaleY(InstallerHeight);
  2367. OuterNotebook.Left := ScaleX(0);
  2368. OuterNotebook.Top := ScaleY(0);
  2369. OuterNotebook.Width := ScaleX(InstallerWidth);
  2370. OuterNotebook.Height := ScaleY(InstallerHeight);
  2371. end;
  2372.  
  2373. with WizardForm do
  2374. begin
  2375. DirEdit.Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2376. DirEdit.Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 95;
  2377. DirEdit.Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 15;
  2378. DirEdit.Color:=clWhite;
  2379. DirEdit.Parent := BmpPanel1;
  2380. GroupEdit.Left:= 30;
  2381. GroupEdit.Top:= 190;
  2382. GroupEdit.Width:= 350
  2383. GroupEdit.Color:=clWhite;
  2384. ProgressGauge.Top:=(GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 105;
  2385. ProgressGauge.Left:=(GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2386. ProgressGauge.Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 15;
  2387. ProgressGauge.Height:= 12
  2388. ProgressGauge.Parent:= BMPPanel1;
  2389. end;
  2390.  
  2391.  
  2392.  
  2393.  
  2394. WelcomeLabel1:= TLabel.Create(WizardForm);
  2395. with WelcomeLabel1 do
  2396. begin
  2397. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2398. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2399. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2400. Height:= 200;
  2401. AutoSize:= false;
  2402. Transparent:= true;
  2403. WordWrap:= true;
  2404. Font.Size:= 16;
  2405. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2406. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2407. Font.Style := [fsbold]
  2408. Parent:= BmpPanel1;
  2409. Caption:= Wizardform.WelcomeLabel1.Caption
  2410. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2411. end;
  2412.  
  2413.  
  2414. WelcomeLabel2:=TLabel.Create(WizardForm);
  2415. with WelcomeLabel2 do
  2416. begin
  2417. Top:= WelcomeLabel1.Top + 110;
  2418. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2419. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2420. Height:= ScaleY(200);
  2421. AutoSize:= false;
  2422. WordWrap:= true;
  2423. Transparent:= true;
  2424. Font.Size:= 10;
  2425. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2426. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2427. Parent:= BmpPanel1;
  2428. Caption:= Wizardform.WelcomeLabel2.Caption
  2429. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2430. end;
  2431.  
  2432. SelectDirBrowseLabel1:=TLabel.Create(WizardForm);
  2433. with SelectDirBrowseLabel1 do
  2434. begin
  2435. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2436. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2437. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2438. Height:= 60;
  2439. AutoSize:= false;
  2440. WordWrap:= true;
  2441. Transparent:= true;
  2442. Font.Size:= 10;
  2443. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2444. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2445. Parent:= BmpPanel1;
  2446. Caption:= Wizardform.SelectDirLabel.Caption
  2447. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2448. end;
  2449.  
  2450. SelectDirBrowseLabel2:=TLabel.Create(WizardForm);
  2451. with SelectDirBrowseLabel2 do
  2452. begin
  2453. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 40;
  2454. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2455. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2456. Height:= 60;
  2457. AutoSize:= false;
  2458. WordWrap:= true;
  2459. Transparent:= true;
  2460. Font.Size:= 10;
  2461. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2462. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2463. Parent:= BmpPanel1;
  2464. Caption:= Wizardform.SelectDirBrowseLabel.Caption
  2465. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2466. end;
  2467.  
  2468.  
  2469. SelectDirBrowseLabel:=TLabel.Create(WizardForm);
  2470. with SelectDirBrowseLabel do
  2471. begin
  2472. Top:= ScaleY(100);
  2473. Left:= ScaleX(30);
  2474. Width:= ScaleX(350);
  2475. Height:= ScaleY(200);
  2476. AutoSize:= false;
  2477. WordWrap:= true;
  2478. Transparent:= true;
  2479. Font.Size:= 10;
  2480. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2481. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2482. Parent:= WizardForm.SelectProgramGroupPage;
  2483. Caption:= WizardForm.SelectStartMenuFolderLabel.Caption
  2484. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2485. end;
  2486.  
  2487. SelectDirBrowseLabel:=TLabel.Create(WizardForm);
  2488. with SelectDirBrowseLabel do
  2489. begin
  2490. Top:= ScaleY(135);
  2491. Left:= ScaleX(30);
  2492. Width:= ScaleX(350);
  2493. Height:= ScaleY(200);
  2494. AutoSize:= false;
  2495. WordWrap:= true;
  2496. Transparent:= true;
  2497. Font.Size:= 10;
  2498. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2499. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2500. Parent:= WizardForm.SelectProgramGroupPage;
  2501. Caption:=Wizardform.SelectDirBrowseLabel.Caption
  2502. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2503. end;
  2504.  
  2505. FinishedHeadingLabel:=TLabel.Create(WizardForm);
  2506. with FinishedHeadingLabel do
  2507. begin
  2508. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;
  2509. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2510. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2511. Height:= ScaleY(653);
  2512. AutoSize:= false;
  2513. WordWrap:= true;
  2514. Font.Size:= 16;
  2515. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2516. Font.Style := [fsBold]
  2517. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2518. Transparent:= true;
  2519. Parent:= WizardForm.FinishedPage;
  2520. Caption:= Wizardform.FinishedHeadingLabel.Caption
  2521. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2522. end;
  2523.  
  2524.  
  2525. FinishedLabel1:= TLabel.Create(WizardForm);
  2526. with FinishedLabel1 do
  2527. begin
  2528. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 115;
  2529. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2530. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2531. Height:= ScaleY(200);
  2532. AutoSize:= false;
  2533. WordWrap:= true;
  2534. Transparent:= true;
  2535. Font.Size:= 10;
  2536. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2537. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2538. Parent:= WizardForm.FinishedPage;
  2539. Caption:= SetupMessage2(msgFinishedLabel)
  2540. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2541. end;
  2542.  
  2543. FinishedLabel2:= TLabel.Create(WizardForm);
  2544. with FinishedLabel2 do
  2545. begin
  2546. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 215;
  2547. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2548. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2549. Height:= ScaleY(200);
  2550. AutoSize:= false;
  2551. WordWrap:= true;
  2552. Transparent:= true;
  2553. Font.Size:= 10;
  2554. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2555. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2556. Parent:= WizardForm.FinishedPage;
  2557. Caption:= SetupMessage(msgClickFinish)
  2558. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2559. end;
  2560.  
  2561. InstallingPageLabel1:=TLabel.Create(WizardForm);
  2562. with InstallingPageLabel1 do
  2563. begin
  2564. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5; //100
  2565. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2566. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2567. Height:= ScaleY(200);
  2568. AutoSize:= false;
  2569. WordWrap:= true;
  2570. Transparent:= true;
  2571. Font.Size:= 12;
  2572. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2573. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2574. Font.Style := [fsBold]
  2575. Parent:= BMPPanel1;
  2576. Caption:= SetupMessage(msgWizardInstalling)
  2577. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2578.  
  2579. end;
  2580.  
  2581. InstallingPageLabel2:=TLabel.Create(WizardForm);
  2582. with InstallingPageLabel2 do
  2583. begin
  2584. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 55; //150
  2585. Left:= (GetIniInt('InterfaceSettings', 'TextPositionLeft', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 5;;
  2586. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 10;
  2587. Height:= ScaleY(200);
  2588. AutoSize:= false;
  2589. WordWrap:= true;
  2590. Transparent:= true;
  2591. Font.Size:= 10;
  2592. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2593. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2594. Parent:= BMPPanel1;
  2595. Caption:= SetupMessage2(msgInstallingLabel)
  2596. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2597. end;
  2598.  
  2599. DirectX:= TCheckBox.Create(WizardForm);
  2600. with DirectX do
  2601. begin
  2602. Parent:= BmpPanel1;
  2603. Left:= WizardForm.DirEdit.Left;
  2604. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 130;
  2605. Width:= ScaleX(14);
  2606. Height:= ScaleY(14);
  2607. TabOrder:= 0;
  2608. Checked:= Dirx;
  2609. Visible:= Dirx
  2610. OnClick:= @SoundPlay
  2611. Color:= GetIniInt('InstallOptions', 'CheckButtonColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2612. end;
  2613.  
  2614. lblDirectX:= TLabel.Create(WizardForm);
  2615. with lblDirectX do
  2616. begin
  2617. Caption:= FmtMessage(cm('InstallAdd'), [GetIniString('LauncherSettings', 'Launch1', '', ExpandConstant('{src}\Setup.ini'))]);
  2618. Left:= WizardForm.DirEdit.Left + 20;
  2619. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 130;
  2620. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 35;
  2621. Height:= ScaleY(13);
  2622. Font.Size:= 9;
  2623. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2624. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2625. Transparent := True;
  2626. Parent:= BmpPanel1;
  2627. OnClick:= @lblDirectXOnClick;
  2628. Visible:= Dirx
  2629. end;
  2630.  
  2631. Redist:= TCheckBox.Create(WizardForm);
  2632. with Redist do
  2633. begin
  2634. Parent:= BmpPanel1;
  2635. Left:= WizardForm.DirEdit.Left;
  2636. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 150;
  2637. Width:= ScaleX(14);
  2638. Height:= ScaleY(14);
  2639. TabOrder:= 1;
  2640. Checked:= Redx;
  2641. Visible:= Redx
  2642. OnClick:= @SoundPlay
  2643. Color:= GetIniInt('InstallOptions', 'CheckButtonColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2644. end;
  2645.  
  2646. lblRedist:= TLabel.Create(WizardForm);
  2647. with lblRedist do
  2648. begin
  2649. Caption:= FmtMessage(cm('InstallAdd'), [GetIniString('LauncherSettings', 'Launch2', '', ExpandConstant('{src}\Setup.ini'))]);
  2650. Left:= WizardForm.DirEdit.Left + 20;
  2651. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 150;
  2652. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 135;
  2653. Height:= ScaleY(13);
  2654. Transparent := True;
  2655. Font.Size:= 9;
  2656. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2657. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2658. Parent:= BmpPanel1;
  2659. OnClick:= @RedistOnClick;
  2660. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2661. Visible:= Redx
  2662. end;
  2663.  
  2664. PhysX:= TCheckBox.Create(WizardForm);
  2665. with PhysX do
  2666. begin
  2667. Parent:= BmpPanel1;
  2668. Left:= WizardForm.DirEdit.Left;
  2669. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 170;
  2670. Width:= ScaleX(14);
  2671. Height:= ScaleY(14);
  2672. TabOrder:= 3;
  2673. Checked:= Phyx;
  2674. Visible := Phyx;
  2675. OnClick:= @SoundPlay
  2676. Color:= GetIniInt('InstallOptions', 'CheckButtonColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2677. end;
  2678.  
  2679. PhysXText:= TLabel.Create(WizardForm);
  2680. with PhysxText do
  2681. begin
  2682. Caption:= FmtMessage(cm('InstallAdd'), [GetIniString('LauncherSettings', 'Launch3', '', ExpandConstant('{src}\Setup.ini'))]);
  2683. Left:= WizardForm.DirEdit.Left + 20;
  2684. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 170;
  2685. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 35;
  2686. Height:= ScaleY(13);
  2687. Font.Size:= 9;
  2688. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2689. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2690. Transparent := True;
  2691. Parent:= BmpPanel1;
  2692. OnClick:= @PhysxOnClick;
  2693. OnMouseMove:=@ButtonLabelMouseMoveMain;
  2694. Visible := Phyx;
  2695. end;
  2696.  
  2697. GFWL:= TCheckBox.Create(WizardForm);
  2698. with GFWL do
  2699. begin
  2700. Parent:= BmpPanel1;
  2701. Left:= WizardForm.DirEdit.Left;
  2702. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 190;
  2703. Width:= ScaleX(14);
  2704. Height:= ScaleY(14);
  2705. TabOrder:= 3;
  2706. Checked:= GFWLV;
  2707. Visible := GFWLV;
  2708. OnClick:= @SoundPlay
  2709. Color:= GetIniInt('InstallOptions', 'CheckButtonColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2710. end;
  2711.  
  2712. GFWLText:= TLabel.Create(WizardForm);
  2713. with GFWLText do
  2714. begin
  2715. Caption:= FmtMessage(cm('InstallAdd'), [GetIniString('LauncherSettings', 'Launch4', '', ExpandConstant('{src}\Setup.ini'))]);
  2716. Left:= WizardForm.DirEdit.Left + 20;
  2717. Top:= (GetIniInt('InterfaceSettings', 'TextPositionTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + 190;
  2718. Width:= (GetIniInt('InterfaceSettings', 'TextPositionWidth', 0,0,0, ExpandConstant('{src}\Setup.ini'))) - 35;
  2719. Height:= ScaleY(13);
  2720. Font.Size:= 9;
  2721. Font.Name:= GetIniString('InterfaceSettings', 'SetupFont', 'Arial', ExpandConstant('{src}\Setup.ini'));
  2722. Font.Color:=GetIniInt('InterfaceSettings', 'SetupFontColor', $000000,0,0, ExpandConstant('{src}\Setup.ini'))
  2723. Transparent := True;
  2724. Parent:= BmpPanel1;
  2725. OnClick:= @GFWLOnClick;
  2726. Visible := GFWLV;
  2727. end;
  2728.  
  2729. end;
  2730. ///?????
  2731.  
  2732. procedure InitializeWizard();
  2733. begin
  2734. InitializeWizard4();
  2735. InitializeWizard3();
  2736. InitializeWizard2();
  2737. InitializeWizard1();
  2738. end;
  2739.  
  2740. procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
  2741.  
  2742. var
  2743. ResultCode: integer;
  2744.  
  2745. begin
  2746. if CurUninstallStep = usUninstall then
  2747. begin
  2748. #ifdef ProductCode
  2749. DeleteRegistryInfo;
  2750. #endif
  2751. if ((GetIniString('InstallSettings', 'GDFBinary', '', ExpandConstant('{tmp}\Uninstall.dat')) <> '') or (GetIniString('InstallSettings', 'GDFBinary' + LanguageTranslator2(ActiveLanguage) , '', ExpandConstant('{tmp}\Uninstall.dat')) <> '')) then
  2752. begin
  2753. if (GetIniString('InstallSettings', 'GDFBinary', '', ExpandConstant('{tmp}\Uninstall.dat')) <> '') then begin
  2754. RetrieveGUIDForApplication(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'GDFBinary', '', ExpandConstant('{tmp}\Uninstall.dat'))), GUID)
  2755. end else begin
  2756. RetrieveGUIDForApplication(ExpandConstant('{app}\' + GetIniString('InstallSettings', 'GDFBinary' + LanguageTranslator2(ActiveLanguage), '', ExpandConstant('{tmp}\Uninstall.dat'))), GUID);
  2757. end;
  2758. RemoveFromGameExplorer(GUID);
  2759. end;
  2760. UnloadDLL(ExpandConstant('{app}\GameuxInstallHelper.dll'));
  2761. if FileOrDirExists(ExpandConstant(GetIniString('InstallOptions', 'SaveGameFolder', '', ExpandConstant('{tmp}\Uninstall.dat')))) then
  2762. if (UninstallSilent = False) and (MsgBox(ExpandConstant('{cm:DelSaveGameFold}'), mbInformation, MB_YESNO) = IDNO) then begin
  2763. DelTree(ExpandConstant(GetIniString('InstallOptions', 'SaveGameFolder', '', ExpandConstant('{tmp}\Uninstall.dat'))), True, True, True);
  2764. end;
  2765. end;
  2766. end;
  2767.  
  2768. function NextButtonClick(CurPageID: Integer): Boolean;
  2769. begin
  2770. if (CurPageID = wpWelcome) and (FastInstall = 0) and (GetIniBool('InterfaceSettings', 'EnableFastInstall', False, ExpandConstant('{src}\Setup.ini')) = True) then
  2771. FastInstall := 1;
  2772. Result := True;
  2773. end;
  2774.  
  2775. function BackButtonClick(CurPageID: Integer): Boolean;
  2776. begin
  2777. if CurPageID = wpFinished then
  2778. Wizardform.NextButton.OnClick(nil);
  2779. Result := True;
  2780. end;
  2781.  
  2782.  
  2783. procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
  2784. begin
  2785. if CancelMode = True then
  2786. Confirm := False
  2787. else
  2788. Confirm := True
  2789. end;
  2790.  
  2791. Procedure CurPageChanged1(CurPageID: Integer);
  2792. Begin
  2793. if (CurPageID = wpWelcome) then begin
  2794. FastInstall := 0;
  2795. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = False) then
  2796. ButtonLabel[bidNext].Top := (GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  2797. WelcomeLabel1.Visible := True;
  2798. WelcomeLabel2.Visible := True;
  2799. if (GetIniBool('InterfaceSettings', 'EnableFastInstall', False, ExpandConstant('{src}\Setup.ini')) = True) then begin
  2800. ButtonPanel[bidCustomInstall].Visible := True;
  2801. CustomInstallButton.Visible := True;
  2802. end else begin
  2803. ButtonPanel[bidCustomInstall].Visible := False;
  2804. CustomInstallButton.Visible := False;
  2805. end;
  2806. SelectDirBrowseLabel1.Visible := False;
  2807. SelectDirBrowseLabel2.Visible := False;
  2808. Wizardform.DirEdit.Visible := False;
  2809. WizardForm.DirBrowseButton.Visible:= False;
  2810. ButtonPanel[bidDirBrowse].Visible:= False;
  2811. Wizardform.ProgressGauge.Visible := False;
  2812. DirectX.Visible := False;
  2813. lblDirectX.Visible := False;
  2814. Redist.Visible:= False;
  2815. lblRedist.Visible:= False;
  2816. PhysX.Visible := False;
  2817. PhysXText.Visible := False;
  2818. GFWL.Visible:= False;
  2819. GFWLText.Visible:= False;
  2820. NeedSpaceLabel.Visible:= False;
  2821. InstallingPageLabel1.Visible := False;
  2822. InstallingPageLabel2.Visible := False;
  2823. SetTaskBarTitle(FmtMessage(ExpandConstant('{cm:ending}'), [GetAppName('')]))
  2824. Wizardform.Caption := FmtMessage(ExpandConstant('{cm:ending}'), [GetAppName('')]);
  2825. if (GetIniBool('InterfaceSettings', 'EnableFastInstall', False, ExpandConstant('{src}\Setup.ini')) = True) then begin
  2826. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = True) then
  2827. Wizardform.NextButton.Caption := FmtMessage(ExpandConstant('{cm:IDPROP_SETUPTYPE_COMPLETE}'), [' '])
  2828. else
  2829. Wizardform.NextButton.Caption := FmtMessage(ExpandConstant('{cm:IDPROP_SETUPTYPE_COMPLETE}'), [#13 + #10]);
  2830. end;
  2831. end;
  2832. if (CurPageID = wpSelectDir) and (FastInstall = 1) then
  2833. Wizardform.NextButton.OnClick(nil) ;
  2834. if (CurPageID = wpSelectDir) then begin
  2835. if (GetIniBool('InterfaceSettings', 'ButtonOneLiner', False, ExpandConstant('{src}\Setup.ini')) = False) then
  2836. ButtonLabel[bidNext].Top := (GetIniInt('InterfaceSettings', 'ButtonLabelTop', 0,0,0, ExpandConstant('{src}\Setup.ini'))) + (ButtonLabel[bidNext].Font.Size / 2) + 2 ;
  2837. Wizardform.NextButton.Caption := SetupMessage(msgButtonInstall);
  2838. WelcomeLabel1.Visible := False;
  2839. WelcomeLabel2.Visible := False;
  2840. ButtonPanel[bidCustomInstall].Visible := False;
  2841. CustomInstallButton.Visible := False;
  2842. SelectDirBrowseLabel1.Visible := True;
  2843. SelectDirBrowseLabel2.Visible := True;
  2844. Wizardform.DirEdit.Visible := True;
  2845. WizardForm.DirBrowseButton.Visible:= True;
  2846. ButtonPanel[bidDirBrowse].Visible:= True;
  2847. DirectX.Visible := Dirx;
  2848. lblDirectX.Visible := Dirx;
  2849. Redist.Visible:= Redx;
  2850. lblRedist.Visible:= Redx;
  2851. PhysX.Visible := PhyX;
  2852. PhysXText.Visible := PhyX;
  2853. GFWL.Visible:= GFWLV;
  2854. GFWLText.Visible:= GFWLV;
  2855. NeedSpaceLabel.Visible:= True;
  2856. end;
  2857. if (CurPageID = wpInstalling) then begin
  2858. InstallingPageLabel1.Visible := True;
  2859. InstallingPageLabel2.Visible := True;
  2860. Wizardform.ProgressGauge.Visible := True;
  2861. WelcomeLabel1.Visible := False;
  2862. WelcomeLabel2.Visible := False;
  2863. ButtonPanel[bidCustomInstall].Visible := False;
  2864. SelectDirBrowseLabel1.Visible := False;
  2865. SelectDirBrowseLabel2.Visible := False;
  2866. Wizardform.DirEdit.Visible := False;
  2867. WizardForm.DirBrowseButton.Visible:= False;
  2868. ButtonPanel[bidDirBrowse].Visible:= False;
  2869. CustomInstallButton.Visible := False;
  2870. DirectX.Visible := False;
  2871. lblDirectX.Visible := False;
  2872. Redist.Visible:= False;
  2873. lblRedist.Visible:= False;
  2874. PhysX.Visible := False;
  2875. PhysXText.Visible := False;
  2876. GFWL.Visible:= False;
  2877. GFWLText.Visible:= False;
  2878. NeedSpaceLabel.Visible:= False;
  2879. end;
  2880. if (CurPageID = wpInstalling) and FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then begin
  2881. BmpPanel1.Visible := False;
  2882. InstallingPageLabel1.Parent := Wizardform.InstallingPage;
  2883. InstallingPageLabel2.Parent := Wizardform.InstallingPage;
  2884. Wizardform.ProgressGauge.Parent := Wizardform.InstallingPage;
  2885. InstallingPageLabel1.Top:= 20;
  2886. InstallingPageLabel1.Left:= 20;
  2887. InstallingPageLabel1.Width:= BMPFile2.Bitmap.Width - 50;
  2888. InstallingPageLabel2.Top:= 50;
  2889. InstallingPageLabel2.Left:= 20;
  2890. InstallingPageLabel2.Width:= BMPFile2.Bitmap.Width - 50;
  2891. Background('background1.bmp');
  2892. with wizardform do begin
  2893. ProgressGauge.Top:=100;
  2894. ProgressGauge.Left:=20;
  2895. ProgressGauge.Width:= BMPFile2.Bitmap.Width - 40
  2896. show;
  2897. Width := BMPFile2.Bitmap.Width;
  2898. Height := BMPFile2.Bitmap.Height + 25;
  2899. Top := GetSystemMetrics(1) - WizardForm.Height - 50;
  2900. Left := GetSystemMetrics(0) /2 - WizardForm.Width /2 ;
  2901. // CancelButton.Top := 135;
  2902. end;
  2903. // WizardForm.CancelButton.Parent := Wizardform.InstallingPage
  2904. // LoadButtonImage(WizardForm.CancelButton,bidCancel)
  2905. end;
  2906. if (CurPageID = wpFinished) then begin
  2907. SetTaskBarTitle(FmtMessage(ExpandConstant('{cm:ending}'), [GetAppName('')]))
  2908. BmpPanel1.Visible := False;
  2909. if (GetIniBool('InterfaceSettings', 'EnableFastInstall', False, ExpandConstant('{src}\Setup.ini')) = True) then begin
  2910. Wizardform.Backbutton.show;
  2911. Wizardform.Backbutton.Caption := Wizardform.NextButton.Caption;
  2912. Wizardform.NextButton.Left := Wizardform.Width * 20;
  2913. ButtonPanel[bidNext].Left := Wizardform.Width * 20;
  2914. end;
  2915. end;
  2916. if (CurPageID = wpFinished) and FileExists(ExpandConstant('{src}\background1.bmp')) and FileExists(ExpandConstant('{src}\Installer.bmp')) then begin
  2917. BGForm.Hide;
  2918. WizardForm.Width := InstallerWidth;
  2919. WizardForm.Height := InstallerHeight + 25;
  2920. WizardForm.Top := GetSystemMetrics(1) /2 - WizardForm.Height /2 ;
  2921. WizardForm.Left := GetSystemMetrics(0) /2 - WizardForm.Width /2 ;
  2922. // Wizardform.NextButton.Top := (GetIniInt('InterfaceSettings', 'Button3Top', 0,0,0, ExpandConstant('{src}\Setup.ini')));
  2923.  
  2924. end;
  2925. if (CurPageID = wpFinished) and (MyError = True) then
  2926. Wizardform.NextButton.OnClick(nil)
  2927. End;
  2928.  
  2929.  
  2930.  
  2931. function InitializeSetup(): Boolean;
  2932. var
  2933. appath,s : string;
  2934. ResultCode: Integer;
  2935. BitmapImage1 : TBitmapImage;
  2936. begin
  2937. if (FileExists(ExpandConstant('{code:GetSourcePath}\Setup.dll')) = False) or (Pos('.exe', GetCmdTail) <> 0) then begin
  2938. MsgBox('DLL file cant be launched.', mbCriticalError, MB_OK)
  2939. Result := False
  2940. end else begin
  2941. Result := True //testbereich
  2942. FileCopy(ExpandConstant('{code:GetSourcePath}\Setup.ini'),ExpandConstant('{src}\Setup.ini'),False);
  2943. // ExtractTemporaryFile('button.bmp')
  2944. // ExtractTemporaryFile('bigbutton.bmp')
  2945. // ExtractTemporaryFile('Uninstall.bmp');
  2946. // ExtractTemporaryFile('2.bmp');
  2947. // ExtractTemporaryFile('background1.bmp');
  2948. // if (BackgroundImageQuantity >= 2) then
  2949. // ExtractTemporaryFile('background2.bmp');
  2950. // if (BackgroundImageQuantity >= 3) then
  2951. // ExtractTemporaryFile('background3.bmp');
  2952. // if (BackgroundImageQuantity >= 4) then
  2953. // ExtractTemporaryFile('background4.bmp');
  2954. // if (BackgroundImageQuantity >= 5) then
  2955. // ExtractTemporaryFile('background5.bmp');
  2956. // if (BackgroundImageQuantity >= 6) then
  2957. // ExtractTemporaryFile('background6.bmp');
  2958. // if (BackgroundImageQuantity >= 7) then
  2959. // ExtractTemporaryFile('background7.bmp');
  2960. // ExtractTemporaryFile('Splash.bmp');
  2961. // #if fileExists("music.mp3")
  2962. // ExtractTemporaryFile('music.mp3');
  2963. // #endif
  2964. // if MusicEndis = True then
  2965.  
  2966. PlayMusic()
  2967. counter2:=1
  2968. repeat
  2969. counter2:=counter2 +1
  2970. // MsgBox(ExpandConstant('{src}\background'+ IntToStr(counter2)+'.bmp'), mbInformation, MB_YESNO);
  2971. until FileExists(ExpandConstant('{src}\background'+ IntToStr(counter2)+'.bmp')) = False;
  2972. BackgroundImageQuantity := counter2-1
  2973. counter2 := 0;
  2974. PictureShown := 0;
  2975. yener90Mode:=False;
  2976. if GetIniBool('InstallOptions', 'yener90mode', False, ExpandConstant('{src}\Setup.ini')) = true then
  2977. yener90Mode:=True;
  2978. if FileExists(ExpandConstant('{src}\Splash.bmp')) then
  2979. Splash('Splash.bmp');
  2980. // if SoundEndis = True then
  2981. //ExtractTemporaryFile('Button.wav');
  2982. end;
  2983. end;
  2984.  
  2985. procedure CurPageChanged(CurPageID: Integer);
  2986. begin
  2987. CurPageChanged1(CurPageID);
  2988. CurPageChanged2(CurPageID);
  2989. end;
  2990.  
  2991. [CustomMessages]
  2992. eng.InsertDisk=Please insert disc: %1
  2993. eng.ending=%1 - Installation
  2994. eng.BM=Music
  2995. eng.BMon=ON
  2996. eng.BMoff=OFF
  2997. eng.InstallAdd=Install %1
  2998. eng.uninstall=Deinstall
  2999. eng.Language=ENU
  3000. eng.LanguageNR=1033
  3001. eng.Language2=en_US
  3002. eng.Language3=us
  3003. eng.IDPROP_SETUPTYPE_COMPLETE=Default%1Installation
  3004. eng.IDPROP_SETUPTYPE_CUSTOM=Custom%1Installation
  3005. eng.InstallingAF=Installing %1.....
  3006. eng.DelSaveGameFold=Do you want to keep save game?
  3007.  
  3008. cze.ArcBreak=Instalace byla přerušena!
  3009. cze.InsertDisk=ProsĂ­m vloĹľte DVD: %1
  3010. cze.taskbar=%1%%, %2 zůstává
  3011. cze.ending=%1 - Instalace
  3012. cze.hour= hodiny
  3013. cze.min= min
  3014. cze.sec= sek
  3015. cze.BM=Hudba
  3016. cze.InstallAdd=%1 install
  3017. cze.uninstall=Odinstalovat
  3018. cze.Language=CZE
  3019. cze.Language2=cs_CZ
  3020. cze.LanguageNR=1029
  3021. cze.IDPROP_SETUPTYPE_COMPLETE=Úplná%1instalace
  3022. cze.IDPROP_SETUPTYPE_CUSTOM=VlastnĂ­%1instalace
  3023. cze.InstallingAF=Instalace %1.....
  3024. cze.DelSaveGameFold=Chcete-li uloĹľit hry?
  3025.  
  3026. cnt.InsertDisk=請插入光盤： %1
  3027. cnt.ending=%1 - 安裝
  3028. cnt.BM=音樂
  3029. cnt.BMon=ON
  3030. cnt.BMoff=OFF
  3031. cnt.InstallAdd=安裝 %1
  3032. cnt.uninstall=卸載
  3033. cnt.Language=ENU
  3034. cnt.LanguageNR=1033
  3035. cnt.Language2=zh_TW
  3036. cnt.Language3=us
  3037. cnt.IDPROP_SETUPTYPE_COMPLETE=默認%1安裝
  3038. cnt.IDPROP_SETUPTYPE_CUSTOM=自定義%1安裝
  3039. cnt.InstallingAF=安裝 %1.....
  3040. cnt.DelSaveGameFold=你想保持保存遊戲？
  3041.  
  3042. dan.InsertDisk=Indsæt den DVD: %1
  3043. dan.ending=%1 - Installation
  3044. dan.BM=Musik
  3045. dan.InstallAdd=Installere %1
  3046. dan.uninstall=Afinstaller
  3047. dan.Language=DAN
  3048. dan.IDPROP_SETUPTYPE_COMPLETE=Standard%1Installation
  3049. dan.IDPROP_SETUPTYPE_CUSTOM=Brugerdefineret%1Installation
  3050. dan.InstallingAF=%1 er installeret.....
  3051. dan.DelSaveGameFold=Ønsker du at beholde det gemte spil?
  3052.  
  3053. ger.ArcBreak=Installation abgebrochen!
  3054. ger.ArcError=Entpacken brach mit dem Fehlercode %1 ab.
  3055. ger.ErrorUnknownError=Ein Fehler trat beim Entpacken auf. Kontaktieren sie den Autor des Programms.
  3056. ger.ErrorCompressMethod=Die Kompressions-Methode "%1" des Archivs "%2" wird von der aktuellen Version von unarc.dll nicht unterstutzt.
  3057. ger.ErrorOutBlockSize=Ausgabe-Block ist zu klein fur das Archiv "%1"
  3058. ger.ErrorNotEnoughRAMMemory=Nicht genug freier Speicher um das Archiv "%1" zu entpacken.
  3059. ger.ErrorReadData=Archiv "%1" Daten-Lese-Fehler
  3060. ger.ErrorBadCompressedData=Daten konnten nicht aus dem Archiv "%1" entpackt werden.
  3061. ger.ErrorNotImplement=Die benotigte Funktion wird noch nicht von unarc.dll unterstutzt.
  3062. ger.ErrorDataAlreadyDecompress=Daten-Block des Archivs "%1" ist bereits entpackt.
  3063. ger.ErrorUnpackTerminated=Abbruch durch Benutzer.
  3064. ger.ErrorWriteData=Ein Fehler ereignete sich beim Bearbeiten des Archivs "%1"
  3065. ger.ErrorBadCRC=Falsche CRC-Prufsumme in Archiv "%1"
  3066. ger.ErrorBadPassword=Passwort fur Archiv "%1" ist falsch.
  3067. ger.ErrorBadHeader=Header des Archivs "%1" ist beschadigt.
  3068. ger.ErrorCodeException=Code-Ausnahme erkannt. Kontaktieren sie den Autor des Programms.
  3069. ger.ErrorNotEnoughFreeSpace=Nicht genug freier Speicher um "%1" zu entpacken!
  3070. ger.ArcTitle=Entpacke FreeArc-Archive...
  3071. ger.StatusInfo=Dateien: %1%2, Fortschritt %3%%, verbleibende Zeit %4
  3072. ger.ArcInfo=Disk %1 von %2, Archiv %3 von %4, %5%% des Archivs bearbeitet.
  3073. ger.ArcFinish=Entpackte Archive: %1, erhaltene Dateien: %2 [%3]
  3074. ger.InsertDisk=Bitte DVD einlegen: %1
  3075. ger.ending=%1 - Installation
  3076. ger.BM=Musik
  3077. ger.BMon=AN
  3078. ger.BMoff=AUS
  3079. ger.InstallAdd=%1 installieren
  3080. ger.uninstall=Deinstallieren
  3081. ger.Language=DEU
  3082. ger.Language2=de_DE
  3083. ger.Language3=de
  3084. ger.LanguageNR=1031
  3085. ger.IDPROP_SETUPTYPE_COMPLETE=Standard%1Installation
  3086. ger.IDPROP_SETUPTYPE_CUSTOM=Benutzerdefinierte%1Installation
  3087. ger.InstallingAF=%1 wird installiert.....
  3088. ger.DelSaveGameFold=Wollen Sie die gespeicherten Spielstände behalten ?
  3089.  
  3090. esp.ArcBreak=InstalaciĂłn abortada!
  3091. esp.InsertDisk=Por favor, inserte el disco: %1
  3092. esp.taskbar=%1%%, %2 restante
  3093. esp.ending=%1 - InstalaciĂłn
  3094. esp.hour= hours
  3095. esp.min= min
  3096. esp.sec= sec
  3097. esp.BM=MĂşsica
  3098. esp.InstallAdd=Instalar %1
  3099. esp.uninstall=Desinstalar
  3100. esp.Language=ESP
  3101. esp.Language2=es_ES
  3102. esp.Language3=es
  3103. esp.LanguageNR=1034
  3104. esp.IDPROP_SETUPTYPE_COMPLETE=InstalaciĂłn%1predeterminada
  3105. esp.IDPROP_SETUPTYPE_CUSTOM=InstalaciĂłn%1personalizada
  3106. esp.InstallingAF=Instalando %1.....
  3107.  
  3108. fre.ArcBreak=Installation avortée!
  3109. fre.InsertDisk=Veuillez insérer le disque: %1
  3110. fre.taskbar=%1%%, %2 restant
  3111. fre.ending=%1 - Installation
  3112. fre.hour= hours
  3113. fre.min= min
  3114. fre.sec= sec
  3115. fre.BM=Musique
  3116. fre.InstallAdd=Installer %1
  3117. fre.uninstall=DĂ©sinstallation
  3118. fre.Language=FRA
  3119. fre.Language2=fr_FR
  3120. fre.Language3=fr
  3121. fre.LanguageNR=1036
  3122. fre.IDPROP_SETUPTYPE_COMPLETE=Installation%1par défaut
  3123. fre.IDPROP_SETUPTYPE_CUSTOM=Installation%1personnalisée
  3124. fre.InstallingAF=Installation des %1.....
  3125.  
  3126. hun.InsertDisk=KĂ©rem, tegye be a meghajĂłba a %1. DVD-t
  3127. hun.ending=%1 - telepítése
  3128. hun.BM=Zene
  3129. hun.BMon=BE
  3130. hun.BMoff=KI
  3131. hun.InstallAdd=%1 telepítése
  3132. hun.uninstall=Eltávolítása
  3133. hun.Language=HUN
  3134. hun.LanguageNR=1038
  3135. hun.IDPROP_SETUPTYPE_COMPLETE=Szokásos%1telepítés
  3136. hun.IDPROP_SETUPTYPE_CUSTOM=Egyedi%1telepítés
  3137. hun.InstallingAF=%1 telepítése folyamatban.....
  3138. hun.DelSaveGameFold=Szeretné megtartani az elmentett játékállásokat?
  3139.  
  3140. ita.ArcBreak=Installazione interrotta!
  3141. ita.InsertDisk=Inserire il disco: %1
  3142. ita.taskbar=%1%%, %2 sinistra
  3143. ita.ending=%1 - Installazione
  3144. ita.hour=ora
  3145. ita.min=min
  3146. ita.sec=sec
  3147. ita.InstallAdd=Installa %1
  3148. ita.BM=Musica
  3149. ita.uninstall=Rimuovi
  3150. ita.Language=ITA
  3151. ita.Language2=it_IT
  3152. ita.Language3=it
  3153. ita.LanguageNR=1040
  3154. ita.IDPROP_SETUPTYPE_COMPLETE=Installazione%1predefinita
  3155. ita.IDPROP_SETUPTYPE_CUSTOM=Installazione%1personalizzata
  3156. ita.InstallingAF=Installazione %1 in corso.....
  3157.  
  3158. jap.ArcBreak=インストールは中止されました！
  3159. jap.InsertDisk=ディスクを挿入してください: %1
  3160. jap.taskbar=%1%%, %2 のまま
  3161. jap.ending=%1 - インストール
  3162. jap.hour= 時間
  3163. jap.min= 分の
  3164. jap.sec= 秒
  3165. jap.BM=音楽
  3166. jap.BMon=オン
  3167. jap.BMoff=オフ
  3168. jap.InstallAdd=インストール %1
  3169. jap.uninstall=削除
  3170. jap.Language=JAP
  3171. jap.Language2=jp_JP
  3172. jap.IDPROP_SETUPTYPE_COMPLETE=すべて
  3173. jap.IDPROP_SETUPTYPE_CUSTOM=ｶｽﾀﾑ
  3174. jap.InstallingAF=インストール %1.....
  3175. jap.DelSaveGameFold=あなたは、保存したゲームを保存しますか？
  3176.  
  3177. kor.InsertDisk=넣으십시오 DVD: %1
  3178. kor.ending=%1 - 설치
  3179. kor.BM=음악
  3180. kor.InstallAdd=%1 설치
  3181. kor.uninstall=ě śę±°
  3182. kor.Language=KOR
  3183. kor.LanguageNR=1042
  3184. kor.Language2=ko_KR
  3185. kor.IDPROP_SETUPTYPE_COMPLETE=표준%1설치
  3186. kor.IDPROP_SETUPTYPE_CUSTOM=사용자 정의%1설치
  3187. kor.InstallingAF=%1 설치됩니다.....
  3188. kor.DelSaveGameFold=당신이 저장된 게임을 계속 하시겠습니까?
  3189.  
  3190.  
  3191. ndl.ArcBreak=Installatie afgebroken!
  3192. ndl.InsertDisk=Plaats DVD: %1
  3193. ndl.taskbar=%1%%, %2 blijft
  3194. ndl.ending=%1 - Installatie
  3195. ndl.hour= uur
  3196. ndl.min= min
  3197. ndl.sec= sek
  3198. ndl.BM=Muziek
  3199. ndl.InstallAdd=%1 installeren
  3200. ndl.uninstall=Verwijderen
  3201. ndl.Language=NDL
  3202. ndl.IDPROP_SETUPTYPE_COMPLETE=Standaard%1Installatie
  3203. ndl.IDPROP_SETUPTYPE_CUSTOM=Aangepaste%1Installatie
  3204. ndl.InstallingAF=%1 is geĂŻnstalleerd .....
  3205. ndl.DelSaveGameFold=Wil je de opgeslagen spellen?
  3206.  
  3207. nor.InsertDisk=Sett inn DVD: %1
  3208. nor.ending=%1 - Installasjon
  3209. nor.BM=Musikk
  3210. nor.InstallAdd=Installer %1
  3211. nor.uninstall=Avinstaller
  3212. nor.Language=NOR
  3213. nor.IDPROP_SETUPTYPE_COMPLETE=Standard%1Installasjon
  3214. nor.IDPROP_SETUPTYPE_CUSTOM=Tilpasset%1Installasjon
  3215. nor.InstallingAF=Installere %1.....
  3216. nor.DelSaveGameFold=Vil du beholde de lagrede spillene?
  3217.  
  3218. pol.InsertDisk=Proszę włożyć dysk: %1
  3219. pol.ending=%1 - Instalacja
  3220. pol.BM=Muzyka
  3221. pol.BMon=TAK
  3222. pol.BMoff=NIE
  3223. pol.InstallAdd=Zainstaluj %1
  3224. pol.uninstall=Deinstalacja
  3225. pol.Language=pol
  3226. pol.LanguageNR=1045
  3227. pol.Language2=pl_PL
  3228. pol.IDPROP_SETUPTYPE_COMPLETE=Instalacja%1standardowa
  3229. pol.IDPROP_SETUPTYPE_CUSTOM=Instalacja%1niestandardowa
  3230. pol.InstallingAF=Instalacja %1.....
  3231. pol.DelSaveGameFold=Czy chcesz zachować zapisane stany gry?
  3232.  
  3233.  
  3234. por.ArcBreak=Instalação abortada!
  3235. por.InsertDisk= Por favor, insira o DVD: %1
  3236. por.taskbar=%1%%, %2 permanece
  3237. por.ending=%1 - Instalação
  3238. por.hour= horas
  3239. por.min= min
  3240. por.sec= s
  3241. por.BM=MĂşsica
  3242. por.InstallAdd=Instalar %1
  3243. por.uninstall=Deinstall
  3244. por.Language=POR
  3245. por.IDPROP_SETUPTYPE_COMPLETE=Instalação%1padrão
  3246. por.IDPROP_SETUPTYPE_CUSTOM=Instalação%1personalizada
  3247. por.InstallingAF=Instalando %1.....
  3248.  
  3249. rus.ArcBreak=Установка прервана!
  3250. rus.InsertDisk=Вставьте диск: %1
  3251. rus.taskbar=%1%%, жди %2
  3252. rus.ending=%1 - Установка
  3253. rus.hour= часов
  3254. rus.min= мин
  3255. rus.sec= сек
  3256. rus.BM=музыка
  3257. rus.InstallAdd=Установить %1
  3258. rus.uninstall=Удаление
  3259. rus.Language=rus
  3260. rus.IDPROP_SETUPTYPE_COMPLETE=Стандартная%1установка
  3261. rus.IDPROP_SETUPTYPE_CUSTOM=Выборочная%1установка
  3262. rus.InstallingAF=Установить %1.....
  3263.  
  3264. swe.InsertDisk=Sätt in DVD: %1
  3265. swe.ending=%1 - Installation
  3266. swe.BM=Musik
  3267. swe.InstallAdd=Installera %1
  3268. swe.uninstall=Avinstallera
  3269. swe.Language=SWE
  3270. swe.IDPROP_SETUPTYPE_COMPLETE=Standard%1Installation
  3271. swe.IDPROP_SETUPTYPE_CUSTOM=Anpassad%1Installation
  3272. swe.InstallingAF=%1 är installerat.....
  3273. swe.DelSaveGameFold=Vill du ha kvar det sparade spel?
  3274.  
  3275. tha.ArcBreak=การติดตั้งถูกยกเลิก!
  3276. tha.InsertDisk=กรุณาใส่แผ่น: %1
  3277. tha.ending=%1 - ตัวติดตั้ง
  3278. tha.BM=ดนตรี
  3279. tha.BMon=เปิด
  3280. tha.BMoff=ปิด
  3281. tha.InstallAdd=ดิดตั้ง %1
  3282. tha.uninstall=ยกเลิกการดิดตั้ง
  3283. tha.Language=THA
  3284. tha.LanguageNR=1054
  3285. tha.Language2=th_TH
  3286. tha.Language3=th
  3287. tha.IDPROP_SETUPTYPE_COMPLETE=ติดตั้ง%1แบบปกติ
  3288. tha.IDPROP_SETUPTYPE_CUSTOM=ติดตั้ง%1แบบกำหนดเอง
  3289. tha.InstallingAF=ติดตั้ง %1.....
  3290. tha.DelSaveGameFold=ต้องการที่จะเก็บเซฟเกมไว้หรือไม่?
  3291.  
  3292. tur.ArcBreak=Kurulum iptal edildi!
  3293. tur.InsertDisk=Lütfen diski takın: %1
  3294. tur.taskbar=%1%%, %2 kaldı
  3295. tur.ending=%1 - Kur
  3296. tur.hour= saat
  3297. tur.min= dakika
  3298. tur.sec= saniye
  3299. tur.BMon=MĂĽzik
  3300. tur.InstallAdd=%1 kur
  3301. tur.uninstall=Kaldır
  3302. tur.Language=TUR
  3303. tur.IDPROP_SETUPTYPE_COMPLETE=Standart%1Kurulum
  3304. tur.IDPROP_SETUPTYPE_CUSTOM=Ă–zel%1Kurulum
  3305. tur.InstallingAF=%1 yĂĽkleniyor.....
  3306. tur.DelSaveGameFold=Oyunun kaydettiÄźi ayarlar silinsinmi?
  3307.  
  3308. [ISToolPreCompile]
  3309. #define isFalse(any S) (S = LowerCase(Str(S))) == "no" || S == "false" || S == "off" ? "true" : "false"
  3310.  
  3311. [Files]
  3312. ;Source: Include\cab.dll; DestDir: {tmp}; Flags: dontcopy
  3313. #ifdef CustomGDFBinary
  3314. Source: GDF.dll; DestDir: {tmp}; Flags: dontcopy
  3315. #endif
  3316. ;Source: GDF.dll; DestDir: {tmp}; Flags: dontcopy
  3317. Source: Include\GameuxInstallHelper.dll; DestDir: {app}; Flags: dontcopy ignoreversion
  3318. Source: {src}\Uninstall.bmp; DestDir: {app}\Uninstall; Flags: external
  3319. Source: {src}\Setup.ini; DestDir: {app}\Uninstall;DestName: Uninstall.dat; Flags: external
  3320.  
  3321. ;Source: {code:GetSourcePath}\Executables\*; DestDir: {app}; Flags: external ignoreversion recursesubdirs createallsubdirs; ExternalSize: 1
  3322. ;Source: Uninstall Dragon Age 2.exe; DestDir: {cf32}\Bioware;
  3323. ;Source: {code:GetSourcePath}\Support\*; DestDir: {app}\Support; Flags: external ignoreversion recursesubdirs createallsubdirs; ExternalSize: 4300000000
  3324. ;Source: {code:GetSourcePath}\DATA1\*; DestDir: {app}; Flags: external ignoreversion recursesubdirs createallsubdirs; ExternalSize: 4300000000; Check: DVD1;
  3325. ;Source: {code:GetSourcePath}\DATA2\*; DestDir: {app}; Flags: external ignoreversion recursesubdirs createallsubdirs; ExternalSize: 4300000000; Check: DVD2;
  3326.  
  3327. Source: Include\ISDone.dll; DestDir: {tmp}; Flags: dontcopy
  3328. Source: Include\InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
  3329. Source: Include\packjpg_dll.dll; DestDir: {tmp}; Flags: dontcopy
  3330. Source: Include\RTconsole.exe; DestDir: {tmp}; Flags: dontcopy
  3331. Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
  3332. Source: Include\zlib1.dll; DestDir: {tmp}; Flags: dontcopy
  3333. Source: Include\Unrar.dll; DestDir: {tmp}; Flags: dontcopy
  3334.  
  3335.  
  3336.  
  3337. [Code]
  3338.  
  3339. [Dirs]
  3340.  
  3341.  
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!