Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 144)

...

Листинг 3.18.
Показываем меню Пуск
procedure TForm1.cmbStartClick(Sender: TObject);
begin
//Имитируем нажатие клавиши Windows
keybd_event(VK_LWIN, 0, 0, 0);
//Имитируем отпускание клавиши Windows
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

Нас интересуют, прежде всего, первый и третий параметры функции keybdevent (второй не используется, а третий предназначен для установки дополнительной информации, относящейся к нажатию клавиши). Первым параметром функции передается код «нажимаемой» или «отпускаемой» клавиши. Третий параметр равен нулю при «нажатии» и константе KEYEVENTF_KEYUP при «отпускании» клавиши.