如何保存用hook函数截获的键码?

wsf 2000-04-27 02:40:00
本人在计算机报看到关于此类的文章,调试了一把,发现无法保存键码,请高手们指点。
这里先多谢了!
...全文
153 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
kxy 2000-06-07
  • 打赏
  • 举报
回复
append(keyfile);
那个文件要已经存在.
bc 2000-06-07
  • 打赏
  • 举报
回复
我在编写驱动程序时发现并非所有的目录都可操作,只能使用系统目录,这里可能类似吧。
rollback 2000-04-27
  • 打赏
  • 举报
回复
function keyboardhookhandler(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export;
const
keyfilename='c:\key.txt';
var
keyfile:textfile;

begin
if icode<0 then
begin
result:=callnexthookex(hnexthookproc,icode,wparam,lparam);
exit;
end;
assignfile(keyfile,keyfilename);
append(keyfile);
if getkeystate(vk_return)<0 then
begin
writeln(keyfile,'');
write(keyfile,char(wparam));
end
else
write(keyfile,char(wparam));
closefile(keyfile);
result:=0;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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