Грубо так.
Есть MyProga.exe
Она запускает скрытую форму с шапкой "MyProgaTitle", пока форма висит, прога работает, делает дела (мне так удобно).
Чтобы MyProga.exe корректно вышла, надо просто закрыть форму (послать WM_CLOSE окну "MyProgaTitle").
Итого, код "СТАРТ".
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Try : Shell_Net(IO.Path.Combine(Application.StartupPath, "MyProga.exe"), , 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.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
KillProga("MyProgaTitle")
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
Public Sub EndTask(ByVal TargetHwnd As IntPtr)
'Close the window
If IsWindow(TargetHwnd) Then
If Not (GetWindowLong(TargetHwnd, GWL_STYLE) _
And WS_DISABLED) Then
PostMessage(TargetHwnd, WS_CANCELMODE, 0, IntPtr.Zero)
PostMessage(TargetHwnd, WM_CLOSE, 0, IntPtr.Zero)
Application.DoEvents()
End If
End If
End Sub
Все чудненько работает, но возникло одно НО.
Прога MyProga.exe для работы сама по себе не требует администратора.
Но может случиться ситуация, что процесс ее запустивший уже был запущен "As admin", и <СТАРТ> сработал с правами админа.
В этом случае <СТОП> без админских прав не сработает.
EndTask не закроет окно и моя KillProga тупо зависнет на цикле.
Как извратиться, чтоб <СТОП> таки убивал запущенную как "Admin" MyProga.exe.
(!!!юзер тот же)
Полностью исключить ситуацию запуска под админом я не могу.
Например, может быть запущена из-под инсталлятора.
Например, юзер теоретически может запустить управляющее приложение под админом, нажать в нем кнопку <СТАРТ>, которая запустит MyProga.exe. Потом закрыть это управляющее приложение, перезапустить его под НЕ админом, нажать <СТОП> и уже не сработает.
Я пока не копал и тест приложение не делал, код как бы старый, "проверенный", но однако напоролся.
Убивающий (неадминский) процесс очевидно окно видит (иначе б вышел из цикла, не закрыв окно),
но при этом WM_CLOSE видимо не срабатывает.
Можно конечно изменить подход. У меня на MyProga.exe к примеру повешен mailslot (для других целей), команда туда пройдет отовсюду, ну а прога сама себя по этой команде закроет, но не хотелось бы так поступать. Хотя бы потому, что mailslot не создается если в силу какой-то ошибки вдруг запустился другой экземпляр (логически да и кодом исключено, но все же; KillProga, она как раз убивает в этом случае все окна).
М.б. еще Process.Start как-то можно по хитрому сделать, чтоб даже если под админом, не админ смог бы убить вторым кодом?
