Prevent global hook invading Delphi version, 2000 or higher system applicable (Part1)

xiaoxiao2021-03-06  37

See http://202.38.73.222/~pjf/blog/archives/000040.html code is as follows: ============================================================================================================================================================================================================================================= == 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 =========

转载请注明原文地址:https://www.9cbs.com/read-61894.html

New Post(0)