Как запустить приложение.

[Bayka]

Вот для начала я хочу сделать программу, которая будет запускать игры.

Спойлер: Что вышло у меня

#include <GUIConstants.au3>

;Это окно программы
GUICreate("Стартер",200,200)

;Это надписи
GUICtrlCreateLabel ("Стартер - быстрый запуск игр",23,5,200,20)
GUICtrlCreateLabel ("- Warcraft 3",60,35,50,20)
GUICtrlCreateLabel ("- CS 1.6",60,65,50,20)
GUICtrlCreateLabel ("- Fallout 3",60,95,50,20)
GUICtrlCreateLabel ("- GTA 4",60,125,50,20)
GUICtrlCreateLabel ("- Бинды",60,155,50,20)

;Это кнопки
$start1 = GUICtrlCreateButton ("Start",5,30,50)
$start2 = GUICtrlCreateButton ("Start",5,60,50)
$start3 = GUICtrlCreateButton ("Start",5,90,50)
$start4 = GUICtrlCreateButton ("Start",5,120,50)
$start5 = GUICtrlCreateButton ("Start",5,150,50)
GUISetState ()
	 
;Это завершение на красный крестик, и решение моей проблемы
While 1
    $msg = GUIGetMsg()  
    If $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    ElseIf $msg = $start1 Then
        Run('путь')
    ElseIf $msg = $start2 Then
         Run('путь')
    ElseIf $msg = $start3 Then
        Run('путь')
    ElseIf $msg = $start4 Then
         Run('путь')
    ElseIf $msg = $start5 Then
        Run('путь')
    EndIf
Wend

Спасибо, решение в спойлере.

 

[kaster]

ок, тут тебе постараются помочь, а ты начни с того, что несомненно по силам - чтения правил.

{CodeWarn.SModer}

 

[sngr]

Открой справку к autoit и читай о

run
runas
runaswait

 

[kaster]

While 1
    $msg = GUIGetMsg()  
    If $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    ElseIf $msg = $start1 Then
        Run('путь Warcraft 3')
    ElseIf $msg = $start2 Then
         Run('путь CS1 path')
    EndIf
Wend

 

[Ganibal95]

Вот вариант:
+ Проверка на запуск, что не запустить много раз...

$File_Run = @ScriptDir & "\FR.exe" ; --- Путь к файлу .exe, Например: C:\Launcher.exe
$File_Name = 'FR.exe'; --- Название, например: Launcher.exe

HotKeySet('{F1}','_Run') ;--- По нажатию F1 Запустится программа

While 1
	Sleep(1)
WEnd

Func _Run()
If Not ProcessExists($File_Name) Then
	Run($File_Run) ; ---- Это лутше Run
EndIf
EndFunc

Добавлено:

Сообщение автоматически объединено: 11 Дек 2011

Или так, пример 2ной, с кнопкой и кнопкой от GUI

$File_Run = @ScriptDir & "\FR.exe" ; --- Путь к файлу .exe, Например: C:\Launcher.exe
$File_Name = 'FR.exe'; --- Название, например: Launcher.exe

;Это херн знает что но без этого не работает
#include <GUIConstants.au3>

;Это окно программы
GUICreate("Стартер",200,200)

;Это надписи
GUICtrlCreateLabel ("Стартер - быстрый запуск игр",23,5,200,20)
GUICtrlCreateLabel ("- Warcraft 3",60,35,50,20)
GUICtrlCreateLabel ("- CS 1.6",60,65,50,20)
GUICtrlCreateLabel ("- Fallout 3",60,95,50,20)
GUICtrlCreateLabel ("- GTA 4",60,125,50,20)
GUICtrlCreateLabel ("- Бинды",60,155,50,20)

;Это кнопки
$start1 = GUICtrlCreateButton ("Start",5,30,50)
$start2 = GUICtrlCreateButton ("Start",5,60,50)
$start3 = GUICtrlCreateButton ("Start",5,90,50)
$start4 = GUICtrlCreateButton ("Start",5,120,50)
$start5 = GUICtrlCreateButton ("Start",5,150,50)
GUISetState ()

HotKeySet('{F1}','_Run') ;--- По нажатию F1 Запустится программа

While 1
	Sleep(1)
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $start1
			_Run()
	EndSwitch
WEnd

Func _Run()
If Not ProcessExists($File_Name) Then
	Run($File_Run) ; ---- Это лутше Run
EndIf
EndFunc

 

[ViktorSPB]

Добрый день!
Я пробую запустить таким скриптом свое приложение, а оно запускается как-то не корректно. :-\
Временные файлы после запуска записываются на рабочий стол и запуск видно без предустановок.. Помогала решить вопрос имуляция запуска с коммандной строки, тогда все нормально. В чем проблема, что не так как обычно делает этот Run? Подскажите, где искать ответ..

 

[axlwor]

в рабочих путях

 

[ViktorSPB]

Да, я тоже так подумал. Потому в Run указал и директорию, не помогло.

Run($File_Run,'','C:\Allprograms')

ну и файл, конечно, указал.
Что еще может быть, или я Вас не правильно понял?

 

[madmasles]

ViktorSPB [?]

Потому в Run указал и директорию, не помогло.

И не поможет, так как не правильно (не на том месте) указали.

 

[ViktorSPB]

Точно! С этим разобрался, спасибо!