Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.15.6.77] |
|
Сообщ.
#1
,
|
|
|
Нужно программно, с помощью кода VB6, выбить (свернуть) текущее полноэкранное приложение пользователя - и сделать фокус на своей программе.
|
Сообщ.
#3
,
|
|
|
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) |
Сообщ.
#4
,
|
|
|
Ты смотрел мою ссылку? Где RegisterHotKey? Сама по себе SetForegroundWindow не свернёт полноэкранное приложение.
|
Сообщ.
#5
,
|
|
|
Цитата B.V. @ Все успешно работает. На разных ОС. "RegisterHotKey" в исходном коде отсутствует. |