Бинды (горячие клавиши)

[VSmile]

Приветствую, нужна ваша помощь, не могу справиться с горячими клавишами, нужно отследить одну/несколько клавиш во всей виндоус (т.е нажата ли клавиша вообще)!
Вот к примеру код, ставлю на таймер
If GetKeyState(vk_return) <> 0 then
showmessage('s');
И этих сообщений, когда нажал всего один раз на клавишу, выводится много! Нужно как-то решить эту проблему, за ранее спасибо!

[Вадим Мошев]

Таймер не нужен. смотрите в сторону registerHotKey, обработки сообщений WM_HOTKEY.

Вот вам пример на Delphi 7
Для практики.rar

[p51x]

http://www.delphisources.ru/pages/fa...ys_hotkey.html

[VSmile]

Мне помог знакомый с решением этой проблемы! Проблема решается так:

var a : boolean = False;
procedure TForm1.Timer10Timer(Sender: TObject);
begin
if (getasynckeystate(39)<>0) then
begin
if (a = False) then
begin
a := True;
ShowMessage('s');
end;
end
else
begin
a := False;
end;
end;

"Быдло код - это моё" (Цитата автора кода выше) - vlagisla