Открыть меню кнопки ПУСК или запустить диалог запуска программ

Delphi , Рабочий стол , ПУСК

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Show the Startmenu: 

keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), 0, 0);
 keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0)

 //Show the Run-Dialog: 

keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), 0, 0);
 keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), 0, 0);
 keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), KEYEVENTF_KEYUP, 0);
 keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0)

Here is a translation of the text into Russian:

Код, написанный на Delphi, предназначен для имитации событий клавиатуры для открытия меню "Пуск" или запуска диалога "Выполнить". Вот подробное описание того, что каждый раздел делает:

Открытие меню "Пуск":

1. keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), 0, 0);
   • Эта строка имитирует нажатие клавиши Windows (VK_LWIN) и ее немедленное освобождение.
2. keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0);
   • Эта строка имитирует освобождение клавиши Windows.

Запуск диалога "Выполнить":

1. keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), 0, 0);
   • Та же строка, что и выше, имитирующая нажатие клавиши Windows.
2. keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), 0, 0);
   • Эта строка имитирует нажатие клавиши 'R' (Ord('R') - константа для кода ASCII 82).
3. keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), KEYEVENTF_KEYUP, 0);
   • Эта строка имитирует освобождение клавиши 'R'.
4. keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0);
   • Та же строка, что и выше, имитирующая освобождение клавиши Windows.

Функция MapVirtualKey используется для преобразования кода виртуальной клавиши (например, VK_LWIN) в соответствующий код сканера. Функция Ord конвертирует символ ASCII в соответствующее целочисленное значение. Эти имитированные события клавиатуры, вероятно, будут работать на большинстве систем, поддерживающих Delphi, но помните, что это подход может не быть совместимым с всеми версиями Windows или конфигурациями.

Если вы ищете альтернативные решения, вы можете рассмотреть использование API, такие как ShellExecute или CreateProcess, для запуска диалога "Выполнить" программно, а не имитируя события клавиатуры.

Статья описывает способ открытия меню начала (Startmenu) или диалога запуска программ на компьютере с помощью использования функций keybd_event и MapVirtualKey.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ПУСК ::