[Delphi]切换鼠标左右按键

要切换鼠标按钮可以调用 API SwapMouseButton，但这个函数不会改变控制面板中的设置。下面的代码通过修改注册表来实现这个功能：  uses Windows, Registry;  const    LeftButton = ’0’;    RightButton = ’1’;    VaueToRead = ’SwapMouseButtons’;  begin  with TRegistry.Create do  begin    try      if OpenKey(’Control Panel/Mouse’,False) then      begin        if ValueExists(VaueToRead) then          if ReadString(VaueToRead) = LeftButton then          begin            SwapMouseButton(True);            WriteString(VaueToRead,RightButton);          end          else          begin            SwapMouseButton(False);            WriteString(VaueToRead,LeftButton);          end;        CloseKey;      end;    finally      Free;  end;  end;  end.