ИзопропилДмитрий77"Извне" я ее решил уже переделав в "консоль", и посылая "извне" HIDE. Это хорошее решение. Извращение, ибо для запуска без окна в CreateProcess нужно задать флаги
StartupInfo.dwFlags = STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow = SW_HIDE;
Не извращение, по сути я и делаю то что ты сказал, может не так выразился:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
...
Try : Shell_Net(IO.Path.Combine(Application.StartupPath, "proga.exe"), _
"<parameters>", ProcessWindowStyle.Hidden) : Catch : End Try
...
Public Sub Shell_Net(ByVal PathName As String, _
Optional ByVal Parameters As String = vbNullString, _
Optional ByVal Style As ProcessWindowStyle = ProcessWindowStyle.Normal)
Dim ExecInfo As New ProcessStartInfo
With ExecInfo
.FileName = PathName
.Arguments = Parameters
.WindowStyle = Style
End With
Process.Start(ExecInfo)
End Sub
либо например вот такой вариант иногда использую, если хочу дождаться завершения вызванной проги
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
...
ShellAndContinueNet(Chr(34) & IO.Path.Combine(Application.StartupPath, "proga.exe") & Chr(34) & _
" <parameters>", AppWinStyle.Hide)
...
Public Sub ShellAndContinueNet(ByVal AppToRun As String, ByVal mode As AppWinStyle)
'нехорошей является ситуация когда на момент GetProcessById сам процесс уже завершился
'чтобы ее предотвратить, выходим по исключению
Try
Dim MyProcess As Process = Process.GetProcessById(Shell(AppToRun, mode))
Do While Not MyProcess.HasExited
Application.DoEvents()
Loop
Catch
End Try
End Sub
По поводу часиков.
У меня иногда используется некая KillProga
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
KillProga("proga") 'прекращение предыдущего процесса proga.exe, если запущен
...
Public Sub KillProga(ByVal proga As String)
Do
TargetName = proga
hwndEnumTarget = IntPtr.Zero
' Examine the window names.
EnumWindows(New EnumWindowsProc(AddressOf EnumProc), 0)
' See if we got an hwnd.
If hwndEnumTarget = IntPtr.Zero Then
Exit Do
Else
EndTask(hwndEnumTarget)
End If
Loop
End Sub
Дизайн мой давай обсуждать не будем, я другое хочу сказать.
Как не трудно догадаться из функции, она ловит "proga.exe" по окну так сказать.
Дык вот
Если proga.exe - это VB6-проект из одного модуля без форм, то она чудесно убивается через KillProga
Если proga.exe - это VB.Net-проект из одного модуля без форм (
не консоль, а именно который мы тут обсуждаем ), то она ни фига не убивается через KillProga
Если proga.exe - это .Net-проект "Консоль", то понятно что KillProga также его убивает стукнув по шапке консоли где отображается название exe.
Отсюда вывод: VB6 таки создает какое-то окно, ну и соответственно "The system turns the feedback cursor off after the first call to GetMessage" и часиков типа нет. А VB.Net ничего подобного не делает, поэтому и часики заметны, и убить его за эти "уши" нельзя.
Т.е. ну его нифик эти изыскания.
Для указанного случая "Консольное приложение" запускаемое с AppWinStyle.HideProcess либо WindowStyle.Hidden (в зависимости от реализации) - вариант оптимальный. И кстати, я не знаю че там .Net творит с неконсольным, консоль в отличии от "Пустой проект" запускается мгновенно, что тоже хороший плюс.
Возникает вопрос, а если мое приложение иногда выдает какие-то Msgbox то как быть, потому что при HideProcess/Hidden они тоже не выведутся на экран. Ну, тогда делать "Пустой проект" - который с часиками. Но в данном случае (какие-то msgbox), уже предполагается процесс взаимодействия с юзером, т.е. запуск идет как правило как ответ на то что пользователь что-то нажал мышкой или клавиатурой, а в этом случае кратковременное появление часиков разумно и не напрягает.
Копать дальше эту тему считаю бессмысленной тратой времени.
