Код:
Код:
#NoTrayIcon
#RequireAdmin
$game = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{7B2CC3DF***8203;-64FA-44AE-8F57-B0F915147E4F}_is1","Inno Setup CodeFile: GameDir")
If @error Then
MsgBox(16, "Не удалось найти", "Путь игры не найден")
Exit
EndIf
GUICreate('Utility', 200, 120)
$comb1=GUICtrlCreateCombo('',10,10,120,20,2097475)
GUICtrlSetData(-1, "APEX|CHICANE","APEX")
$comb2=GUICtrlCreateCombo('',135,10,55,20,2097475)
GUICtrlSetData(-1, "EU|US","EU")
$email = GUICtrlCreateInput('E-mail',10,40,180,20)
$pass = GUICtrlCreateInput('Password',10,65,180,20,0x0020)
$save = GUICtrlCreateButton("Создать",10,90,180,25)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $save
IF FileExists($game&'\Data\Launcher.vbs') = 0 Then
FileInstall('Launcher.vbs',$game&'\Data\Launcher.vbs') ;при компиляции должен быть в одной папке
EndIf
FileCreateShortcut($game & '\Data\Launcher.vbs ',@DesktopDir & "\"&GUICtrlRead($email),$game,'"'&$game &'\Data\nfsw.exe" ' & GUICtrlRead($comb1) &' '& GUICtrlRead($comb2) &' '& GUICtrlRead($email)&' '& GUICtrlRead($pass), '', $game & "\Data\nfsw.exe")
EndSwitch
WEnd