Mouse Click

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
berk0606
Üye
Mesajlar: 4
Kayıt: 04 Kas 2013 08:46

Mouse Click

Mesaj gönderen berk0606 »

Merhaba,
Bir oyunca fare ile sol tuşu bastırmaya çalışıyorum.

Kod: Tümünü seç

procedure ClickMouse(X, Y: Integer; Button: TMouseButton);
begin
SetCursorPos(X, Y);
case Button of
mbLeft: begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
mbRight: begin
Mouse_Event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
end;
mbMiddle: begin
Mouse_Event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0);
end;
end;
end;
Bu kodu internette buldum. Gayet güzel çalışıyor fakat sanırım oyunun bu konuda bir koruması var. Sendmessage ı da denedim fakat iş görmüyor.
Toparlamam gerekirse fare imleci kordinata geliyor fakat yapılan tık pencereye gitmiyor. Oyunu windowed şekle getirip denedim yine işlemedi. Farklı ne tarz bir yöntem izleyebilirim bu konuda?

Kolay gelsin.

leftdown ile leftup arasına 100 milisaniye koyarak hallettim (: Yinede teşekkür ederim ^^
Cevapla