| |
На многих клавиатурах есть специальная кнопка
со значком WINDOWS. Данный пример с помощью API
функции эмулирует нажатие на эту клавишу и
дополнительную клавишу, вызывая определенную
процедуру в системе.
В событии Form_Load() показан один пример:
эмулирование нажатие клавиши ПУСК. В качестве
параметра функции Launch вы можете
использовать любую константу из StartMenuItems.
Private Declare Sub keybd_event Lib "User32" (ByVal
bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_LWIN = &H5B, KEYEVENTF_KEYUP = &H2, VK_APPS = &H5D
Public Enum StartMenuItems
strtExplorer 'запустить ПРОВОДНИК
strtFind 'окно "ПОИСК ФАЙЛОВ"
strtMinimize 'минимизировать все окна
strtRun 'вызвать окно "ЗАПУСК ПРОГРАММ" (ПУСК |
ВЫПОЛНИТЬ...)
strtStartMenu 'эмулировать нажатие клавиши ПУСК
strtHelp 'вызвать справочную систему
End Enum
Public Sub Launch(func As StartMenuItems)
Dim VK_ACTION As Long
Select Case func
Case strtExplorer: VK_ACTION = &H45
Case strtFind: VK_ACTION = &H46
Case strtMinimize: VK_ACTION = &H4D
Case strtRun: VK_ACTION = &H52
Case strtStartMenu: VK_ACTION = &H5B
Case strtHelp: VK_ACTION = &H70
End Select
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub Form_Load()
Call Launch(strtStartMenu)
End Sub
|
|