| Вопрос: Запуск файла | Добавлено: 28.02.06 18:10 |
Автор вопроса:  ASiD | ICQ: 259132473 |
| Программно нужно запустить файл (exe), дождаться его выполнения, а затем продолжить выполнение кода. Как это сделать? |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 28.02.06 18:57 |
Ох и старый вопрос  в FAQ на этом сайте найдешь точно  Если нети - то в поиске по форуму - обязательно )
|
||
|
Номер ответа: 2 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #2 | Добавлено: 28.02.06 20:24 |
|
API WaitForSingleObject(). По-моему
|
||
|
Номер ответа: 3 Автор ответа: ASiD ICQ: 259132473 Вопросов: 19 Ответов: 23 |
Профиль | | #3 | Добавлено: 28.02.06 20:24 |
| блин, не могу найти. Поиск слишком большой список выдает. Если не сложно - напиши! | ||
|
Номер ответа: 4 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #4 | Добавлено: 28.02.06 20:34 |
|
'This program needs a common dialog box, named CDBox
'  To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control) Const INFINITE = &HFFFF Const STARTF_USESHOWWINDOW = &H1 Private Enum enSW SW_HIDE = 0 SW_NORMAL = 1 SW_MAXIMIZE = 3 SW_MINIMIZE = 6 End Enum Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Enum enPriority_Class NORMAL_PRIORITY_CLASS = &H20 IDLE_PRIORITY_CLASS = &H40 HIGH_PRIORITY_CLASS = &H80 End Enum Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Function SuperShell(ByVal App As String, ByVal WorkDir As String, dwMilliseconds As Long, ByVal start_size As enSW, ByVal Priority_Class As enPriority_Class) As Boolean Dim pclass As Long Dim sinfo As STARTUPINFO Dim pinfo As PROCESS_INFORMATION 'Not used, but needed Dim sec1 As SECURITY_ATTRIBUTES Dim sec2 As SECURITY_ATTRIBUTES 'Set the structure size sec1.nLength = Len(sec1) sec2.nLength = Len(sec2) sinfo.cb = Len(sinfo) 'Set the flags sinfo.dwFlags = STARTF_USESHOWWINDOW 'Set the window's startup position sinfo.wShowWindow = start_size 'Set the priority class pclass = Priority_Class 'Start the program If CreateProcess(vbNullString, App, sec1, sec2, False, pclass, _ 0&, WorkDir, sinfo, pinfo) Then 'Wait WaitForSingleObject pinfo.hProcess, dwMilliseconds SuperShell = True Else SuperShell = False End If End Function Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Set the dialog's title CDBox.DialogTitle = "Choose an EXEC-File ..." 'Error when canceled CDBox.CancelError = True 'Set the dialog's filter CDBox.Filter = "EXEC-Files (*.exe)|*.exe|All files (*.*)|*.*" 'Show the 'Open File'-dialog CDBox.ShowOpen 'Execute the program SuperShell CDBox.filename, Left$(CDBox.filename, Len(CDBox.filename) - Len(CDBox.FileTitle)), 0, SW_NORMAL, HIGH_PRIORITY_CLASS End End Sub |
||
|
Номер ответа: 5 Автор ответа: ASiDICQ: 259132473 Вопросов: 19 Ответов: 23 |
Профиль | | #5 | Добавлено: 28.02.06 21:19 |
|
На строке
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long показывает ошибку user-defined type not defined |
||
|
Номер ответа: 6 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #6 | Добавлено: 28.02.06 21:51 |
|
скопировал код и еще раз проверил, все работает и запускает выбранный
exe'шник |
||
|
Номер ответа: 7 Автор ответа: ASiDICQ: 259132473 Вопросов: 19 Ответов: 23 |
Профиль | | #7 | Добавлено: 28.02.06 22:52 |
|
странно |
||
|
Номер ответа: 8 Автор ответа: PeterSВопросов: 24 Ответов: 109 |
Профиль | | #8 | Добавлено: 01.03.06 01:02 |
|
Во-первых сразу видно ошибку - ф-ция SuperShell объявлена как Private в модуле, а вызываем из формы. И ещё enSW, enPriority_Class необходимо сделать Public.
Тогда всё должно заработать. |
||
|
Номер ответа: 9 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #9 | Добавлено: 01.03.06 09:32 |
|
Не знаю у меня без заморочек все пошло!
Пример из API-Guide |
||
|
Номер ответа: 10 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #10 | Добавлено: 01.03.06 11:25 |
|
Во-первых сразу видно ошибку - ф-ция SuperShell объявлена как Private в модуле Странно, но мне этого не видно. Где тут вообще модуль? И ещё enSW, enPriority_Class необходимо сделать Public. Зачем? Код рабочий, ошибок не выдает, но ждать окончания работы экзешника не хочет. Разбираться в чем дело - лень. |
||
|
Номер ответа: 11 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #11 | Добавлено: 01.03.06 11:30 |
|
Хотя вру - глюк сразу виден.
Есть SuperShell CDBox.filename, Left$(CDBox.filename, Len(CDBox.filename) - Len(CDBox.FileTitle)), 0, SW_NORMAL, HIGH_PRIORITY_CLASS Должно SuperShell CDBox.FileName, Left$(CDBox.FileName, Len(CDBox.FileName) - Len(CDBox.FileTitle)), &HFFFFFFFF, SW_NORMAL, HIGH_PRIORITY_CLASS |
||
|
Номер ответа: 12 Автор ответа: ASiDICQ: 259132473 Вопросов: 19 Ответов: 23 |
Профиль | | #12 | Добавлено: 01.03.06 18:44 |
|
Всё работает. Спасибо! |
||
|
Номер ответа: 13 Автор ответа: BillВопросов: 10 Ответов: 58 |
Профиль | | #13 | Добавлено: 07.03.06 18:03 |
|
Под Windos NT:
Shell "cmd /X /C start c:\mydoc\example.doc" ------------------------------------------------------------- Под Windos 9x: ------------------------------------------------------------- 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() ShellExecute 0, vbNullString, "C:\" & sFile, vbNullString, vbNullString, vbNormalFocus End Sub ----------------------------------------------------------- Или без всяких Апи: Shell "start c:\1.txt" вместо с:\1.txt путь к нужному файлу |
||
Страница: 1 |