Q&A
- 키 훅킹이 잘안되는데.... ????
아래는 제가만든 훅킹 샘플 프로그램 입니다.
키보드 입력이 발생하면 화면의 caption에 문자를 표시하는 프로그램 입니다.
그런데 어플리케이션의 메인 화면이 active 일 경우에만 키입력을 체크하는것
같습니다. 화면이 active 상태가 아닐경우에도 키입력을 체크할수 있는 방법은
없을까요? 혹시 방법을 알고계신 고수분이 계시면 도움을 부탁드립니다.
//---------------------------------------------------------------
// 메인프로그램 : Project1.exe
//---------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
const
HookDataFile = 'c:tempHook.dat';
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
WM_SSMenu : integer;
HKeyboardHook : HHOOK;
HForm_Handle : HWND;
function sjHookKeyboard : Boolean; external 'Hook_sam.dll';
function sjUnHookKeyboard : Boolean; external 'Hook_sam.dll';
implementation
{$R *.DFM}
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_SSMenu then begin
caption := caption + '1';
Handled := True;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
F : TFileStream;
begin
Application.OnMessage := AppMessage;
WM_SSMenu := RegisterWindowMessage('Samsung Menu');
HKeyboardHook := 0;
HForm_Handle := Application.handle;
F := TFileStream.Create(HookDataFile,fmCreate);
try
F.Write(HKeyboardHook, sizeof(HKeyboardHook));
F.Write(HForm_Handle, sizeof(HForm_Handle));
finally
F.Free;
end;
// 키훅킹을 시작
sjHookKeyboard;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 키훅킹 종료
sjUnHookKeyboard;
action := cafree;
end;
end.
//---------------------------------------------------------------
// 훅킹 dll : hook_sam.dll
//---------------------------------------------------------------
library hook_sam;
uses
SysUtils,
Classes,
Windows,
Messages,
Dialogs;
const
HookDataFile = 'c:tempHook.dat';
var
HKeyboardHook : HHOOK;
HForm_Handle : HWND;
WM_SSMenu : Integer;
procedure ReadData;
var
F : TFileStream;
begin
F := TFileStream.Create(HookDataFile,fmOpenRead);
try
F.Read(HKeyboardHook, sizeof(HKeyboardHook));
F.Read(HForm_Handle, sizeof(HForm_Handle));
finally
F.Free;
end;
end;
procedure WriteData;
var
F : TFileStream;
begin
F := TFileStream.Create(HookDataFile,fmCreate);
try
F.Write(HKeyboardHook, sizeof(HKeyboardHook));
F.Write(HForm_Handle, sizeof(HForm_Handle));
finally
F.Free;
end;
end;
function sjMyKeyboardHook(Code:integer; wParam:WPARAM; lParam: LPARAM) : LongInt ; stdcall;
begin
if Code >= 0 then begin
PostMessage(HWND_BROADCAST, WM_SSMenu, 0, 0);
end;
Result := CallNextHookEx(HKeyboardHook, Code, wParam, lParam);
end;
function sjHookKeyboard: Boolean;
begin
ReadData;
WM_SSMenu := RegisterWindowMessage('Samsung Menu');
HKeyboardHook := SetWindowsHookEx(WH_KEYBOARD,sjMyKeyboardHook, HInstance, 0);
result := Boolean(HKeyboardHook);
WriteData;
end;
function sjUnHookKeyboard: Boolean;
begin
if HKeyboardHook = 0 then
ReadData;
Result := UnhookWindowsHookEx(HKeyboardHook);
end;
Exports
sjHookKeyboard,
sjUnHookKeyboard;
begin
end.
키보드 입력이 발생하면 화면의 caption에 문자를 표시하는 프로그램 입니다.
그런데 어플리케이션의 메인 화면이 active 일 경우에만 키입력을 체크하는것
같습니다. 화면이 active 상태가 아닐경우에도 키입력을 체크할수 있는 방법은
없을까요? 혹시 방법을 알고계신 고수분이 계시면 도움을 부탁드립니다.
//---------------------------------------------------------------
// 메인프로그램 : Project1.exe
//---------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
const
HookDataFile = 'c:tempHook.dat';
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
WM_SSMenu : integer;
HKeyboardHook : HHOOK;
HForm_Handle : HWND;
function sjHookKeyboard : Boolean; external 'Hook_sam.dll';
function sjUnHookKeyboard : Boolean; external 'Hook_sam.dll';
implementation
{$R *.DFM}
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_SSMenu then begin
caption := caption + '1';
Handled := True;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
F : TFileStream;
begin
Application.OnMessage := AppMessage;
WM_SSMenu := RegisterWindowMessage('Samsung Menu');
HKeyboardHook := 0;
HForm_Handle := Application.handle;
F := TFileStream.Create(HookDataFile,fmCreate);
try
F.Write(HKeyboardHook, sizeof(HKeyboardHook));
F.Write(HForm_Handle, sizeof(HForm_Handle));
finally
F.Free;
end;
// 키훅킹을 시작
sjHookKeyboard;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 키훅킹 종료
sjUnHookKeyboard;
action := cafree;
end;
end.
//---------------------------------------------------------------
// 훅킹 dll : hook_sam.dll
//---------------------------------------------------------------
library hook_sam;
uses
SysUtils,
Classes,
Windows,
Messages,
Dialogs;
const
HookDataFile = 'c:tempHook.dat';
var
HKeyboardHook : HHOOK;
HForm_Handle : HWND;
WM_SSMenu : Integer;
procedure ReadData;
var
F : TFileStream;
begin
F := TFileStream.Create(HookDataFile,fmOpenRead);
try
F.Read(HKeyboardHook, sizeof(HKeyboardHook));
F.Read(HForm_Handle, sizeof(HForm_Handle));
finally
F.Free;
end;
end;
procedure WriteData;
var
F : TFileStream;
begin
F := TFileStream.Create(HookDataFile,fmCreate);
try
F.Write(HKeyboardHook, sizeof(HKeyboardHook));
F.Write(HForm_Handle, sizeof(HForm_Handle));
finally
F.Free;
end;
end;
function sjMyKeyboardHook(Code:integer; wParam:WPARAM; lParam: LPARAM) : LongInt ; stdcall;
begin
if Code >= 0 then begin
PostMessage(HWND_BROADCAST, WM_SSMenu, 0, 0);
end;
Result := CallNextHookEx(HKeyboardHook, Code, wParam, lParam);
end;
function sjHookKeyboard: Boolean;
begin
ReadData;
WM_SSMenu := RegisterWindowMessage('Samsung Menu');
HKeyboardHook := SetWindowsHookEx(WH_KEYBOARD,sjMyKeyboardHook, HInstance, 0);
result := Boolean(HKeyboardHook);
WriteData;
end;
function sjUnHookKeyboard: Boolean;
begin
if HKeyboardHook = 0 then
ReadData;
Result := UnhookWindowsHookEx(HKeyboardHook);
end;
Exports
sjHookKeyboard,
sjUnHookKeyboard;
begin
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- RyanYun
- 1999.12.18 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 설상옥
- •
- 1999.12.18 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.12.18 06:30나이렉스의 팁란에서 찾아보세요. 그리고 질문은 한군데에만 올리세요..... -.-;; 설상옥 wrote: > ...
-
- 설상옥
- •
- 1999.12.18 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.18 03:22설상옥 wrote: > 보통 실행중인 프로그램들은 Ctrl+Alt+Del키를 실행중인 프로그램의 리스트가 보이고 개...
-
- sun
- •
- 1999.12.18 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.18 03:44sun wrote: > 컴파일을 하면 다음과 같은 에러가 한번 뜨고 실행이 됩니다. > List Index out of bounds...
-
- 박준웅
- •
- 1999.12.18 02:34
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.18 02:43박준웅 wrote: > 메인폼에서 메뉴를 통해 하위폼을 불러 온 뒤 다른 하위폼을 불러오면 먼저 불러온 폼이 ...
-
- 임형호
- 1999.12.18 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤을정
- •
- 2000.08.30 10:30
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.12.18 19:59DBGrid에서 숫자 같은것에 MASK를 두려면 연결 시킨 table이나 query에서 필드 에디터에를 보면 displayf...
-
- 조민호
- •
- 1999.12.18 01:54
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.18 02:07조민호 wrote: > main.pas에서 작성한 procedure를 sub.pas에서 사용하려고 합니다. > > main.pas의 pu...
-
- 노경혁
- 1999.12.18 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.12.18 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
우경확•1999.12.18 04:29박성훈 wrote: > 파라독스,델파이3을 쓰고 있습니다. > 주문테이블의 구조는 다음과 같습니다. > > te...
-
- 알송달송
- •
- 1999.12.18 00:53
- 1 COMMENTS
- /
- 0 LIKES
-
조성우•1999.12.18 01:19알송달송 wrote: > 제가 드리려는 질문은 제목이랑 같습니다. > 디비 테이블의 내용을 텍스트 화일로 만...
-
- iliad
- 1999.12.18 00:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 이선주
- •
- 1999.12.17 23:12
- 1 COMMENTS
- /
- 0 LIKES
아래는 제가만든 훅킹 샘플 프로그램 입니다. 키보드 입력이 발생하면 화면의 caption에 문자를 표시하는 프로그램 입니다. 그런데 어플리케이션의 메인 화면이 active 일 경우에만 키입력을 체크하는것 같습니다. 화면이 active 상태가 ...-
임형호•1999.12.18 01:36이선주 wrote: > 아래는 제가만든 훅킹 샘플 프로그램 입니다. > > 키보드 입력이 발생하면 화면의 cap...
-
- 클릭
- •
- 1999.12.17 23:07
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.12.18 06:36클릭 wrote: > TTable컴포넌트를 사용하고 있구요,.. > 값을 insert시키려구하는데요.. > 만약 필드가 f...
-
- 클릭
- •
- 1999.12.17 21:19
- 2 COMMENTS
- /
- 0 LIKES
-
CALI•1999.12.17 23:04클릭 wrote: > 하나의 폼위에 에디트박스가 20개정도 있읍니다.. 그런데 제가 특정 버튼을 클릭하면 > ...
-
혀노•1999.12.17 22:07아래 코드를 사용하세요... for i:=1 to ComponentCount-1 do if (Components[i] is TEdit) then (Co...
-
- 송수현
- •
- 1999.12.17 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
김봉학•1999.12.17 20:53송수현 wrote: > 안녕하세요 날씨가 춥네요 눈이 오려나~ 꾸벅~! > > Edit VCL에서 스패이스를 눌렀을...
-
- 김매경
- •
- 1999.12.17 20:09
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.18 01:08김매경 wrote: > 우선..^^;; 아래 질문 답변... 너무 감사드리구여... > > 저도 실력을 쌓아서...^^;;;...
-
- 이주흥
- 1999.12.17 20:17
- 0 COMMENTS
- /
- 0 LIKES
-
- copretns
- •
- 1999.12.17 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.12.18 02:55copretns wrote: > 안녕하세요... > 컴포넌트를 좀 만들어볼려고 하는데 > 잘 안되네여... > 그래서, ...
-
- 박성훈
- 1999.12.17 18:50
- 0 COMMENTS
- /
- 0 LIKES
> 아래는 제가만든 훅킹 샘플 프로그램 입니다.
>
> 키보드 입력이 발생하면 화면의 caption에 문자를 표시하는 프로그램 입니다.
>
> 그런데 어플리케이션의 메인 화면이 active 일 경우에만 키입력을 체크하는것
>
> 같습니다. 화면이 active 상태가 아닐경우에도 키입력을 체크할수 있는 방법은
>
> 없을까요? 혹시 방법을 알고계신 고수분이 계시면 도움을 부탁드립니다.
>
>
>
> //---------------------------------------------------------------
> // 메인프로그램 : Project1.exe
> //---------------------------------------------------------------
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
>
> const
> HookDataFile = 'c:tempHook.dat';
>
> type
> TForm1 = class(TForm)
> procedure FormActivate(Sender: TObject);
> procedure FormClose(Sender: TObject; var Action: TCloseAction);
> procedure FormCreate(Sender: TObject);
> private
> { Private declarations }
> procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> WM_SSMenu : integer;
> HKeyboardHook : HHOOK;
> HForm_Handle : HWND;
>
> function sjHookKeyboard : Boolean; external 'Hook_sam.dll';
> function sjUnHookKeyboard : Boolean; external 'Hook_sam.dll';
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
> begin
> if Msg.message = WM_SSMenu then begin
> caption := caption + '1';
> Handled := True;
> end;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> F : TFileStream;
> begin
> Application.OnMessage := AppMessage;
> WM_SSMenu := RegisterWindowMessage('Samsung Menu');
>
>
> HKeyboardHook := 0;
> HForm_Handle := Application.handle;
>
> F := TFileStream.Create(HookDataFile,fmCreate);
>
> try
> F.Write(HKeyboardHook, sizeof(HKeyboardHook));
> F.Write(HForm_Handle, sizeof(HForm_Handle));
> finally
> F.Free;
> end;
>
> // 키훅킹을 시작
> sjHookKeyboard;
> end;
>
> procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> // 키훅킹 종료
> sjUnHookKeyboard;
> action := cafree;
> end;
>
> end.
>
>
>
> //---------------------------------------------------------------
> // 훅킹 dll : hook_sam.dll
> //---------------------------------------------------------------
> library hook_sam;
>
> uses
> SysUtils,
> Classes,
> Windows,
> Messages,
> Dialogs;
>
> const
> HookDataFile = 'c:tempHook.dat';
>
> var
> HKeyboardHook : HHOOK;
> HForm_Handle : HWND;
> WM_SSMenu : Integer;
>
> procedure ReadData;
> var
> F : TFileStream;
> begin
> F := TFileStream.Create(HookDataFile,fmOpenRead);
>
> try
> F.Read(HKeyboardHook, sizeof(HKeyboardHook));
> F.Read(HForm_Handle, sizeof(HForm_Handle));
> finally
> F.Free;
> end;
> end;
>
> procedure WriteData;
> var
> F : TFileStream;
> begin
> F := TFileStream.Create(HookDataFile,fmCreate);
>
> try
> F.Write(HKeyboardHook, sizeof(HKeyboardHook));
> F.Write(HForm_Handle, sizeof(HForm_Handle));
> finally
> F.Free;
> end;
> end;
>
> function sjMyKeyboardHook(Code:integer; wParam:WPARAM; lParam: LPARAM) : LongInt ; stdcall;
> begin
> if Code >= 0 then begin
> PostMessage(HWND_BROADCAST, WM_SSMenu, 0, 0);
> end;
>
> Result := CallNextHookEx(HKeyboardHook, Code, wParam, lParam);
> end;
>
> function sjHookKeyboard: Boolean;
> begin
> ReadData;
>
> WM_SSMenu := RegisterWindowMessage('Samsung Menu');
>
> HKeyboardHook := SetWindowsHookEx(WH_KEYBOARD,sjMyKeyboardHook, HInstance, 0);
>
> result := Boolean(HKeyboardHook);
>
> WriteData;
> end;
>
> function sjUnHookKeyboard: Boolean;
> begin
> if HKeyboardHook = 0 then
> ReadData;
>
> Result := UnhookWindowsHookEx(HKeyboardHook);
> end;
>
> Exports
> sjHookKeyboard,
> sjUnHookKeyboard;
>
> begin
> end.
>
현재 실행되는 폼이 Active상태가 아닐때 키입력을 받을 수가 없습니다. 전에 저두 이런경우가 있었는데... 그때 전역적 핫키라는것을 사용하시면 되거든요. 그 방법은 저두 확실하게 몰라서 뭐라고 말씀은 못드리겠구요. 전에 전 김영대님 홈페이지에서 그부분에 대한 내용을 참고하여 작성했었거든요. 참고하시면 도움이 될것 같습니다.