GetAsyncKeyState

[NEoMASTERR]

Здравствуйте. Такая проблема, сделал что то типа блокнотика для заметок, висит поверх всех окон и кликабельный насквозь, при нажатии ctrl+shift + мышку в окно - форма становится кликабельной, перетаскиваемой и тд, но вот проблема, если просто нажать контрол, потом шифт, в общем отдельно друг от друга то код всё равно срабатывает. Как можно переделать?

var
  p:TPoint;
begin
  GetCursorPos(p);
  if PtInRect(rect(Form1.Left,Form1.Top,Form1.Left+form1.Width, form1.Top+form1.Height),p) then
  begin
    if GetAsyncKeyState(VK_CONTROL) <>0 then
    begin
      if GetAsyncKeyState(VK_SHIFT) <>0 then
      begin
        SetWindowLong(Handle, GWL_EXSTYLE, lformstyle);
        AlphaBlend:=false;
      end
      else
      begin
        if ActiveControl<>mmo1 then
        begin
          SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT );
          AlphaBlend:=true;
        end;
      end;
    end
  end
  else
  begin
    //if ActiveControl<>mmo1 then
    if not lpressed then
    begin
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT );
      AlphaBlend:=true;
      mmo1.Width:=form1.ClientWidth+17;
    end;
    if GetAsyncKeyState(1)=0 then lpressed:=false;
  end;
end;

всё это в теле таймера (знаю, плохо)

[kropotkina-alice]

Попробуйте через KeyBoard Status.
Пример на совместное нажатие 3-х клавиш:

varKeybState: TKeyboardState;
begin
   GetKeyboardState(KeybState);
   If ( (KeybState[VK_CONTROL] and 128)=128 ) and
      ( (KeybState[VK_F5]      and 128)=128 ) and
      ( (KeybState[Ord('8')]   and 128)=128 ) then
       ShowMessage('CTRL+F5+8 Pressed');
end;

[Filka]

if (GetAsyncKeyState(VK_CONTROL) < 0) and (GetAsyncKeyState(VK_SHIFT) < 0) then
  //...

NEoMASTERR, с хуком уже не вариант?

[NEoMASTERR]

Сообщение от Filka

if (GetAsyncKeyState(VK_CONTROL) < 0) and (GetAsyncKeyState(VK_SHIFT) < 0) then
  //...

NEoMASTERR, с хуком уже не вариант?

Последний и предпоследний пост не вариант. Не знаю как отловить 2 кнопки, в последнем посте GetAsyncKeyState.
GetKeyboardState после пары нажатий перестаёт работать