jak programowo kliknąć w pulpit

Odpowiedz Nowy wątek
2004-02-22 16:37

Rejestracja: 17 lat temu

Ostatnio: 15 lat temu

0

znaczy pytanie jest takie: jak mogę zapisać w kodzie żeby mysza kliknęła w wybrane miejsce na pulpice o współrzędnych X,Y? (pojedyncze i podwójne kliknięcia)

Pozostało 580 znaków

2004-02-22 17:26

Rejestracja: 16 lat temu

Ostatnio: 12 lat temu

0

wszystko jest w gotowcach



Pozostało 580 znaków

2004-02-22 21:31

Rejestracja: 17 lat temu

Ostatnio: 11 lat temu

0

Witam wszystkich na forum.

Ja radzę zrobić tak:

procedure Kliknij(xy:TPoint;KlikLewym:Boolean);
var
 CurrentPos : TPoint;
 CurrentWindow : HWND;
begin
 CurrentWindow := GetForegroundWindow;
 GetCursorPos(CurrentPos);
 SetForegroundwindow(Foreground);
 SetCursorPos(xy.x, xy.y);
 if KlikLewym=True then
 begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, xy.x, xy.y, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, xy.x, xy.y, 0, 0);
 end else
 begin
  mouse_event(MOUSEEVENTF_RIGHTDOWN, xy.x, xy.y, 0, 0);
  mouse_event(MOUSEEVENTF_RIGHTUP, xy.x, xy.y, 0, 0);
 end;
// SetForegroundWindow(Currentwindow); {Tutaj powrót do zaznaczonego okna}
 SetCursorPos(CurrentPos.X, CurrentPos.Y);
end;

Pozdrawiam Grupa Noribo Częstochowa

//

if KlikLewym=True then
  • nie wiem, czy mam się śmiać, czy załamywać - ŁF

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0