Delphi&CBuiler
文章平均质量分 76
jslamb
这个作者很懒,什么都没留下…
展开
-
用程序模拟键盘和鼠标键盘
在Windows大行其道的今天,windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种,键盘输入控制和鼠标输入控制。有时,对于繁杂的,或重复性的操作,我们能否通过编制程序来代替手工输入,而用程序来模拟键盘及鼠标的输入呢?答案是肯定的。这主要是通过两个API函数来实现的。 下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个api函数,转载 2005-12-01 20:19:00 · 1312 阅读 · 0 评论 -
HOOK例程
在许多系统中,出于安全或其它原因,常常要求随时对键盘进行监控,一个专业的监控程序必须具备两点,一是实时;二是作为指示图标运行。实际应用中把利用 Hook(即钩子)技术编写的应用程序添加到Windows的任务栏的指示区中就能够很好的达到这个目的。我在参考了API帮助文档基础上,根据在 Delphi开发环境中的具体实现分别对这两部分进行详细论述。 一、Hook(钩子)的实现:Hook是应用程序在转载 2005-12-01 20:22:00 · 914 阅读 · 0 评论 -
部分算法编程(Delphi)
1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if alcm:=a; while lcm mod b >0 do inc(lc转载 2005-12-01 20:25:00 · 718 阅读 · 0 评论 -
不显示在任务栏上,在按Ctrl+Alt+Del出现的任务列表中也不显示
后台监控软件,为了达到隐蔽监控的目的,应该满足正常运行时,不显示在任务栏上,在按Ctrl+Alt+Del出现的任务列表中也不显示,管理员可以通过热键调出隐藏的运行界面。要作到这些,必须把当前进程变为一个系统服务,并且定义全局热键。 一、把当前进程变为一个系统服务: 目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。 二、定义全局热键(本例中定义热键C转载 2005-12-01 20:20:00 · 1785 阅读 · 0 评论