Проблема эмуляция VK клавиш с программой GogleEarth [D7, WinXP]
DroNIX © (2006-09-06 15:51:00)
Захотел закэшировать участки инетересные в гуглеёс, но
утомительная работа,
хотелось бы автоматически, нужно сделать чтоб клавиши
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:00) [1]
Ворос снят, надо было сделать так
SendMessage(WindowHandle, $0100, VK_LEFT, 0);
sleep(100);
SendMessage(WindowHandle, $0101, VK_LEFT, 0);
Наверх 
ЧАТ |
Орешник |
|
