frmmainunit.dfm

PSM firewall code(DELPHI)

          0000000000000000000000000000000000009131974A5A42FC3DFC3DFC3DFC3D
          FC3DFC3DFC3DFC3DFC3DFC3DFC3DFC3DFC3D3B427A461B3EFC3D963100000000
          000000000000000000000000000000000000F439994A1A3EDB39FB3DFB3DDB39
          DB39FB3DFB3DFB3DFB3DDB39FB3DFB3DDC39B535F2397746193E312500000000
          00000000000000000000000000000000B23577469946DB39DB39DB39DB393A42
          1A3EDB39DB39DB39DB39FB39DB39DB39DB399731220400000000000000000000
          00000000000000000000000000000000B3355642B94E3942DA39BB399631B94E
          5942DA39DA39BA351A3E9946FA39BB39DA39DB39A91400000000000000000000
          00000000000000000000000000000000000093315746B84A5842B8352F25974A
          7942BA35BA35BA35D839B74A5942BA35BA35B935102100000000000000000000
          00000000000000000000000000000000000000000000784A974A71290000974A
          7946B93599319A313025133EB94EF839772D5429000000000000000000000000
          00000000000000000000000000000000000000000000000000000000173E5746
          984A183EF939F93953292D25B84ED43100000000000000000000000000000000
          00000000FF8007FFFE0000FFFC00007FFC00003FF800001FF000001FE0000007
          E0000003C0000003C0000003C0038001C007C001C007E003C007E003C007F001
          C007F001C007F001C007F001F003F001E003F003C001F007C0000003C0000001
          E0000001E0000003FE000003FC000007FC00001FFC00001FFE00003FFF80007F
          FFF001FF}
      end
      object Label17: TLabel
        Left = 18
        Top = 1
        Width = 87
        Height = 27
        AutoSize = False
        Caption = 'NOTE:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label18: TLabel
        Left = 132
        Top = 5
        Width = 407
        Height = 27
        AutoSize = False
        Caption = '= Non-Microsoft Service'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object ListView2: TListView
        Left = 7
        Top = 36
        Width = 561
        Height = 269
        Columns = <
          item
            Caption = 'Name'
            Width = 130
          end
          item
            Caption = 'Path'
            Width = 280
          end
          item
            Caption = 'Status'
            Width = 60
          end
          item
            Caption = 'StartupType'
            Width = 70
          end>
        GridLines = True
        LargeImages = ImageList1
        ReadOnly = True
        RowSelect = True
        SmallImages = ImageList1
        SortType = stText
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = ListView2DblClick
        OnSelectItem = ListView2SelectItem
      end
      object cmdServiceRestart: TBitBtn
        Left = 80
        Top = 309
        Width = 75
        Height = 25
        Caption = '&Restart'
        Enabled = False
        TabOrder = 1
        OnClick = cmdServiceRestartClick
        Kind = bkRetry
      end
      object cmdServiceStop: TBitBtn
        Left = 168
        Top = 309
        Width = 75
        Height = 25
        Caption = '&Stop'
        Enabled = False
        TabOrder = 2
        OnClick = cmdServiceStopClick
        Kind = bkNo
      end
      object cmdServiceStart: TBitBtn
        Left = 256
        Top = 309
        Width = 75
        Height = 25
        Caption = 'S&tart'
        Enabled = False
        ModalResult = 6
        TabOrder = 3
        OnClick = cmdServiceStartClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object cmdServiceChangeStartupMode: TBitBtn
        Left = 344
        Top = 309
        Width = 145
        Height = 25
        Caption = '&Change Startup mode'
        Enabled = False
        TabOrder = 4
        OnClick = cmdServiceChangeStartupModeClick
        Kind = bkIgnore
      end
    end
    object TabSheet3: TTabSheet
      Caption = '&Keyboard Filter Drivers / Win.ini && System.ini (Special key)'
      ImageIndex = 2
      object Label2: TLabel
        Left = 8
        Top = 131
        Width = 561
        Height = 34
        AutoSize = False
        Caption = 
          'NOTE: Some Keyboard Filter Drivers is Parts of SpyWare. In Stand' +
          'ard Windows OS, there is no Keyboard Filter Driver. You should r' +
          'emove all Keyboard Filter Drivers in your Computer!'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label3: TLabel
        Left = 7
        Top = 321
        Width = 561
        Height = 17
        AutoSize = False
        Caption = 
          'NOTE: Some Drivers maybe Parts of SpyWare. You should disable al' +
          'l unknown Drivers in your Computer!'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label8: TLabel
        Left = 8
        Top = 1
        Width = 177
        Height = 17
        AutoSize = False
        Caption = 'Keyboard Filter Driver:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label9: TLabel
        Left = 7
        Top = 181
        Width = 177
        Height = 17
        AutoSize = False
        Caption = 'System.ini:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label10: TLabel
        Left = 295
        Top = 180
        Width = 177
        Height = 17
        AutoSize = False
        Caption = 'Win.ini:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object ListView3: TListView
        Left = 7
        Top = 15
        Width = 561
        Height = 116
        Columns = <
          item
            Caption = 'Name'
            Width = 150
          end
          item
            Caption = 'Path'
            Width = 400
          end>
        GridLines = True
        LargeImages = ImageList1
        ReadOnly = True
        RowSelect = True
        PopupMenu = PopupMenu1
        SmallImages = ImageList1
        TabOrder = 0
        ViewStyle = vsReport