1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TfmMain.btnGoogleEarthClick(Sender: TObject);
var s:string;
    wnd: HWND;
    i:integer;
begin
  s:= LatLonToString( Processor.GPGGA.LatLon );

  wnd :=  FindWindow('QWidget', 'Google Earth');
  if Wnd=0 then
    shellExecute(Handle,'open',pchar(GoogleEarthPath+'\googleearth.exe'),pchar(s),nil,SW_SHOWNORMAL);
  while wnd=0 do begin
    wnd :=  FindWindow('QWidget', 'Google Earth');
    Sleep(1000);
  end;
  BringWindowToTop(Wnd);
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'qt_central_widget');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'MainWindowHSplitter');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'LeftPanelVSplitter');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'Search');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'Search');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'unnamed');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', nil);
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'searchTabWidget');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'tab pages');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'fly');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'mFlyFrame');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'mFlyCombo');
  wnd :=  FindWindowEx(wnd, 0, 'QWidget', 'combo edit');
  if wnd <> 0 then
  begin
    while GetForegroundwindow<>wnd do
      Sleep(1000);
    for i:= 1 to length(s) do begin
      PostMessage(Wnd,WM_Char,ord(s[i]),0);
    end;
    PostMessage(Wnd,WM_KEYDOWN,13,0); //'Suchen' betätigen
    PostMessage(Wnd,WM_KEYUP,13,0);
  end;
end;