Выбить полноэкранное приложение.

Суббота, 12 Сентября 2020 г. 07:28 + в цитатник

Сергей85:

Private Function vFullScreen_Brake()

1 On Error GoTo ErrorHandler

2 Dim lWindowHandle As Long

3 lWindowHandle = FindWindow(vbNullString, Trim(App.Title))

4 If lWindowHandle <> 0 Then SetForegroundWindow (lWindowHandle)

1000000 Exit Function

ErrorHandler:

1000001 MsgBox ("Ошибка функции vFullScreen_Brake №" & Err.Number & ", '" & Err.Description & "', строка " & Erl())

End Function

'Сворачивание полноэкранного приложения.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow& Lib "user32" (ByVal hwnd As Long)

https://forum.sources.ru/index.php?showtopic=419132&view=findpost&p=3838757