Необходимо следующее: если на клаве что-либо нажато, то ничего не делаем, если не нажата ни одна клавиша, то выполняем определнные действия. Мне надо, чтоб работало в любом окне моей проги. Идей никаких. Знаю, есть функция GetKeyboardState, но как её юзать - выше моего разума. Может хоть кто-нибудь подскажет что мне делать или хотя бы как юзать GetKeyboardState???

GetKeyboardState возвращает массив, описывающий состояние каждой клавиши

Цитата

If the high-order bit is 1, the key is down; otherwise, it is up.

( типа если клавиша нажата -- старший бит 1, иначе ненажата )
еще есть CAPS LOCK:

Цитата

If the key is a toggle key, for example CAPS LOCK, then the low-order bit is 1 when the key is toggled and is 0 if the key is untoggled.

соответственно: пробегаеш по массиву из 256-ти элементов и если хоть один не ноль -- ничего не делаеш иначе выполняем определнные действия

если остались вопросы -- пиши

GetKeyboardState возвращает в параметр состояние всех клавиш (нажата/ненажата). Параметр типа TKeyboardState - массив из кучи элементов типа байт. Попробуй проверять получаемый результат - все нули: ничё не нажато... (тока там ИМХО всё хитро устроенно и такой ситуации получиться не может - читай инфу)
Я использую GetKeyboardState тока для изменения CapsLock, NumLock, ScrollLock:
var
keys: TKeyboardState;
begin
GetKeyboardState(keys);
keys[20] := keys[20] xor 1;
keys[144] := keys[144] xor 1;
keys[145] := keys[145] xor 1;
SetKeyboardState(keys);
end;
, где 20, 144, 145 - коды виртуальных клавиш CapsLock, NumLock, ScrollLock...

Это-то я понял. Только какого типа массив создавать? Пробовал byte, integer, даже string - на все пишет: Types of actual and formal var parameters must be identical. Что это значит и как исправить я так и не понял. Заранее спасибо.

слушай хантера, меня не слушай

Ооп-с сорри. пока я печатал мне уже ответили. Спасиба, очень помогли.

Woody Woodpecker
покажи кусок кода

Показывать нечего процедура пустая, стоит в OnTimer Timer'a

я имел в виду тот, на котором пишет

Цитата

Types of actual and formal var parameters must be identical.

Уже не пишет . Я создавал массив типа byte, а надо было переменную типа TKeyboardState.