Как сделать так, чтобы кнопка загружала exe файл?

[Decaz]

Подскжите, как сделать так, чтобы кнопка загружала exe файл, находящийся в той же папке, в которой лежит моя программа (с неё идёт загрузка)...

[hCORe]

Загружала куда?

Если надо запустить файл, то воспользуйся этим кодом:

Код: Выделить всё

Private Sub cmdRun_Click()
On Error Resume Next
    Dim sPath As String
    sPath = App.Path
    If Right(sPath, 1) <> "\" Then
        sPath = sPath & "\"
    End If
    Shell sPath & "<имя exe-файла>.exe", _
    vbNormalFocus
End Sub

[i'm pissed]

Private Sub Command1_Click()
Shell ("q.exe")
End Sub

[xolod]

Private Sub Command1_Click()
Shell ("q.exe")
End Sub

Твой код приведет к ошибке, если текущая папка - не папка с программой.

[|kerish|]

Господа, да вы что!
Естественно xolod прав.
Боже мой использовать vb-шный Shell.
Попробуйте через него запустить более или менее серьёзный проект, типа фотошопа или офиса.
ИМХО, использовать для запуска только API-шный ShellExecute.

[Oxygen]

Не знаю, у меня все прекрасно запускалось. И с параметрами и с открытием документов. Может быть просто в руках, которые это запускают, дело????

А изменить текущую папку на папку с программой можно простой строчкой:
ChDir App.Path

[|kerish|]

Может быть и в руках, но скорее в том, что вы вероятно мало чего проверяли на Shell.
Попробуйте еще раз.
Только, что запускал несколько игр через shell.
Вылетают и матерятся.
ChDir естественно не помог.
Так, что получше изучите свои руки...

[Sedge]

2|kerish| - код в студию.
Вот это отработало абсолютно корректно:

Код: Выделить всё

Dim sArray(7) As String
Dim j As Integer

sArray(0) = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE"
sArray(1) = "C:\Program Files\Microsoft Office\Office\FRONTPG.EXE"
sArray(2) = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"
sArray(3) = "C:\Program Files\Microsoft Office\Office\POWERPNT.EXE"
sArray(4) = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE"
sArray(5) = "C:\Program Files\DrWeb\drweb32w.exe"
sArray(6) = "C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE"

For j = 0 To 6
  Shell (sArray(j))
Next


Список можно продолжить.
А какие игры ты запускал? Не те ли, которые ресурсы на монопольный доступ блокируют?

[Юстас]

имхо Shell - обертка для ShellExecute. Опять же имхо, непосредственный доступ к ShellExecute предпочтительней, чем через посредников в лице msvbvm. Ибо я и сам как-нить без вирт.машины разберусь, кого, как, откуда и с какими параметрами запустить.

Пользовался Shell'ом, пока не обжёгся, что тот же WINWORD.EXE на клиентской машине через Shell не запускается. После этого и стал использовать исключительно ShellExecute.

А вообще это на любителя: можно есть мороженое прям с обёрткой, а можно вытащить из обёртки. У обоих способов есть минусы: в первом случае можно получить несварение желудка, во втором случае до мороженого добираться дольше

[Ariman]

Если уж говорить о том, что лучше использовать(но не легче!)
то самый мощный инструмент - CreateProcess.
Правда, в VB я с ним не работал, только в С++, но врядли разница большая...... Кстати, раз уж такая тема - какая функция в ВБ эквивалентна сишной sizeof? А то в CreateProcess надо передавать sizeof() кое-каких структур......

[tyomitch]

Код: Выделить всё

Len

А где это в CreateProcess надо передавать размеры структур?

[Ariman]

Простите, спутал

[Ariman]

Там не размер передавать надо, но предпоследний параметр - указатель на STARTUPINFO.
Там одно из полей, кажется, .cb - размер этой структуры...

[alibek]

Думается мне, что правильнее LenB использовать, если в структуре строки есть (и используется W-функции).

[GSerg]

Юзлес... VB всё равно сконвертирует перед передачей, так что ещё и переполнение буфера возникнет

Если len<>lenb, то нужно, в общем случае, использовать самописные процедуры упаковки. На эти грабли я наступал

[klop086]

Да вы шо все? shell ваще почти всегда не работает! Надо Api WinExec использовать. Кстати - она же и любой документ откроет (в сочетании с другой APi, названия не помню, которая возвращает чем по умолчанию открывается тот или иной документ).
Shell Must Die

[tyomitch]

Да вы шо все? Приведите пример, когда Shell не работает - тогда ваши возмущения будут хоть как-то обоснованы.

[klop086]

tyomich - напиши простейшую прогу, которая запускала бы выбранный тобой файл ехе через shell - и поппробуй запусти какой-нить ворд или ещё чего (просто не помню на чём у меня не срабатывал).

[Ennor]

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

[xolod]

Shell, упрощенный вариант ShellExecute, в остальном все отлично работает! И не надо "Да вы шо все? shell ваще почти всегда не работает!". Прямые_руки.drv всех спасет

зы: примерчик для использования Shell

[Max!]

Shell как сказал tyomitch

Приведите пример, когда Shell не работает

Shell работает всегда просто Shell это как бы ShellExecute , упрощенный вариант в каьором стоят пораметра с запуском ехе файлов , тоесть с ехе файлами работает норм а вот увас Shell видимо вылетал при попытке запустить *.txt - и правильно чтоб такого рода фаилы запускать на до уже полную от Shellа функцию юзать , тоесть ShellExecute ! Вроде все ! Вот вся пречина безпокоиств !

[|kerish|]

Проверил только, что на чём мог.
Quake3 выдет ошибку при запуске через Shell.

[tyomitch]

Прямые_руки.drv всех спасет

Именно так.

Код: Выделить всё

ChDrive "f"
ChDir "f:\GAMES\Q3"
Shell "f:\GAMES\Q3\quake3.exe"


- работает.

[i'm pissed]

Да вы шо все? shell ваще почти всегда не работает! Надо Api WinExec использовать. Кстати - она же и любой документ откроет (в сочетании с другой APi, названия не помню, которая возвращает чем по умолчанию открывается тот или иной документ).
Shell Must Die

Нихера подобного SHELL рулит!!!

[klop086]

Использовать Shell это всё равно что работать в Лексиконе, когда Word XP установлен и работает. Или работать в 97 Windows, при живом и работающем том же самом XP. Могу примеров привести дофига. Если кому-то нравится работать с кастрированной функцией, флаг вам в руки. Лично я всегда WinExec использую. Зато - никаких error-ов и т.д. И не надо ни чё переставлять (chdrive\chdir - кстати - я ещё не проверил работает оно или нет!).
| Your Choice Is Your Choice |

[Decaz]

Private Sub Command1_Click()
Shell ("q.exe")
End Sub

Не, а кстати работает и я ничего в этом коде плохого не вижу...