摘要:每个程序都有自己的生存空间,在windows系统中你可以在任何时候让你的程序执行一些操作,还可以触发消息,触发的消息分为三种,一是操作你程序的界面,onclick,onmousemove等等,另外一个可以使用windows的消息机制来捕获一些系统消息,但是如果你想在任何时候监控任何程序的情况那可能你就会选择hook来实现了,虽然还有其他方法,但不得不承认,hook是一个比较简单解决问题的途径。wi......
摘要:delphi中实现汉字拼音声母查询,unit代码如下:unit unit1;
interface
uses windows, messages, sysutils, classes, graphics, controls, forms, dialogs, stdctrls;
type tform1 = class(tform) listbox1: tlistbox; listbox2: tl......
防止全局hook入侵Delphi版,2000以上系统适用(part1)
原理见http://202.38.73.222/~pjf/blog/archives/000040.html
代码如下:
============form1.dfm==============
object form1: tform1
left = 192
top = 107
width = 396
height = 261
caption = form1
color = clbtnface
font.charset = default_charset
font.color = clwindowtext
font.height = -11
font.name = ms sans serif
font.style = []
oldcreateorder = false
oncreate = formcreate
ondestroy = formdestroy
pixelsperinch = 96
textheight = 13
object button1: tbutton
left = 0
top = 152
width = 89
height = 25
caption = load
...
下一页 摘要:
//┏━━━━━━━━━━━━━━┓//┃代码着色:codecolor v1.0 ┃//┃来自:悄然无声的 blog ┃ //┗━━━━━━━━━━━━━━┛var b:boolean;procedure tform1.button1click(sender: tobject); begin b:=true; while(b) do begin caption:=working; ap......