핫키를 말씀하시는 거라면..
아래 소스를 참고 하세요..
type
TfmMain = class(TForm)
....
private
{ Private declarations }
Procedure WMHotKey(Var Message: TWMHotKey); Message WM_HotKey;
public
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
{$R *.dfm}
Procedure TfmMain.WMHotKey(Var Message: TWMHotKey);
Begin
If Message.HotKey = GlobalAddAtom('ZipScreen8') then Begin
F8 키를 눌렀을 때 해야할 작업들
End;
If Message.HotKey = GlobalAddAtom('ZipScreen9') then Begin
F9 키를 눌렀을 때 해야할 작업들
End;
End;
procedure TfmMain.FormCreate(Sender: TObject);
begin
RegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen9'), 0, VK_F9);
RegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen8'), 0, VK_F8);
end;
procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen9'));
UnRegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen8'));
end;
송득보 님이 쓰신 글 :
: 특정a라는 프로그램이 있을 때
: 이 프로그램이 실행되어 창이 비활성상태(다른 워드등을 띄워놓고 쓰고있을때)에 있을때
: 특정 키를 눌러 a라는 프로그램이 특정 기능을 수행하도록 하고싶습니다.
: 이걸 가능하게 하는 api나 방법을 알려주시면 감사하겠습니다.
:
: 쉽게 말하면..a라는 프로그램을 실행하여 아래에 내려놓고 다른 워드나
: 윈도/인터넷 탐색기등등을 사용하는 도중..특정 키를 누르면
: 아래에 내려가있던 a라는 프로그램이 그 키를 가로채어
: 특정 기능을 수행하게 하는 것입니다.
: 방법을 알려주세요.
:
: -locke
:
|