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;
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 ^^