Ensuite, limitez la zone de mouvement de la souris à (100 100 200 200)
varrect:TRect;
commencer
rect.Gauche :=100 ;
rect.Haut :=100 ;
rect.Bas :=200 ;
rect.Droite :=200 ;
windows.ClipCursor (@rect);
Ce qui suit restaure la zone de mouvement de la souris
windows.ClipCursor(0);
Inutile de donner des exemples précis, c’est très simple. Hé hé hé hé
L'aide de Delphi dit ceci :
La fonction ClipCursor limite le curseur à une zone rectangulaire sur l'écran.
Si une position ultérieure du curseur (définie par la fonction SetCursorPos ou la souris)
se trouve à l'extérieur du rectangle, Windows ajuste automatiquement la position pour conserver le
curseur à l’intérieur de la zone rectangulaire.
BOOL ClipCurseur(
CONST RECT *lPRect // pointeur vers la structure avec rectangle
);
Paramètres
lprc
Pointe vers la structure RECT qui contient les coordonnées d'écran de la partie supérieure.
coins gauche et inférieur droit du rectangle de confinement si ce paramètre est.
NULL, le curseur est libre de se déplacer n'importe où sur l'écran.
Valeurs de retour
Si la fonction réussit, la valeur de retour est différente de zéro.
Si la fonction échoue, la valeur de retour est zéro. Pour obtenir des informations d'erreur étendues, appelez GetLastError.
Remarques
Le curseur est une ressource partagée Si une application confine le curseur, elle doit le faire.
relâchez le curseur en utilisant ClipCursor avant de céder le contrôle à un autre
application.
Le processus appelant doit avoir un accès WINSTA_WRITEATTRIBUTES à la station Windows.