Como inverter os botões do mouse?

Com esta dica você pode montar uma pegadinha para os seus colegas.

Crie um novo projeto e adicione dois botões.

Inverte os botões do mouse.
Deixe o Onclick do button1 conforme o código abaixo:

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0);
end;

Volta ao normal os botões do mouse.
Deixe o Onclick do button2 conforme o código abaixo:

1
2
3
4

procedure TForm1.Button2Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;

Lembre-se que na hora de ir clicar no botão 2, o mouse vai estar invertido
então você vai ter que clicar com o direito no botão para voltar ao normal.