Delphi에서 전역 단축키를 얻는 방법

비공개

aatom:atom;

c:atom;

프로시저 핫키(var msg:tmessage);message wm_hotkey; /전역 단축키 메시지 이벤트 정의

{ 비공개 선언 }

공개

{ 공개 선언 }

end;

< p>var

Form1: TForm1;

a,b:integer;

구현

{$R *.dfm} < /p>

TForm1.FormCreate(Sender: TObject);

시작

aatom:=globaladdatom('hotkey');

c: =globaladdatom('hotkey1'); //전역 단축키 ID

RegisterHotKey(handle,aatom,MOD_ALT,vk_f12); //전역 단축키 등록

RegisterHotKey(handle, c,MOD_ALT ,vk_f11);

end;

절차 TForm1.hotkey(var msg:tmessage); //핫키 응답 이벤트

begin

p>

if (msg.LParamHi=VK_F12) and (msg.LParamLo=MOD_ALT) then //전역 단축키 ALT+F12

시작

a:=a+ 1;

a:=a mod 2;

a=1이면

checkbox1.Checked:=true

else

< p> checkbox1.Checked:=false

end;

if (msg.LParamHi=VK_F11) and (msg.LParamLo=MOD_ALT) then

< p> b: =b+1;

b:=b mod 2;

b=1이면

checkbox2.Checked:=true

else

checkbox2.Checked:=false

end;

TForm1.FormClose(Sender: TObject; var Action: TCloseAction)

begin

globalDeleteatom(aatom);

globalDeleteatom(c);

end;

이전에 작성했던 내용만 변경하세요< /피>