Текущий архив: 2007.01.21;
Скачать: CL | DM;
Вниз
Проблема эмуляция 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);
Страницы: 1 вся ветка
Текущий архив: 2007.01.21;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.033 c
