Как отловить нажатие клавиши...

← →
GogaStar (2004-02-19 12:21) [0]

Как отловить например нажатие клавиши SHIFT при запуске приложения. Желательно после Application.Initialize;

← →
Дед (2004-02-19 12:24) [1]

Ловить по OnKeyUp не хочется?

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin { обработка события } end;

← →
GogaStar (2004-02-19 12:30) [2]

Хочется при инициализации приложения исключить ненужные расчеты.
И запускать с параметром тоже не хочется.

← →
clickmaker © (2004-02-19 12:34) [3]

ShiftDown := ((GetKeyState(VK_SHIFT) shr 8) <> 0)

← →
GogaStar (2004-02-19 12:41) [4]

Огромное спасибо.

← →
Дед (2004-02-19 12:42) [5]

> clickmaker

А где VK_SHIFT взять?

> Дед (19.02.04 12:42) [5]
>
> > clickmaker
>
> А где VK_SHIFT взять?

uses Windows

← →
GogaStar (2004-02-19 12:46) [7]

Unit Windows