Windows-XP-Task-Monitor/Main.lfm at main · ElWolkie/Windows-XP-Task-Monitor · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
object Form2: TForm2
  Left = 83
  Height = 590
  Top = 34
  Width = 982
  Caption = 'Administrador de Tareas'
  ClientHeight = 590
  ClientWidth = 982
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  LCLVersion = '3.2.0.0'
  object TaskLv: TListView
    Left = 8
    Height = 576
    Top = 8
    Width = 968
    Color = clWhite
    Columns = <
      item
        Caption = 'Nombre del Proceso'
        Width = 160
      end
      item
        Caption = 'Ruta del Proceso'
        Width = 160
      end
      item
        Caption = 'ID del Proceso'
        Width = 130
      end
      item
        Caption = 'CPU'
        Width = 85
      end
      item
        Caption = 'Memoria'
        Width = 120
      end
      item
        Caption = 'Estado del Proceso'
        Width = 160
      end
      item
        Caption = 'Prioridad'
        Width = 150
      end>
    Font.CharSet = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Lucida Sans'
    Font.Pitch = fpVariable
    Font.Quality = fqDraft
    GridLines = True
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    ViewStyle = vsReport
  end
  object PopupMenu1: TPopupMenu
    Left = 200
    Top = 192
    object ListTasks1: TMenuItem
      Caption = 'Lista de Tareas'
      ShortCut = 112
      OnClick = ListTasks1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object EndProcess1: TMenuItem
      Caption = 'Finalizar Proceso'
      ShortCut = 115
      OnClick = EndProcess1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object OpenApp: TMenuItem
      Caption = 'Abrir aplicación'
      OnClick = OpenAppClick
    end
    object ChangePriority: TMenuItem
      Caption = 'Cambiar Prioridad'
      object RealTime: TMenuItem
        Caption = 'Tiempo Real'
        OnClick = RealTimeClick
      end
      object Highest: TMenuItem
        Caption = 'Alta'
        OnClick = HighestClick
      end
      object AboveNormal: TMenuItem
        Caption = 'Por encima de lo normal'
        OnClick = AboveNormalClick
      end
      object Normal: TMenuItem
        Caption = 'Normal'
        OnClick = NormalClick
      end
      object BelowNormal: TMenuItem
        Caption = 'Por debajo de lo normal'
        OnClick = BelowNormalClick
      end
      object Lowest: TMenuItem
        Caption = 'Baja'
        OnClick = LowestClick
      end
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Autores: TMenuItem
      Caption = 'Autores'
      OnClick = AutoresClick
    end
  end
  object Timer1: TTimer
    Interval = 5000
    OnTimer = Timer1Timer
    Left = 408
    Top = 192
  end
  object OpenAppDialog: TOpenDialog
    Left = 312
    Top = 160
  end
end