cryz4dvl4

Arkadaşlar şimdi ben bi kod ekledim diyelim. o kodu çalıştırdığımızda program mouse nin nerde olduğunu gözetmeksizin mousun sol tuşuna bassın. Bunu nasıl yapıcam?

By_Surmeneli

Ben burdaysam yardım uzakta değildir biraz meşguldum

Bir Window'a program icinde mouse ile tiklanmasi

procedure DoClick(AHWND: HWND);
begin
SendMessage(AHWND, WM_LBUTTONDOWN, 0, 0);
SendMessage(AHWND, WM_LBUTTONUP, 0, 0);
end;

{
Label1'e tiklandiginda Button1 kendine tiklanmis gibi
algilayacaktir
}

// Kullanimi:
procedure TForm1.Label1Click(Sender: TObject);
begin
DoClick(Button1.Handle);
end;
mouse nin tiklamasi

procedure TForm1.Button1Click(Sender: TObject);
var
point:TPoint; // kursor'un bulundugu yer
begin
getcursorpos(point); // kursor'un bulundugu yerin kordinatlarini oku
setcursorpos(350,500); // kursor'u yeni yerine yonlendir.
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);// tikla
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); //
setcursorpos(point.x,point.y); // kursor'u eski yerine götürend;
end;

cryz4dvl4

Teşekkürler.