Nie dawno pyatałem się jak zablokować myszkę i klawiaturę. Dostałem odpowiedź na temat klawiatury (HOOK) a z myszką trzeba to zrobić analogicznie ( Johnny_Bit [cya] ). A ja zabardzo nie wiem jak to zrobić analogicznie.
Czyli moje pytanie to:
Jak założyć globalnego hooka na myszkę?
A w jakiej formie chcesz miec podawane polozenia myszki ??
Jeżeli chcesz np. polozenie na osi x i y to mozesz uzyc czegos takiego:
W np.oncreate dajesz zeby stworzył plik np. mauseposition.txt a potem go uaktualniasz w taki sposób (to możesz dac do timera z intevałem 1):
<font color="blue">var
P : TPoint;
TF : TextFile;
begin
GetCursorPos(P);
AssignFile(TF, 'mauseposition.txt');
Append(TF);
Writeln(TF, IntToStr(P.X, P.Y)+#13);
CloseFile(TF); </span>
I tym sposobem dajac to do timera i ustawiajac intervalna 1 mozesz co 1 milisek. zapisac polozenie kursora ...
A o stworzeniu pliku txt masz napisane w faq ...
Nie chcĘ odczytywać położenia myszki, tylko ją zablokować.
Może wprowadziłem cię w błąd tym HOOKiem (tak w ogóle co to jest [wstyd] ) ale pisali mi że można nim klawiaturę zablokować. Myszke podobno też
http://4programmers.net/Forum/viewtopic.php?id=38654
nie wiem czy to to o co ci chodzi, ale lepsze to niz nic ;)
do dolu: nie zauwazylem, poza tym cosik tam jest
wesoledi swietnie - pokazales zxc jego poprzedni temat ;-)
a próbowałeś tego:
do uses dodaj ShellApi;
ShellExecute(Handle,'open','rundll32','mouse,disable',nil,SW_SHOWNORMAL);
Uwaga !
Aby przywrócić działanie myszki należy ponownie uruchomić system Windows
mirekpil - no właśnie a mi chodzi o to aby odblokować bez resetu.
Chcialbym zauwazyc ze podany wyzej przyklad nie dziala na windowsach 2000 i XP