sysinfodemomain.dfm

East make Tray Icon in delphi

object MainForm: TMainForm
  Left = 382
  Top = 187
  Width = 484
  Height = 459
  Caption = 'JCL SysInfo demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pageSysInfo: TPageControl
    Left = 4
    Top = 4
    Width = 468
    Height = 389
    ActivePage = tabSystemFolders
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object tabSystemFolders: TTabSheet
      Caption = 'System Folders'
      object Label1: TLabel
        Left = 12
        Top = 16
        Width = 68
        Height = 13
        Caption = 'Common Files:'
      end
      object Label2: TLabel
        Left = 12
        Top = 40
        Width = 69
        Height = 13
        Caption = 'Current Folder:'
      end
      object Label3: TLabel
        Left = 12
        Top = 64
        Width = 66
        Height = 13
        Caption = 'Program Files:'
      end
      object Label4: TLabel
        Left = 12
        Top = 88
        Width = 79
        Height = 13
        Caption = 'Windows Folder:'
      end
      object Label5: TLabel
        Left = 12
        Top = 112
        Width = 69
        Height = 13
        Caption = 'System Folder:'
      end
      object Label6: TLabel
        Left = 12
        Top = 136
        Width = 62
        Height = 13
        Caption = 'Temp Folder:'
      end
      object Label20: TLabel
        Left = 12
        Top = 160
        Width = 61
        Height = 13
        Caption = 'Fonts Folder:'
      end
      object Label26: TLabel
        Left = 12
        Top = 184
        Width = 105
        Height = 13
        Caption = 'Internet Cache Folder:'
      end
      object Label27: TLabel
        Left = 12
        Top = 208
        Width = 73
        Height = 13
        Caption = 'Cookies Folder:'
      end
      object Label28: TLabel
        Left = 12
        Top = 232
        Width = 67
        Height = 13
        Caption = 'History Folder:'
      end
      object edtCommonFiles: TEdit
        Left = 124
        Top = 12
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
      object edtCurrentFolder: TEdit
        Left = 124
        Top = 36
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object edtProgramFiles: TEdit
        Left = 124
        Top = 60
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object edtWindowsFolder: TEdit
        Left = 124
        Top = 84
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
      object edtSystemFolder: TEdit
        Left = 124
        Top = 108
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 4
      end
      object edtTempFolder: TEdit
        Left = 124
        Top = 132
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 5
      end
      object edtFontsFolder: TEdit
        Left = 124
        Top = 156
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 6
      end
      object edtInternetCacheFolder: TEdit
        Left = 124
        Top = 180
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 7
      end
      object edtCookiesFolder: TEdit
        Left = 124
        Top = 204
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 8
      end
      object edtHistoryFolder: TEdit
        Left = 124
        Top = 228
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 9
      end
    end
    object tabCommonDirectories: TTabSheet
      Caption = 'Common Directories'
      ImageIndex = 1
      object Label30: TLabel
        Left = 12
        Top = 16
        Width = 127
        Height = 13
        Caption = 'Common Startmenu Folder:'
      end
      object Label22: TLabel
        Left = 12
        Top = 88
        Width = 123
        Height = 13
        Caption = 'Common Programs Folder:'
      end
      object Label23: TLabel
        Left = 12
        Top = 112
        Width = 132
        Height = 13
        Caption = 'Common Desktop Directory:'
      end
      object Label11: TLabel
        Left = 12
        Top = 40
        Width = 122
        Height = 13
        Caption = 'Common Favorites Folder:'
      end
      object Label15: TLabel
        Left = 12
        Top = 64
        Width = 113
        Height = 13
        Caption = 'Common Startup Folder:'
      end
      object edtCommonStartmenuFolder: TEdit
        Left = 152
        Top = 12
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
      object edtCommonProgramsFolder: TEdit
        Left = 152
        Top = 84
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object edtCommonDesktopDirectory: TEdit
        Left = 152
        Top = 108
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object edtCommonFavoritesFolder: TEdit
        Left = 152
        Top = 36
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
      object edtCommonStartupFolder: TEdit
        Left = 152
        Top = 60
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 4
      end
    end
    object tabCurrentUser: TTabSheet
      Caption = 'Current User Profile'
      ImageIndex = 2
      object Label7: TLabel
        Left = 12
        Top = 16
        Width = 75
        Height = 13
        Caption = 'Desktop Folder:'
      end
      object Label9: TLabel
        Left = 12
        Top = 40
        Width = 79
        Height = 13
        Caption = 'Programs Folder:'
      end
      object Label12: TLabel
        Left = 12
        Top = 64
        Width = 76
        Height = 13
        Caption = 'Personal Folder:'
      end
      object Label13: TLabel
        Left = 12
        Top = 88
        Width = 78
        Height = 13
        Caption = 'Favorites Folder:'
      end
      object Label14: TLabel
        Left = 12
        Top = 112
        Width = 69
        Height = 13
        Caption = 'Startup Folder:'
      end
      object Label8: TLabel
        Left = 12
        Top = 136
        Width = 62
        Height = 13
        Caption = 'Recent Files:'
      end
      object Label16: TLabel
        Left = 12
        Top = 160
        Width = 73
        Height = 13
        Caption = 'SendTo Folder:'
      end
      object Label17: TLabel
        Left = 12
        Top = 184
        Width = 86
        Height = 13
        Caption = 'Start menu Folder:'
      end
      object Label24: TLabel
        Left = 12
        Top = 208
        Width = 113
        Height = 13
        Caption = 'Application Data Folder:'
      end
      object Label25: TLabel
        Left = 12
        Top = 232
        Width = 80
        Height = 13
        Caption = 'Printhood Folder:'
      end
      object Label10: TLabel
        Left = 12
        Top = 256
        Width = 88
        Height = 13
        Caption = 'Desktop Directory:'
      end
      object Label18: TLabel
        Left = 12
        Top = 280
        Width = 76
        Height = 13
        Caption = 'Nethood Folder:'
      end
      object Label21: TLabel
        Left = 12
        Top = 304
        Width = 84
        Height = 13
        Caption = 'Templates Folder:'
      end
      object edtDesktopFolder: TEdit
        Left = 132
        Top = 12
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
      object edtProgramsFolder: TEdit
        Left = 132
        Top = 36
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object edtPersonalFolder: TEdit
        Left = 132
        Top = 60
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object edtFavoritesFolder: TEdit
        Left = 132
        Top = 84
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
      object edtStartupFolder: TEdit
        Left = 132
        Top = 108
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 4
      end
      object edtRecentFilesFolder: TEdit
        Left = 132
        Top = 132
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 5
      end
      object edtSendToFolder: TEdit
        Left = 132
        Top = 156
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 6
      end
      object edtStartMenuFolder: TEdit
        Left = 132
        Top = 180
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 7
      end
      object edtAppdataFolder: TEdit
        Left = 132
        Top = 204
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 8
      end
      object edtPrintHoodFolder: TEdit
        Left = 132
        Top = 228
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 9
      end
      object edtDesktopDirectory: TEdit
        Left = 132
        Top = 252
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 10
      end
      object edtNethoodFolder: TEdit
        Left = 132
        Top = 276
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 11
      end
      object edtTemplatesFolder: TEdit
        Left = 132
        Top = 300
        Width = 277
        Height = 21
        ReadOnly = True
        TabOrder = 12
      end
    end
    object tabAPM: TTabSheet
      Caption = 'APM'
      ImageIndex = 3
      object Label19: TLabel
        Left = 16
        Top = 16
        Width = 108
        Height = 13
        Caption = 'Battery Life Time (sec):'
      end
      object Label29: TLabel
        Left = 16
        Top = 40
        Width = 127
        Height = 13
        Caption = 'Battery Full Life Time (sec):'
      end
      object Label31: TLabel
        Left = 16
        Top = 64
        Width = 96
        Height = 13
        Caption = 'Battery Life Percent:'
      end
      object Label32: TLabel
        Left = 16
        Top = 88
        Width = 92
        Height = 13
        Caption = 'Battery Line Status:'
      end
      object Label33: TLabel
        Left = 16
        Top = 112
        Width = 59
        Height = 13
        Caption = 'Battery Flag:'
      end
      object lblAPMPlatforms: TLabel
        Left = 16
        Top = 148
        Width = 289
        Height = 13
        Caption = 'APM is only available on Windows 95 / 98 / Me / 2000/ XP !'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False