Уважаемый, Незарегистрированный! Для удобной навигации по разделам с играми рекомендуем воспользоваться алфавитным указателем по всем играм форума! Спасибо за внимание!
Код: #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