object Form1: TForm1 Left = 182 Top = 128 BorderStyle = bsSingle Caption = 'PPV' ClientHeight = 423 ClientWidth = 563 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 76 Width = 96 Height = 16 Caption = 'PID Info Viewer' Font.Color = clRed Font.Height = -13 Font.Name = 'Lucida Sans Unicode' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 8 Top = 100 Width = 18 Height = 13 Caption = 'PID' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 382 Top = 100 Width = 98 Height = 13 Caption = 'Window Class Name' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 192 Top = 100 Width = 90 Height = 13 Caption = 'Caption of Window' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TBevel Left = 320 Top = 0 Width = 5 Height = 1 end object Bevel1: TBevel Left = 0 Top = 0 Width = 563 Height = 9 Align = alTop Shape = bsTopLine end object GroupBox1: TGroupBox Left = 432 Top = 8 Width = 121 Height = 61 Caption = 'Pid Info Color' TabOrder = 0 object RadioButton1: TRadioButton Left = 8 Top = 16 Width = 57 Height = 17 Caption = 'Re&d' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = RadioButton1Click end object RadioButton2: TRadioButton Left = 8 Top = 32 Width = 57 Height = 25 Caption = '&Green' Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = RadioButton1Click end object RadioButton3: TRadioButton Left = 64 Top = 16 Width = 49 Height = 17 Caption = '&Blue' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = RadioButton1Click end object RadioButton4: TRadioButton Left = 64 Top = 36 Width = 49 Height = 17 Caption = 'B&lack' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = RadioButton1Click end end object Panel1: TPanel Left = 0 Top = 0 Width = 321 Height = 69 BevelInner = bvLowered BevelWidth = 2 BorderStyle = bsSingle TabOrder = 3 object SpeedButton1: TSpeedButton Left = 8 Top = 32 Width = 25 Height = 25 Hint = 'Exit Application' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFCFFFFFFFFFFFCFFFFCFFFFFFFFFCFFFFFFCFFFFFFFCFFFFFFFFCFFFFFCF FFFFFFFFFCFFFCFFFFFFFFFFFFCFCFFFFFFFFFFFFFFCFFFFFFFFFFFFFFFCCFFF FFFFFFFFFFCFFCFFFFFFFFFFFCFFFFCFFFFFFFFFCFFFFFFCFFFFFFFCFFFFFFFF CFFFFFCFFFFFFFFFFCFFFCFFFFFFFFFFFFCFFFFFFFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 56 Top = 32 Width = 25 Height = 25 Hint = 'About PPV' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999 9999999000000000099999900000000009999999990000999999999999900999 9999999999900999999999999990099999999999999009999999999999900999 9999999999900999999999999990099999999999999009999999999999000099 9999999000000000099999900000000009999999999999999999} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 32 Top = 32 Width = 25 Height = 25 Hint = 'Clear PID Info Viewer' Enabled = False ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 8 Top = 8 Width = 25 Height = 25 Hint = 'List Processes' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F9FFFFFFFFFF FFFFF9FFFFFFFFFFFFFFF9FFFFFFFFFFFFFFF9F99FFF9FFF9999F99FF9FF9FF9 FFF9F9FFF9FF9FF9FFF9F9FFF9FF9FF9FFF9F9FFF9FF9FF9FFF9F99FF9FF9FF9 FF99F9F99FFF9FFF99F9FFFFFFFFFFFFFFF9FFFFFFFFFFFFFFF9FFFFFFFF9FFF FFF9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object Image1: TImage Left = 40 Top = 8 Width = 33 Height = 17 Picture.Data = {} end end object StatusBar1: TStatusBar Left = 0 Top = 398 Width = 563 Height = 25 Panels = <> SimplePanel = True end object ListBox1: TListBox Left = 8 Top = 112 Width = 545 Height = 265 Enabled = False Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 5 TabWidth = 125 OnClick = ListBox1Click end object Button1: TButton Left = 196 Top = 32 Width = 97 Height = 25 Caption = ' &Kill Selected PID' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 196 Top = 8 Width = 97 Height = 25 Caption = '&Refresh PIDs' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button2Click end object MainMenu1: TMainMenu Left = 384 Top = 24 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 = 344 Top = 24 end end