Q&A

  • 단축키(예: Ctrl+Alt+Backspace)정의 관련
...

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를 인식할수 있는 방법이 있는지 알려주시면 고맙겠습니다.



고수님들의 조언을 기다립니다.





1  COMMENTS
  • Profile
    최용일 2000.05.03 03:07
    안녕하세요. 최용일입니다.



    전역핫키를 사용하세요. 아래 찾아보시면 예제가 많이 있습니다.



    ^^ 항상 즐코하세요.



    봉갈천 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를 인식할수 있는 방법이 있는지 알려주시면 고맙겠습니다.

    >

    > 고수님들의 조언을 기다립니다.

    >

    >