Simulando mouse click com Delphi 7

Boa Noite galera, esta video aula eu fiz para ensinar a fazer um mouse click, espero que façam bom proveito.

Códigos Utilizados:

Timer:

SetCursorPos(X, Y); // Posições x e y do mouse na tela

Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 ); // Clica o botão esquerdo do mouse

Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ); // Solta o botão esquerdo do mouse

Button1.Caption := 'Desligar'; // Transforma o caption do botão 1 em 'Desligar'

Button1:

Timer1.Enabled := true; // Ativa o Timer

Button2:

MessageBoxA(handle, 'Funcionou!', 'Funcionou!', 0); // Exibe mensagem que funcionou

Download do Source: http://speedy.sh/jXt6M/TUTORIAL-TK.rar