object Form1: TForm1 Left = 193 Top = 103 BorderStyle = bsSingle Caption = 'Process Viewer' ClientHeight = 423 ClientWidth = 563 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Default' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 8 Top = 36 Width = 18 Height = 13 Caption = 'PID' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 382 Top = 36 Width = 98 Height = 13 Caption = 'Window Class Name' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 192 Top = 36 Width = 90 Height = 13 Caption = 'Caption of Window' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False end object TBevel Left = 320 Top = 0 Width = 5 Height = 1 end object Bevel1: TBevel Left = 0 Top = 27 Width = 563 Height = 9 Align = alTop Shape = bsTopLine end object GroupBox1: TGroupBox Left = 8 Top = 349 Width = 292 Height = 40 Caption = 'Pid Info Color' TabOrder = 0 object RadioButton1: TRadioButton Left = 8 Top = 16 Width = 57 Height = 17 Caption = 'Re&d' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = RadioButton1Click end object RadioButton2: TRadioButton Left = 80 Top = 16 Width = 57 Height = 17 Caption = '&Green' Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = RadioButton1Click end object RadioButton3: TRadioButton Left = 152 Top = 16 Width = 49 Height = 17 Caption = '&Blue' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False TabOrder = 2 TabStop = True OnClick = RadioButton1Click end object RadioButton4: TRadioButton Left = 224 Top = 16 Width = 49 Height = 17 Caption = 'B&lack' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Default' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = RadioButton1Click end end object Panel1: TPanel Left = 0 Top = 0 Width = 563 Height = 27 Align = alTop TabOrder = 1 object SpeedButton3: TSpeedButton Left = 69 Top = 1 Width = 25 Height = 25 Hint = 'Clear PID Info Viewer' Enabled = False Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700000000000000000007777700008FFFFFFFFFFFFF07777700008FFF FFFFFFFFFF07777700008FF7777777731117777700008FFFFFFFFF39DD117777 00008FFFFFFFFF9D9DD1177700008FF77777FFD9F9DD107700008FFFFFFFFF9D FD9D020700008FFFFFFFFFF9DFD0202000008FF77777777F9D0B220200008FFF FFFFFFFFF0BBB22000008FFF0FFFFFFFFF0BBB2200008FF0B0FFFFFFFF00BBB2 00008F0B8B0FFFFFFF070BBB00008FF0B0FFFFFFFF0770BB00008FFF0FFFFFFF FF07770B00008FFFFFFFFFFFFF07777000008888888888888807777700007777 77777777777777770000} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 1 Top = 1 Width = 25 Height = 25 Hint = 'List Processes' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777800087 77800087000077777808F7087808F70800007777708FFF70708FFF7000007777 70FFFFF070FFFFF000007807708FFF70008FFF70000070770008F8000808F808 0000707707800087078000870000780087777777800877770000777770007777 7777777700007770600600777077777700007700EEFE60777807777700007700 006F0007770077770000770FFF0EF607770B077700007766006F00070000B077 00007776EEEE60770BBBBB07000077766E06007770FB00000000777776667777 70BFB0770000777777777777770BFB070000777777777777770FBFB000007777 77777777778000000000} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object Image1: TImage Left = 31 Top = 5 Width = 33 Height = 17 Picture.Data = {} end object SpeedButton2: TSpeedButton Left = 94 Top = 1 Width = 25 Height = 25 Hint = 'Refresh PIDs' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700000000000000000007777700008FFFFFFFFFFFFF07777700008FFF FFFFFFFFFF07777700008FF777FF7F8FFF07777700008FFFFFF8FF8FFF077777 00008FFFFFFF8F8FF807777700008FF77FFFFFFF8F07777700008FFFFF88FF0F FF07777700008FFFFFFFF0F0FF07777700008FF77FF8F8FF0F07777700008FFF FF8FFF8FE007777700008FFF0FFFFFF8EE07777700008FF0B0FFF8FF8EE07777 00008F0B8B0F8FFFF8EE077700008FF0B0FFFFFFFF8EE07700008FFF0FFFFFFF FF08EE0700008FFFFFFFFFFFFF078EE00000888888888888880778E000007777 77777777777777870000} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton1: TSpeedButton Left = 119 Top = 1 Width = 25 Height = 25 Hint = 'Kill Selected PID' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777000077700077777777777777000070600600778888887777000000EE FE60700000087777000000006F0000FFF708877700000FFF0EF607FFFF708777 000066006F000FFFFFF08877000076EEEE60FFFFFFFF08870000766E0600FFFF 7FFFF087000077766678FFFFF77FF088000077777770F8FFFFF7FF0800007799 9770F0F8F8F8FF08000077997770F0F0F0F0FF08000077979770F0F0F0F00F08 000097777970F0F0F0F08087000097777970F0F0F0F0777700007979777800F0 F0F0777700007799777780F0F00877770000799977777800F087777700007777 77777778087777770000} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end end object StatusBar1: TStatusBar Left = 0 Top = 398 Width = 563 Height = 25 Panels = <> SimplePanel = True SizeGrip = False end object ListBox1: TListBox Left = 8 Top = 56 Width = 545 Height = 289 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Default' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 3 TabWidth = 125 OnClick = ListBox1Click end object MainMenu1: TMainMenu Left = 524 Top = 358 object File1: TMenuItem Caption = '&File' ShortCut = 0 object New1: TMenuItem Caption = '&List Pids...' ShortCut = 0 OnClick = New1Click end object Refresh1: TMenuItem Caption = '&Refresh List' ShortCut = 0 OnClick = Refresh1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object About1: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = About1Click end end end object Timer1: TTimer Interval = 200 OnTimer = Timer1Timer Left = 493 Top = 358 end end