A seguir, limite a área de movimento do mouse para (100.100.200.200)
varrect: TRect;
começar
rect.Esquerda:=100;
rect.Top:=100;
rect.Inferior:=200;
rect.Direita:=200;
windows.ClipCursor(@rect);
O seguinte restaura a área de movimento do mouse
windows.ClipCursor(0);
Não há necessidade de dar exemplos específicos, é muito simples. Hee hee hee hee
A ajuda no Delphi diz o seguinte:
A função ClipCursor confina o cursor a uma área retangular da tela.
Se uma posição subsequente do cursor (definida pela função SetCursorPos ou pelo mouse)
fica fora do retângulo, o Windows ajusta automaticamente a posição para manter o
cursor dentro da área retangular.
BOOL ClipCursor(
CONST RECT *lPRect // ponteiro para estrutura com retângulo
);
Parâmetros
lprc
Aponta para a estrutura RECT que contém as coordenadas da tela da parte superior.
cantos esquerdo e inferior direito do retângulo confinante Se este parâmetro for.
NULL, o cursor fica livre para se mover para qualquer lugar da tela.
Valores de retorno
Se a função for bem-sucedida, o valor de retorno será diferente de zero.
Se a função falhar, o valor de retorno será zero. Para obter informações de erro estendidas, chame GetLastError.
Observações
O cursor é um recurso compartilhado. Se um aplicativo confinar o cursor, ele deverá.
libere o cursor usando ClipCursor antes de ceder o controle para outro
aplicativo.
O processo de chamada deve ter acesso WINSTA_WRITEATTRIBUTES à estação de janela.