Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c