极点博客 - 青色咖啡的博客

procedure TForm1.Button1Click(Sender: TObject);
var
  mouse_key:Tregistry;
begin
  mouse_key:=Tregistry.Create;
  begin
   mouse_key.RootKey:=Hkey_current_user;
    try
      if mouse_key.OpenKey('Control Panel\mouse',True)  then
      begin
        if mouse_key.ValueExists(key_value) then
        if mouse_key.ReadString(key_value)=Left_M then
        begin
          SwapMouseButton(True);
          mouse_key.WriteString(key_value,right_M);
        end
        else
        begin
          SwapMousebutton(False);
          mouse_key.WriteString(key_value,Left_M);
        end;
        mouse_key.CloseKey;
      end;
    finally
      mouse_key.Free;
    end;
  end;
end;
end.