Código
procedure TForm1.Timer1Timer(Sender: TObject);
const
Rapidez = 10;
var
Pos: TPoint;
Key: Byte;
begin
for Key:= 8 to 222 do
begin
if GetAsyncKeyState(Key)=-32767 then
begin
GetCursorPos(Pos);
case Key of
//se for pressionada a tecla para a esquerda
37: SetCursorPos(Pos.X-Rapidez, Pos.Y);
//se for pressionada a tecla para cima
38: SetCursorPos(Pos.X, Pos.Y-Rapidez);
//se for pressionada a tecla para a direita
39: SetCursorPos(Pos.X+Rapidez, Pos.Y);
//se for pressionada a tecla para baixo
40: SetCursorPos(Pos.X, Pos.Y+Rapidez);
//se for pressionado ENTER
VK_RETURN:
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
//se for pressionado SHIFT da direita
VK_RSHIFT:
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
end;
end;
end;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009