防止全局hook入侵Delphi版,2000以上系统适用(p…

2008-04-09 04:22:04来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

原理见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'''' TabOrder = 0 OnClick = Button1Click end object Memo1: TMemo Left = 0 Top = 0 Width = 385 Height = 145 ScrollBars = ssBoth TabOrder = 1 end object Button2: TButton Left = 0 Top = 184 Width = 89 Height = 25 Caption = ''''Button2'''' TabOrder = 2 OnClick = Button2Click end object Button3: TButton Left = 120 Top = 184 Width = 89 Height = 25 Caption = ''''Button3'''' TabOrder = 3 OnClick = Button3Click end end =========

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:枚舉並設置界面的Caption之多語言方法

下一篇:防止全局hook入侵Delphi版,2000以上系统适用(part2)