Maustasten vertauschen

[Yan]

Für User, die die Systemeinstellung nicht finden, oder einfach nur mal ausprobieren wollen, wie sich Linkshänder an einem PC fühlen. :wink:

Delphi-Quellcode:

procedure SwapMouseButtons(const Swap: Boolean);
Begin
  if Swap then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,1, Nil, 0)
  else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,0, Nil, 0);
end;

mit

Delphi-Quellcode:

SwapMouseButtons(true)

werden die Tasten vertauscht, mit

Delphi-Quellcode:

SwapMouseButtons(false)

wieder zurückgesetzt.


[edit=Matze]Der Code stammt ursprünglich von Delphi-Treff

@Daniel: Ich habe dort angefragt und darf den Code hier veröffentlichen. ;)
[/edit]