...
public
{ Public declarations }
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;
...
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
IF (Msg.Message = WM_KEYDOWN) and
(Msg.wParam = VK_RETURN) then // user pressed return key
begin
if (GetKeyState(VK_CONTROL) < 0)
AND (GetKeyState(VK_ALT) < 0) then // control key is down
ShowMessage('Yes');
END;
end;
작업도중 예를 들면 Ctrl+Alt+Backspace를 누르면 다른잡을 실행하게하는
프로그램을 개발하고 싶은데 잘 안되내요.
3개키를 조합해서
또 혹시 화면이 활성화 되어 있지 않은 상태에서도(백그라운드)
Ctrl+Alt+Backspace를 인식할수 있는 방법이 있는지 알려주시면 고맙겠습니다.
고수님들의 조언을 기다립니다.
전역핫키를 사용하세요. 아래 찾아보시면 예제가 많이 있습니다.
^^ 항상 즐코하세요.
봉갈천 wrote:
> ...
> public
> { Public declarations }
> procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
> end;
> ...
> procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
> begin
> IF (Msg.Message = WM_KEYDOWN) and
> (Msg.wParam = VK_RETURN) then // user pressed return key
> begin
> if (GetKeyState(VK_CONTROL) < 0)
> AND (GetKeyState(VK_ALT) < 0) then // control key is down
> ShowMessage('Yes');
> END;
>
>
> end;
>
>
> 작업도중 예를 들면 Ctrl+Alt+Backspace를 누르면 다른잡을 실행하게하는
> 프로그램을 개발하고 싶은데 잘 안되내요.
> 3개키를 조합해서
>
> 또 혹시 화면이 활성화 되어 있지 않은 상태에서도(백그라운드)
> Ctrl+Alt+Backspace를 인식할수 있는 방법이 있는지 알려주시면 고맙겠습니다.
>
> 고수님들의 조언을 기다립니다.
>
>