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.

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 SwapMouseButtons(true) werden die Tasten vertauscht, mit 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]