Здравствуйте ! давно зареган на этом форуме, по нужде захожу помогает )
В приложение контакта лицемере за каждую оценку тебе дают энергию )
вот я устал жать оду и ту же клавишу и хочу виртуально ее нажимать )) с клавиатурой все получается вирт клавиши работают вот часть кода :
Code
procedure rrr(key:byte);
begin
keybd_event(key, 0, 0, 0); //Нажатие клавиши key
keybd_event(key, 0, KEYEVENTF_KEYUP, 0); //Отпускание клавиши key
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
rrr(VK_LBUTTON); // собственно сам вызов функции
end;