[delphi] Symulowanie przycisków Funkcja Sendinput

Czy mógłby mi ktoś pomóc zasymulować naciśniecie przycisku myszki??
Próbowałem sam napisać tą procedurę, ale po jej wywołaniu nic się nie dzieje.
Oto jej kod:

procedure TForm1.Button2Click(Sender: TObject);
var
klawisz: TInput;
begin
klawisz.itype := input_mouse;
klawisz.mi.dwflags := mauseeventf_leftdown;
Sendinput(1,keydown, sizeof(input));
end;

Proszę o jakąś rade.

---

???

Może coś takiego?...SendMessage($FFFFFFFF,WM_LBUTTONDOWN,100,100); Sleep(100); SendMessage($FFFFFFFF,WM_LBUTTONUP,100,100);
Użytkownik KSMłody edytował ten post 28 kwiecień 2006, 19:08
Wielkie dzięki za pomoc :) !!!

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl