[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.