|
эм, чтобы пользоваться тем что у тебя написано выше на asm нужно использовать EmulateKey (hwnd, vkey). Чтобы тебе не парится вот те готовый кусок:
procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H //WM_KEYUP
push eax
push 0
push edx
push 0100H //WM_KEYDOWN
push eax
call PostMessage
call PostMessage
end;
//пример с таймером
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Делаем окно рф-ки активным:
sendmessage (findwindow(nil,'RF Online' ,wm_activate,1,1); // Работает только если окно не свернуто
//Жмем кнопку F1 в окно рф-ки
EmulateKey(findwindow(nil,'RF Online'), vk_f1 );
end;
|