Проблема эмуляция VK клавиш с программой GogleEarth

← →
DroNIX (2006-09-06 15:51) [0]

Захотел закэшировать участки инетересные в гуглеёс, но утомительная работа,
хотелось бы автоматически, нужно сделать чтоб клавиши VK_LEFT,VK_RIGTH нажималась
через определённый промежуток, чтоб полностью закэшировать

делал и так:
......
var WindowHandle: HWND; begin Result := true; WindowHandle := FindWindow(nil, "Google Earth"); if (WindowHandle <> 0) then begin SendMessage(WindowHandle, WM_SYSCOMMAND, SC_HOTKEY, WindowHandle); {postMessage(WindowHandle, $0100, VK_LEFT, 0); postMessage(WindowHandle, $0101, VK_LEFT, 0); } SendMessage(WindowHandle, $0100, VK_LEFT, 0); SendMessage(WindowHandle, $0101, VK_LEFT, 0); end; end;

и так http://www.megalib.com/books/478/b37.htm

И ничё, .е. в гугле работает, но только допустим если выбрать активным меню, или Edit каконибудь, а земля не движется, хотя когда на клаве Left нажимаю всё ОК

Может есть другие способы?

← →
DroNIX (2006-09-07 16:39) [1]

Ворос снят, надо было сделать так
SendMessage(WindowHandle, $0100, VK_LEFT, 0); sleep(100); SendMessage(WindowHandle, $0101, VK_LEFT, 0);

Проблема эмуляция VK клавиш с программой GogleEarth Найти похожие ветки