private a atom: atom; C: 아톰; Procedure hotkey (varmsg: t 메시지); Message wm_hotkey；; //글로벌 핫키 메시지 이벤트 정의 {private declarations} public {public declarations} end; Varform1: tform1; A, b: 인터거; Implementation {$ r *. DFM} procedure tform 1.formcreate (sender: tobject); Beginaatom: = globaladdatom ('hotkey'); C: = globaladdatom ('hotkey 1'); //글로벌 핫키 IDRegisterHotKey(handle, aatom, MOD_ALT, vk _ F12); //글로벌 핫키 등록 RegisterHotKey(handle, c, MOD_ALT, vk _ F11); End；; Proceduretform1.hotkey (varmsg: tmessage); //핫 키 응답 이벤트 begin if (msg.lparam hi = vk _ F12) and (msg.lparam lo = mod _ alt) then//글로벌 핫 키 alt+ A: = a mod 2; If a = 1 then checkbox 1.checked: = true else checkbox 1.checked: = false end; If (msg.lparamhi = vk _ F11) 및 (msg.lparamlo = mod _ alt) then b: = b+1; B: = b mod 2; If b = 1 then checkbox 2.checked: = true else checkbox 2.checked: = false end; Proceduretform1.formclose (sender: tobject; Varaction: tcloseaction); BeginglobalDeleteatom(aatom)；); Globaldeleteatom (c); End；; 이전에 쓴 것을 고치면 됩니다. < /p >