mytest_unit1.dfm

一个delphi的使自己的进程不能被taskmgr杀掉的示范源码.

object Form1: TForm1
  Left = 395
  Top = 118
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MyTest Hook Demo  --- by Liu Yang'
  ClientHeight = 94
  ClientWidth = 331
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btnHook: TBitBtn
    Left = 24
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Hook'
    TabOrder = 0
    OnClick = btnHookClick
  end
  object btnUnhook: TBitBtn
    Left = 128
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Unhook'
    Enabled = False
    TabOrder = 1
    OnClick = btnUnhookClick
  end
  object btnClose: TBitBtn
    Left = 232
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object edLibName: TEdit
    Left = 24
    Top = 16
    Width = 81
    Height = 21
    TabOrder = 3
  end
  object btnLoadLib: TBitBtn
    Left = 232
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Load'
    TabOrder = 4
    OnClick = btnLoadLibClick
  end
  object BitBtn1: TBitBtn
    Left = 128
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Browse'
    TabOrder = 5
    OnClick = BitBtn1Click
  end
end