Acceder al menú de una aplicación externa

[vejerf]

Investigando un poco sobre el asunto he dado con un ejemplo que soluciona esto enviando un mensaje WM_COMMAND al notepad en este caso y funciona. El ejemplo necesita de tan solo un botón cuyo evento debe ser:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
var 
wnd: HWND; 
begin 
winexec('notepad',SW_SHOW); 
wnd := FindWindow('notepad', nil); 
PostMessage(wnd,WM_COMMAND, hiword(1)+2,0); 
end;

Con este ejemplo se abre el notepad y se simula un click en el item Abrir del menú Archivo.
El ejemplo lo he encontrado aquí.
La cosa es q he intentado lo mismo con el Google Earth y no he podido... si alguien se atreve que me comente el resultado por favor.
Salu2...