Запуск приложения из-под программы VB

[LifeKILLED]

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

Вроде бы, чтобы запустить какой-нибудь файл, скажем mp3, но не с помощью Винампа, а с помощью МедиаПлеера, нам надо ввести коммандную строку: "c:\Program Files\Media Player\mplayer2.exe e:\Muson\SectorGaza-Perdun.mp3". А как выполнить такую комманду из-под программки на VB? Пробовал эксперементировать с OLE, но далеко не продвинулся, ничего не работает... Может быть, кто-нибудь тут знает, как достигнуть этой цели, может быть как-то еще, но все же... Я пробовал искать ответы в Нете, но ничего так и не нашел. У меня VB 6.0. Помогите, пожалуйста

[Amed]

Shell
ShellExecute

[vvs_adm]

... Я пробовал искать ответы в Нете, но ничего так и не нашел ...

Интересно, как ты искал...
Попробуй в Яндексе набрать хотя бы "Visual Basic запуск приложения" (из названия твоего же топика...). Вот ты удивишься...

[ARTES]

shell "start C:\твой файл"

[Мамонт]

Shell "C:\windows\explorer.exe"

[d3drm]

Блин! ну он же говорит о передаче приложению параметров.... таких как путь к файло итд... если я не оЩибаюсь то у меня такая же трабла была, когда я пытался передать параметры.... хотя я точно не помню... а как решил тем более... но помню что нашел в МСДН....

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


Shell "C:\windows\notepad.exe 'C:\text.txt'", vbMaximizedFocus

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

[CodeName33]

FleX_2004, оно и без кавычек будет работать.

[AjaxVS]

Shell, Shell...

A потом AppActivate че забыли?

Кстати, перед Shell-ом желательно указать ChDir-ом домашнюю папку запускаемого приложения.

[CodeName33]

FleX_2004 ещё как будет! проверь

[dedmakar]

Пиишу код:

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

ChDir "C:\Program Files\CounterPath\X-Lite\"
ReturnValue = Shell("x-lite.exe", 1) 
AppActivate ReturnValue
SendKeys  "{ENTER}", True

Выводит ошибку: Invalid procedure call or argument.
Желтое выделение на строке AppActivate ReturnValue.(error)
ReturnValue = 1856 при Debug.
Как исправить?

[alibek]

AppActivate ReturnValue не имеет смысла.

[dedmakar]

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

ChDir "C:\Program Files\CounterPath\X-Lite\"
ReturnValue = Shell("x-lite.exe", 1) 
AppActivate ReturnValue ' нет смысла, убераем
SendKeys  "{ENTER}", True

[dedmakar]

А как сделать что бы программа была активной? Так как Shell открывает вроде программу.

[tyomitch]

Попробуй прочитать доку по AppActivate