Delphi 切換滑鼠左右按鍵

2021-05-25 02:33:55 字數 722 閱讀 6140

要切換滑鼠按鈕可以呼叫 api swapmousebutton,但這個函式不會改變控制面板中的設定。下面的**通過修改登錄檔來實現這個功能:

uses windows, registry;

const

leftbutton = 』0』;

rightbutton = 』1』;

vauetoread = 』swapmousebuttons』;

begin

with tregistry.create do

begin

tryif openkey(』control panel/mouse』,false) then

begin

if valueexists(vauetoread) then

if readstring(vauetoread) = leftbutton then

begin

swapmousebutton(true);

writestring(vauetoread,rightbutton);

endelse

begin

swapmousebutton(false);

writestring(vauetoread,leftbutton);

end;

closekey;

end;

finally

free;

end;

end;

end.

iMouse 快速切換滑鼠左右鍵

此blog是imouse軟體的官網 是鍵盤上數字 1 左邊的鍵 切換左右鍵。說明 1.支援win xp vista win 7 win 8。2.軟體大小 16kb,md5值 e6ef7c38987066d846526f5ba78e6a7b。3.此軟體百分百無毒,請注意核對md5。為了有效減小軟體大小...

左右切換Activity

在res資料夾下建立anim資料夾,1,在資料夾下建立in from right.xml檔案 建立out to left.xml檔案 2,然後在 裡新增即可如下 注意 不能在子執行緒裡呼叫這個方法,否則無效 overridependingtransition 方法第乙個引數控制的是即將進來的活動,記...

Delphi 傳送按鍵

const extendedvkeys set of byte vk up,vk down,vk left,vk right,vk home,vk end,vk prior,vk next,vk insert,vk delete 傳送按鍵 procedure sendcardno cardno st...