frmmainunit.dfm

PSM firewall code(DELPHI)

        OnKeyDown = ListView3KeyDown
        OnMouseUp = ListView3MouseUp
      end
      object ListView4: TListView
        Left = 7
        Top = 195
        Width = 274
        Height = 116
        Checkboxes = True
        Columns = <
          item
            Caption = 'Item'
            Width = 260
          end>
        GridLines = True
        LargeImages = ImageList1
        ReadOnly = True
        RowSelect = True
        SmallImages = ImageList1
        TabOrder = 1
        ViewStyle = vsReport
        OnKeyDown = ListView3KeyDown
        OnMouseUp = ListView4MouseUp
      end
      object ListView5: TListView
        Left = 295
        Top = 195
        Width = 274
        Height = 116
        Checkboxes = True
        Columns = <
          item
            Caption = 'Item'
            Width = 260
          end>
        GridLines = True
        LargeImages = ImageList1
        ReadOnly = True
        RowSelect = True
        SmallImages = ImageList1
        TabOrder = 2
        ViewStyle = vsReport
        OnKeyDown = ListView3KeyDown
        OnMouseUp = ListView5MouseUp
      end
      object GroupBox1: TGroupBox
        Left = 25
        Top = 164
        Width = 521
        Height = 6
        TabOrder = 3
      end
    end
    object TabSheet4: TTabSheet
      Caption = '&Other Tools'
      ImageIndex = 3
      object GroupBox2: TGroupBox
        Left = 8
        Top = 8
        Width = 561
        Height = 105
        Caption = ' Some other MS Tools '
        TabOrder = 0
        object cmdMSConfig: TBitBtn
          Left = 64
          Top = 28
          Width = 65
          Height = 57
          BiDiMode = bdLeftToRight
          Caption = '&MSConfig'
          ParentBiDiMode = False
          TabOrder = 0
          OnClick = cmdMSConfigClck
          Glyph.Data = {
            76020000424D7602000000000000760000002800000020000000200000000100
            0400000000000002000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            0000000000000000000000000000000000000000788888700000788888888888
            888888887777777770007FFFFFFFFFFFFFFFFFFF78FFFF87770007F707707707
            707707707FFFFFFF7770007F70F70F70F70F70F707FFFFFFF7700007770F70F7
            0F70F70F7077777777700007F88778888888888888878FF87F870007F8822888
            888000000000077777700007F8888888888777777777788777000007F8888888
            888888888888888777000007FFFFFFFFFFFFFFFFFFFFFFF77700000078888888
            8887800000000008770000000788888888877800007800008700000000788888
            888777800007800008000000000777777777777F000780000000000000000000
            0007777F0000780000000000000000000007777F000078000000000000000000
            0007777F0000078000000000000000000007777F000001100000000000000000
            0007777F0000019110000000000000000007777F000001D91000000000000000
            0007777F0000001D91000000000000000007777F0000001D9100000000000000
            0000777F00000001D9100000000000000000077F00000001D910000000000000
            0000007F000000001D9100000000000000000007000000001D91000000000000
            000000000000000001D9000000000000000000000000000001D9000000000000
            0000000000000000001D0000000000000000000000000000001D}
          Layout = blGlyphTop
        end
        object cmdServiceMan: TBitBtn
          Left = 184
          Top = 27
          Width = 65
          Height = 57
          BiDiMode = bdLeftToRight
          Caption = 'Ser&viceMan'
          ParentBiDiMode = False
          TabOrder = 1
          OnClick = cmdServiceManClick
          Glyph.Data = {
            76020000424D7602000000000000760000002800000020000000200000000100
            0400000000000002000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
            6666666666666666666666666666666666666666666666666666666666666666
            6666666666666666666666666666666666666660000666666666666666666666
            6600666077066600666666666666666660700600000060070666666666666666
            60703030BF0303070666666666666666600B0330FB0330F00666666666666660
            00BFB00FBFB00FBF000666666666660370FBFBFBFBFBFBFB0370666666666600
            00BFBF000000BFBF000066666666660BFBFBF00F87700BFBFBF0666666666600
            00BF0F0F8770F0BF0006666660066607700BF00F87700BF00666666607006000
            000FBF0F8770BFB0066666660705070880FBFB0F8770FBFB0666666600807708
            80BF0007007000BF066666000888008888008807887066006666607708888888
            8888880FF88066666666600008888000000888800006666666666088888800F8
            7700888888066666666666000880F0F8770F08800066666666666666008800F8
            770088006666666666666666008880F8770888006666666666666666088880F8
            770888806666666666666666088000F877000880666666666666666660066070
            07066006666666666666666666666078870666666666666666666666666660FF
            8806666666666666666666666666660000666666666666666666666666666666
            6666666666666666666666666666666666666666666666666666}
          Layout = blGlyphTop
        end
        object cmdSysEdit: TBitBtn
          Left = 304
          Top = 28
          Width = 65
          Height = 57
          BiDiMode = bdLeftToRight
          Caption = '&Sysedit'
          ParentBiDiMode = False
          TabOrder = 2
          OnClick = cmdSysEditClick
          Glyph.Data = {
            76020000424D7602000000000000760000002800000020000000200000000100
            0400000000000002000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000066666666
            6660000000000000000000006666666660000000000000000000000066666666
            60000000000000000000000066666666600EFEFEFEFEF0000000000066666666
            600FEFEFEFEFE0000000000066666666600EFEFEFEFEF0000000000066666666
            600FEFEFEFEFE0000000000066666666600EFEFEFEFEF0000000000066666666
            600FEFEFEFEFE0000000000066000000000EFEFEFEFEF0000000000066066666
            600FEFEFEFEFE0000000000066066666600EFEFEFEFEF0000000000066066666
            600FEFEFEFEFE0000000000066066666600EFEFEF00000000000000066066666
            600FEFEFE00000000000000000066666600EFEFEF00F00000000000000066666
            600FEFEFE0000000000000000006666660000000000000000000000000066666
            6000000000000000000000000006666666666600000000000000000000066666
            6666660000000000000000000006666666000000000000000000000000066666
            6606600000000000000000000006666666060000000000000000000000066666
            6600000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000}
          Layout = blGlyphTop
        end
        object cmdRegedit: TBitBtn
          Left = 424
          Top = 28
          Width = 65
          Height = 57
          BiDiMode = bdLeftToRight
          Caption = '&Regedit'
          ParentBiDiMode = False
          TabOrder = 3
          OnClick = cmdRegeditClick
          Glyph.Data = {
            76020000424D7602000000000000760000002800000020000000200000000100
            0400000000000002000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            000000000000000000007EFEF6FEFE6EFEF600000000000000007FEFE6EFEF6F
            EFE660000000000000007EFEF6FEFE6EFEF660000000000000007FEFE6EFEF6F
            EFE6606000000000000076666666660FFFF660600000000000007FEFE6EFEF60
            EFEF60606000000000007EFEF6FEFE66000000606000000000007FEFE6EFEF66
            066666006000000000007EFEF6FEFE660666F660600000000000766660FFFF66
            066FE6600000000000007EFEF6066EF606FEF6606000000000007FEFE6600000
            0FFFF6606000000000007EFEF660666660FEFE606000000000007FEFE660666F
            6600000060F6600000007FFFF66066FE660666660FEF6600000007EFEF606FEF
            660666E6FEFEF660000000766660FFFF66066EF66FEF660000000007EFEF6FEF
            E606EFE660F660000000000076666666660FFFF6607770000000000007EFEF6F
            EFE6EFEF60000000000000000077777777777777770000000000000000000000
            0000000000000070000000000000000000000000000007F66000000000000000
            0000076000007FEF6600000000000000000076660007FEFEF660000000000000
            000766F660007FEF660000000000000000076FEF600007F66000000000000000
            0007FEFEF0000077700000000000000000007FEF000000000000000000000000
            000007F000000000000000000000000000000070000000000000}
          Layout = blGlyphTop
        end
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 123
        Width = 561
        Height = 169
        Caption = ' About '
        TabOrder = 1
        object Label13: TLabel
          Left = 19
          Top = 38
          Width = 221
          Height = 37
          Caption = 'Startup Config'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -32
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label14: TLabel
          Left = 20
          Top = 24
          Width = 72
          Height = 20
          Caption = 'Windows'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label15: TLabel
          Left = 21
          Top = 77
          Width = 140
          Height = 13
          Caption = '(C) 2003, PSMKorea Co., Ltd.'
        end
        object Label16: TLabel
          Left = 21
          Top = 92
          Width = 131
          Height = 13
          Caption = 'http://winsockfirewall.sf.net'
        end
        object Image1: TImage
          Left = 22
          Top = 108
          Width = 104
          Height = 46
          AutoSize = True
          Picture.Data = {
            0A544A504547496D616765B4060000FFD8FFE000104A46494600010101006000
            600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
            0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
            3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
            3232323232323232323232323232323232323232323232323232323232323232
            32323232323232323232323232FFC0001108002E006803012200021101031101