Запуск .exe из Textbox'a

[LMA]

А как имея в Textbox'e путь к файлу, по этому пути запустить сам файл? То есть если в Textbox'e написано, например, С:\windows\calc.exe, то какой код нужен чтобы этот calc.exe запустить?
И если знаете, то как то же самое сделать из filelistbox'a? Спасибо.

[Boris_BGB]

Есть такой Shell, он запускает всё, что не попадя!
Вот, например для твоего текстбокса:

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

Shell Text1.Text

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

[hCORe]

Пользуйтесь API-функцией ShellExecute:

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

Const SW_SHOWNORMAL=1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
On Error Resume Next
If Len(Text1.Text) = 0 Then Exit Sub
ShellExecute Me.hWnd, "open", Text1.Text, "", "", _ SW_SHOWNORMAL
End Sub

[SSecurity]

Ну
1й вопрос

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

Shell Text1


2й вопрос

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

File= file1.FileName
If Right(File1.Path)="\" then File=File1.Path+File else File=File1.Path+"\"+File
Shell File


file1 - это твой fileListBox

Все легко и просто
а вообще юзай MS Common Dialog 6.0 - в компонентах:)
там все проще ...

пока-пока

[LMA]

Всем спасибо - всё работаееет! Но ShellExecute всё-таки лучше чем просто Shell - потому как с помощью него запускаются не только exe'шники, но и любые другие файлы, связанные с запускающим их приложением, как-то *.doc, *.pdf и др.