API ! disparar cliques do mause numa aplicãção qualquer

[webrodex 0]

API ! disparar cliques do mause numa aplicãção qualquerPor acaso você sabe como eu faço no delphi 1 botao que faz disparar o 1 clique do mause e o 2 faz o botao desativar o clique ! irei desenvolver para o jogo do mu para ficar lutando com os inimifgo sozinho ai ele ficara pressinando ai em vez de eu ficar apertando o botao o programa faz isso ! como posso fazer isso sei que e via api o mause ficara disparando sem parar ???? como desenvolver isso?

[Hugo Slepicka 0]

{O exemplo abaixo simula o pressionamento da tecla do botão esquerdo do mouse em uma determinada posição da tela. No exemplo serão utilizados dois botões (Button1 e Button2), ao clicar no Button2 será executado o onClick do Button1 como se o mouse tivesse clicado sobre ele }

 

procedure TForm1.Button1Click(Sender: TObject);

 

begin

 

ShowMessage('Button 1 clicked');

 

end;

procedure TForm1.Button2Click(Sender: TObject);

 

var

 

Pt : TPoint;

 

begin

 

Application.ProcessMessages;

 

{Obtém o point no centro do Button1}

 

Pt.x := Button1.Left + (Button1.Width div 2);

 

Pt.y := Button1.Top + (Button1.Height div 2);

 

{Converte Pt para as coordenadas da tela }

 

Pt := ClientToScreen(Pt);

 

Pt.x := Round(Pt.x * (65535 / Screen.Width));

 

Pt.y := Round(Pt.y * (65535 / Screen.Height));

 

{Move o mouse}

 

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);

 

{Simula o pressionamento do botão esquerdo do mouse}

 

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);

 

{ Simula soltando o botão esquerdo do mouse }

 

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);

 

end;

Para mais acesse o Google e procure por: Delphi Mouse Click http://forum.imasters.com.br/public/style_emoticons/default/searchbeforeposting.gif

 

e também API como eu lhe disse...