20CN网络安全小组论坛 - 原创软件

论坛: 原创软件标题: 老实和尚请进!

复制本贴地址

作者: sainthero [sainthero]

论坛用户

怎样在Hook中将WM_KEYDOWN and WM_KEYUP两个消息分开来
谢谢

地主发表时间: 10/11 21:47

回复: ricky [ricky]

版主

哈哈，最近正好想做一个截键盘的东东，不过还没有开始，所以没法回答你

B1层发表时间: 10/11 22:59

回复: sainthero [sainthero]

论坛用户

我的程序做完了
只有这个问题还解决不了

B2层发表时间: 10/12 03:55

回复: sainthero [sainthero]

论坛用户

唉
终于搞定了

private
  procedure MyAppMessage(var Msg:TMsg;var done:boolean);

procedure TForm1.MyAppMessage(var Msg:TMsg;var done:boolean);
begin
   done:=False;
   Case Msg.message of WM_KEYDOWN:
           begin
             //add your code here
             done:=True;
           end;
end;
Form1 OnCreate
  Application.OnMessage:=MyAppMessage;

B3层发表时间: 10/16 10:19

论坛: 原创软件