mbswap.dpr

来自「delphi写的切换鼠标左右按键的例子」· DPR 代码 · 共 41 行

program MBSwap;

{$APPTYPE CONSOLE}

uses
    Windows, Registry;

const
    KeyName = 'SwapMouseButtons';
    SwapTrue = '1';
    SwapFalse = '0';

begin
    with TRegistry.Create do
    begin
        try
            if OpenKey('Control Panel\Mouse', False) then
            begin
                if ValueExists(KeyName) then
                begin
                    if ReadString(KeyName) = SwapFalse then
                    begin
                        SwapMouseButton(True);
                        WriteString(KeyName, SwapTrue);
                    end
                    else
                    begin
                        SwapMouseButton(False);
                        WriteString(KeyName, SwapFalse);
                    end;

                    CloseKey;
                end;
            end;
        finally
            Free;
        end;
    end;
end.