哪个有记录键盘的delphi源码?

xxxfffcn 2004-05-07 03:53:14

哪个有记录键盘的delphi源码?
xxxfff_cn@tom.com

...全文

46 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

10975037 2004-05-07

打赏
举报

回复

http://www.qifong.com/cn_readdelphisource.asp?id=58
利用Hook技术记录键盘和鼠标操作的Demo+源码
----------------------
登陆后才能下载。楼主在那里注册一个帐号吧。。

注：下载后请自行查毒￣！

delphi 中英文键盘记录源码能同时记录中文和英文的dll文件！但是有些BUG希望有人将它完善下

键盘全记录密码盗取发送程序 Delphi源码全部圆啊摹

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

开始吧电脑安装delphi 程序源码我给大家传到www.zxbhs.com 大家上去下载查看源码好了看我操作吧源码我给大家解释下也很简单 HotKeyHookExit;// 键盘钩子退出 end; procedure TForm1.Button1Click(Sender: TObject); // 键盘钩子有效 begin memo1.Clear; if EnableHotKeyHooK=false then showmessage('安装钩子失败！'); end; procedure TForm1.Button2Click(Sender: TObject); //键盘钩子无效 begin DisableHotKeyHook; end; procedure TForm1.Memo1Change(Sender: TObject); //这里变相接受键盘消息 var pstr:string; shiftstr:string; begin pstr:=mypresschar;//总键值 shiftstr:=dulictrl;//附加键 shift ctrl alt 值 ='' 则什么也没按下 form1.Caption:=pstr+'...'+shiftstr; sendmessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);// 使memo滚动到最底行 end; procedure TForm1.FormCreate(Sender: TObject); begin myfiledir := getcurrentdir; 好了运行试试看看吧好了具体就是这样了不需要任何控件好了教程就到这

Delphi 源码。可以记录鼠标、键盘操作，并且以文本方式记录，可以修改文本。可以回放记录的操作。Windows XP环境。

数据库相关

2,495

社区成员

88,444

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章