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 Visible = False end object edtBatteryLifeTime: TEdit Left = 152 Top = 12 Width = 61 Height = 21 Color = clInactiveCaptionText ReadOnly = True TabOrder = 0 end object edtBatteryFullLifeTime: TEdit Left = 152 Top = 36 Width = 61 Height = 21 Color = clInactiveCaptionText ReadOnly = True TabOrder = 1 end object edtBatteryLineStatus: TEdit Left = 152 Top = 84 Width = 161 Height = 21 Color = clInactiveCaptionText ReadOnly = True TabOrder = 2 end object edtBatteryFlag: TEdit Left = 152 Top = 108 Width = 161 Height = 21 Color = clInactiveCaptionText ReadOnly = True TabOrder = 3 end object pgrsBatteryLife: TProgressBar Left = 152 Top = 62 Width = 273 Height = 16 Min = 0 Max = 100 TabOrder = 4 end end object tabMemory: TTabSheet Caption = 'Memory' ImageIndex = 4 object Label34: TLabel Left = 4 Top = 16 Width = 120 Height = 13 Caption = 'Max. application address:' end object Label35: TLabel Left = 4 Top = 40 Width = 117 Height = 13 Caption = 'Min. application address:' end object Label36: TLabel Left = 4 Top = 64 Width = 67 Height = 13 Caption = 'Memory Load:' end object Label37: TLabel Left = 4 Top = 88 Width = 67 Height = 13 Caption = 'Swap file size:' end object Label38: TLabel Left = 4 Top = 112 Width = 78 Height = 13 Caption = 'Swap file usage:' end object Label39: TLabel Left = 4 Top = 136 Width = 107 Height = 13 Caption = 'Total physical memory:' end object Label40: TLabel Left = 4 Top = 160 Width = 109 Height = 13 Caption = 'Avail. physical memory:' end object Label41: TLabel Left = 4 Top = 184 Width = 97 Height = 13 Caption = 'Total virtual memory:' end object Label42: TLabel Left = 4 Top = 208 Width = 99 Height = 13 Caption = 'Avail. virtual memory:' end object Label43: TLabel Left = 4 Top = 232 Width = 109 Height = 13 Caption = 'Total page file memory:' end object Label44: TLabel Left = 4 Top = 256 Width = 111 Height = 13 Caption = 'Avail. page file memory:' end object Bevel1: TBevel Left = 0 Top = 280 Width = 457 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object Label60: TLabel Left = 4 Top = 288 Width = 183 Height = 13 Caption = 'Windows 95/98/Me system resources:' end object LabelSysResources: TLabel Left = 4 Top = 312 Width = 94 Height = 13 Caption = 'LabelSysResources' end object edtMaxAppAddress: TEdit Left = 136 Top = 12 Width = 121 Height = 21 TabOrder = 0 end object edtMinAppAddress: TEdit Left = 136 Top = 36 Width = 121 Height = 21 TabOrder = 1 end object pgrsMemLoad: TProgressBar Left = 136 Top = 62 Width = 150 Height = 16 Min = 0 Max = 100 TabOrder = 2 end object edtSwapFileSize: TEdit Left = 136 Top = 84 Width = 121 Height = 21 TabOrder = 3 end object pgrsSwapFileUsage: TProgressBar Left = 136 Top = 110 Width = 150 Height = 16 Min = 0 Max = 100 TabOrder = 4 end object edtPhysicalTotal: TEdit Left = 136 Top = 132 Width = 121 Height = 21 TabOrder = 5 end object edtPhysicalFree: TEdit Left = 136 Top = 156 Width = 121 Height = 21 TabOrder = 6 end object edtVirtualTotal: TEdit Left = 136 Top = 180 Width = 121 Height = 21 TabOrder = 7 end object edtVirtualFree: TEdit Left = 136 Top = 204 Width = 121 Height = 21 TabOrder = 8 end object edtPageFileTotal: TEdit Left = 136 Top = 228 Width = 121 Height = 21 TabOrder = 9 end object edtPageFileFree: TEdit Left = 136 Top = 252 Width = 121 Height = 21 TabOrder = 10 end end object tabKeyboard: TTabSheet Caption = 'Keyboard' ImageIndex = 5 object Label45: TLabel Left = 4 Top = 16 Width = 78 Height = 13 Caption = 'Num Lock state:' end object Label46: TLabel Left = 4 Top = 40 Width = 80 Height = 13 Caption = 'Caps Lock state:' end object Label47: TLabel Left = 4 Top = 64 Width = 82 Height = 13 Caption = 'Scroll Lock state:' end object edtNumLockState: TEdit Left = 97 Top = 12 Width = 121 Height = 21 TabOrder = 0 end object edtCapsLockState: TEdit Left = 97 Top = 36 Width = 121 Height = 21 TabOrder = 1 end object edtScrollLockState: TEdit Left = 97 Top = 60 Width = 121 Height = 21 TabOrder = 2 end end object tabIdentification: TTabSheet Caption = 'Identification' ImageIndex = 6 object grpBIOS: TGroupBox Left = 8 Top = 8 Width = 449 Height = 117 Caption = ' BIOS ' TabOrder = 0 object Label48: TLabel Left = 18 Top = 18 Width = 31 Height = 13 Caption = 'Name:' end object Label49: TLabel Left = 18 Top = 42 Width = 47 Height = 13 Caption = 'Copyright:' end object Label50: TLabel Left = 18 Top = 66 Width = 69 Height = 13 Caption = 'Extended Info:' end object Label51: TLabel Left = 18 Top = 90 Width = 26 Height = 13 Caption = 'Date:' end object edtBIOSName: TEdit Left = 93 Top = 14 Width = 200 Height = 21 TabOrder = 0 end object edtBIOSCopyright: TEdit Left = 93 Top = 38 Width = 200 Height = 21 TabOrder = 1 end object edtBIOSExtendedInfo: TEdit Left = 93 Top = 62 Width = 121 Height = 21 TabOrder = 2 end object edtBIOSDate: TEdit Left = 93 Top = 86 Width = 96 Height = 21 TabOrder = 3 end end object grpNetwork: TGroupBox Left = 8 Top = 132 Width = 449 Height = 117 Caption = ' Network ' TabOrder = 1 object Label52: TLabel Left = 18 Top = 18 Width = 54 Height = 13 Caption = 'IP Address:' end object Label53: TLabel Left = 18 Top = 42 Width = 67 Height = 13 Caption = 'MAC Address:' end object Label54: TLabel Left = 18 Top = 90 Width = 39 Height = 13 Caption = 'Domain:' end object edtIPAddress: TEdit Left = 93 Top = 14 Width = 200 Height = 21 TabOrder = 0 end object lbMACAddresses: TListBox Left = 92 Top = 40 Width = 201 Height = 42 ItemHeight = 13 TabOrder = 1 end object edtDomain: TEdit Left = 93 Top = 86 Width = 200 Height = 21 TabOrder = 2 end end object GroupBox1: TGroupBox Left = 8 Top = 256 Width = 449 Height = 97 Caption = ' User ' TabOrder = 2 object Label56: TLabel Left = 18 Top = 18 Width = 31 Height = 13 Caption = 'Name:' end object Label57: TLabel Left = 18 Top = 42 Width = 73 Height = 13 Caption = 'Reg. Company:' end object Label58: TLabel Left = 18 Top = 66 Width = 60 Height = 13 Caption = 'Reg. Owner:' end object edtUserName: TEdit Left = 93 Top = 14 Width = 200 Height = 21 TabOrder = 0 end object edtRegisteredCompany: TEdit Left = 93 Top = 38 Width = 200 Height = 21 TabOrder = 1 end object edtRegisteredOwner: TEdit Left = 93 Top = 62 Width = 200 Height = 21 TabOrder = 2 end end end object tabProcesses: TTabSheet Caption = 'Processes' ImageIndex = 7 object Label55: TLabel Left = 8 Top = 8 Width = 95 Height = 13 Caption = 'Running Processes:' end object Label59: TLabel Left = 8 Top = 208 Width = 75 Height = 13 Caption = 'Running Tasks:' end object lbProcesses: TListBox Left = 8 Top = 24 Width = 445 Height = 169 ItemHeight = 13 TabOrder = 0 end object TasksListBox: TListBox Left = 8 Top = 224 Width = 445 Height = 121 ItemHeight = 13 TabOrder = 1 end end end object btnUpdate: TButton Left = 396 Top = 400 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Update' TabOrder = 1 OnClick = btnUpdateClick end object btnOk: TButton Left = 316 Top = 400 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&OK' Default = True TabOrder = 2 OnClick = btnOkClick end end