Enviar teclas de control a Google Earth

[vejerf]

Pues eso... que sigue sin funcionarme. He usado lo q me dices cHackAll y no me ha funcionado

Código Delphi [-]
    SendMessage(Aplicacion.GetMainHwnd, WM_KEYDOWN, VK_CONTROL, 0);
    SendMessage(Aplicacion.GetMainHwnd, WM_KEYDOWN, VK_MENU, 0);
    SendMessage(Aplicacion.GetMainHwnd, WM_CHAR, Byte('B'), 0);
    SendMessage(Aplicacion.GetMainHwnd, WM_KEYUP, VK_MENU, 0);
    SendMessage(Aplicacion.GetMainHwnd, WM_KEYUP, VK_CONTROL, 0);

Sin embargo antes había usado un mensaje para cerrar la aplicación y sí que funciona:

Código Delphi [-]
    SendMessage(Aplicacion.GetMainHwnd,WM_CLOSE,0,0);

Alguna idea de por qué puede pasar esto???

Muchas gracias de nuevo...