home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sysinfo / SYSINFO5.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-26  |  18.8 KB  |  568 lines
  1. VERSION 5.00
  2. Object = "{6E3BBBCF-5A0D-11D1-B659-0060976C699F}#1.1#0"; "MSysInfo.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Mabry System Information Control Sample"
  5.    ClientHeight    =   6390
  6.    ClientLeft      =   1125
  7.    ClientTop       =   1485
  8.    ClientWidth     =   10680
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   6390
  13.    ScaleWidth      =   10680
  14.    Begin VB.Frame Frame4 
  15.       Caption         =   "Files:"
  16.       Height          =   6255
  17.       Left            =   6360
  18.       TabIndex        =   38
  19.       Top             =   0
  20.       Width           =   4215
  21.       Begin VB.FileListBox File1 
  22.          Height          =   1845
  23.          Hidden          =   -1  'True
  24.          Left            =   240
  25.          System          =   -1  'True
  26.          TabIndex        =   40
  27.          Top             =   2040
  28.          Width           =   3735
  29.       End
  30.       Begin VB.DirListBox Dir1 
  31.          Height          =   1605
  32.          Left            =   240
  33.          TabIndex        =   39
  34.          Top             =   360
  35.          Width           =   3735
  36.       End
  37.       Begin VB.Label lblIsSystem 
  38.          Height          =   255
  39.          Left            =   1200
  40.          TabIndex        =   56
  41.          Top             =   5880
  42.          Width           =   855
  43.       End
  44.       Begin VB.Label lblReadOnly 
  45.          Height          =   255
  46.          Left            =   1200
  47.          TabIndex        =   55
  48.          Top             =   5640
  49.          Width           =   855
  50.       End
  51.       Begin VB.Label lblArchived 
  52.          Height          =   255
  53.          Left            =   1200
  54.          TabIndex        =   54
  55.          Top             =   5400
  56.          Width           =   975
  57.       End
  58.       Begin VB.Label lblHidden 
  59.          Height          =   255
  60.          Left            =   1200
  61.          TabIndex        =   53
  62.          Top             =   5160
  63.          Width           =   855
  64.       End
  65.       Begin VB.Label lblSize 
  66.          Height          =   255
  67.          Left            =   1200
  68.          TabIndex        =   52
  69.          Top             =   4920
  70.          Width           =   1815
  71.       End
  72.       Begin VB.Label lblTime 
  73.          Height          =   255
  74.          Left            =   1200
  75.          TabIndex        =   51
  76.          Top             =   4680
  77.          Width           =   1815
  78.       End
  79.       Begin VB.Label lblDate 
  80.          Height          =   255
  81.          Left            =   1200
  82.          TabIndex        =   50
  83.          Top             =   4440
  84.          Width           =   1455
  85.       End
  86.       Begin VB.Label lblVersion 
  87.          Height          =   255
  88.          Left            =   1200
  89.          TabIndex        =   49
  90.          Top             =   4200
  91.          Width           =   2295
  92.       End
  93.       Begin VB.Label Label25 
  94.          Alignment       =   1  'Right Justify
  95.          Caption         =   "IsSystem:"
  96.          Height          =   255
  97.          Left            =   120
  98.          TabIndex        =   48
  99.          Top             =   5880
  100.          Width           =   975
  101.       End
  102.       Begin VB.Label Label24 
  103.          Alignment       =   1  'Right Justify
  104.          Caption         =   "IsReadOnly:"
  105.          Height          =   255
  106.          Left            =   120
  107.          TabIndex        =   47
  108.          Top             =   5640
  109.          Width           =   975
  110.       End
  111.       Begin VB.Label Label23 
  112.          Alignment       =   1  'Right Justify
  113.          Caption         =   "IsArchived:"
  114.          Height          =   255
  115.          Left            =   120
  116.          TabIndex        =   46
  117.          Top             =   5400
  118.          Width           =   975
  119.       End
  120.       Begin VB.Label Label22 
  121.          Alignment       =   1  'Right Justify
  122.          Caption         =   "IsHidden:"
  123.          Height          =   255
  124.          Left            =   120
  125.          TabIndex        =   45
  126.          Top             =   5160
  127.          Width           =   975
  128.       End
  129.       Begin VB.Label Label21 
  130.          Alignment       =   1  'Right Justify
  131.          Caption         =   "Size:"
  132.          Height          =   255
  133.          Left            =   360
  134.          TabIndex        =   44
  135.          Top             =   4920
  136.          Width           =   735
  137.       End
  138.       Begin VB.Label Label20 
  139.          Alignment       =   1  'Right Justify
  140.          Caption         =   "Time:"
  141.          Height          =   255
  142.          Left            =   240
  143.          TabIndex        =   43
  144.          Top             =   4680
  145.          Width           =   855
  146.       End
  147.       Begin VB.Label Label19 
  148.          Alignment       =   1  'Right Justify
  149.          Caption         =   "Date:"
  150.          Height          =   255
  151.          Left            =   240
  152.          TabIndex        =   42
  153.          Top             =   4440
  154.          Width           =   855
  155.       End
  156.       Begin VB.Label Label18 
  157.          Alignment       =   1  'Right Justify
  158.          Caption         =   "Version:"
  159.          Height          =   255
  160.          Left            =   240
  161.          TabIndex        =   41
  162.          Top             =   4200
  163.          Width           =   855
  164.       End
  165.    End
  166.    Begin VB.Frame Frame3 
  167.       Caption         =   "Environment"
  168.       Height          =   1935
  169.       Left            =   120
  170.       TabIndex        =   2
  171.       Top             =   4320
  172.       Width           =   6135
  173.       Begin SystemInfoControl.MSysInfo MSysInfo1 
  174.          Left            =   480
  175.          Top             =   480
  176.          _ExtentX        =   847
  177.          _ExtentY        =   847
  178.       End
  179.       Begin VB.Label lblOS 
  180.          Height          =   255
  181.          Left            =   2160
  182.          TabIndex        =   33
  183.          Top             =   1560
  184.          Width           =   3855
  185.       End
  186.       Begin VB.Label lblProcessorCount 
  187.          Height          =   255
  188.          Left            =   2160
  189.          TabIndex        =   32
  190.          Top             =   1320
  191.          Width           =   3855
  192.       End
  193.       Begin VB.Label lblProcessorType 
  194.          Height          =   255
  195.          Left            =   2160
  196.          TabIndex        =   31
  197.          Top             =   1080
  198.          Width           =   3855
  199.       End
  200.       Begin VB.Label lblTemp 
  201.          Height          =   255
  202.          Left            =   2160
  203.          TabIndex        =   30
  204.          Top             =   720
  205.          Width           =   3855
  206.       End
  207.       Begin VB.Label lblSystem 
  208.          Height          =   255
  209.          Left            =   2160
  210.          TabIndex        =   29
  211.          Top             =   480
  212.          Width           =   3855
  213.       End
  214.       Begin VB.Label lblWindows 
  215.          Height          =   255
  216.          Left            =   2160
  217.          TabIndex        =   28
  218.          Top             =   240
  219.          Width           =   3855
  220.       End
  221.       Begin VB.Label Label15 
  222.          Alignment       =   1  'Right Justify
  223.          Caption         =   "Operating System:"
  224.          Height          =   255
  225.          Left            =   120
  226.          TabIndex        =   17
  227.          Top             =   1560
  228.          Width           =   1935
  229.       End
  230.       Begin VB.Label Label14 
  231.          Alignment       =   1  'Right Justify
  232.          Caption         =   "Processor Count:"
  233.          Height          =   255
  234.          Left            =   120
  235.          TabIndex        =   16
  236.          Top             =   1320
  237.          Width           =   1935
  238.       End
  239.       Begin VB.Label Label13 
  240.          Alignment       =   1  'Right Justify
  241.          Caption         =   "Processor Type:"
  242.          Height          =   255
  243.          Left            =   120
  244.          TabIndex        =   15
  245.          Top             =   1080
  246.          Width           =   1935
  247.       End
  248.       Begin VB.Label Label12 
  249.          Alignment       =   1  'Right Justify
  250.          Caption         =   "Temp:"
  251.          Height          =   255
  252.          Left            =   120
  253.          TabIndex        =   14
  254.          Top             =   720
  255.          Width           =   1935
  256.       End
  257.       Begin VB.Label Label11 
  258.          Alignment       =   1  'Right Justify
  259.          Caption         =   "System:"
  260.          Height          =   255
  261.          Left            =   240
  262.          TabIndex        =   13
  263.          Top             =   480
  264.          Width           =   1815
  265.       End
  266.       Begin VB.Label Label10 
  267.          Alignment       =   1  'Right Justify
  268.          Caption         =   "Windows:"
  269.          Height          =   255
  270.          Left            =   1080
  271.          TabIndex        =   12
  272.          Top             =   240
  273.          Width           =   975
  274.       End
  275.    End
  276.    Begin VB.Frame Frame2 
  277.       Caption         =   "Resources"
  278.       Height          =   3135
  279.       Left            =   120
  280.       TabIndex        =   1
  281.       Top             =   1080
  282.       Width           =   6135
  283.       Begin VB.DriveListBox Drive1 
  284.          Height          =   315
  285.          Left            =   4320
  286.          TabIndex        =   18
  287.          Top             =   360
  288.          Width           =   1695
  289.       End
  290.       Begin VB.Label lblDriveType 
  291.          Height          =   255
  292.          Left            =   2160
  293.          TabIndex        =   37
  294.          Top             =   840
  295.          Width           =   2175
  296.       End
  297.       Begin VB.Label Label17 
  298.          Alignment       =   1  'Right Justify
  299.          Caption         =   "Drive Type:"
  300.          Height          =   255
  301.          Left            =   120
  302.          TabIndex        =   36
  303.          Top             =   840
  304.          Width           =   1935
  305.       End
  306.       Begin VB.Label lblTotalDiskSpace 
  307.          Caption         =   "0 Bytes"
  308.          Height          =   255
  309.          Left            =   2160
  310.          TabIndex        =   35
  311.          Top             =   360
  312.          Width           =   2055
  313.       End
  314.       Begin VB.Label Label16 
  315.          Alignment       =   1  'Right Justify
  316.          Caption         =   "Total Disk Space:"
  317.          Height          =   255
  318.          Left            =   120
  319.          TabIndex        =   34
  320.          Top             =   360
  321.          Width           =   1935
  322.       End
  323.       Begin VB.Label lblAvailablePage 
  324.          Height          =   255
  325.          Left            =   2160
  326.          TabIndex        =   27
  327.          Top             =   2640
  328.          Width           =   3855
  329.       End
  330.       Begin VB.Label lblTotalPage 
  331.          Height          =   255
  332.          Left            =   2160
  333.          TabIndex        =   26
  334.          Top             =   2400
  335.          Width           =   3855
  336.       End
  337.       Begin VB.Label lblAvailableVirtual 
  338.          Height          =   255
  339.          Left            =   2160
  340.          TabIndex        =   25
  341.          Top             =   2040
  342.          Width           =   3855
  343.       End
  344.       Begin VB.Label lblTotalVirtual 
  345.          Height          =   255
  346.          Left            =   2160
  347.          TabIndex        =   24
  348.          Top             =   1800
  349.          Width           =   3855
  350.       End
  351.       Begin VB.Label lblAvailablePhysical 
  352.          Height          =   255
  353.          Left            =   2160
  354.          TabIndex        =   23
  355.          Top             =   1440
  356.          Width           =   3855
  357.       End
  358.       Begin VB.Label lblTotalPhysical 
  359.          Height          =   255
  360.          Left            =   2160
  361.          TabIndex        =   22
  362.          Top             =   1200
  363.          Width           =   3855
  364.       End
  365.       Begin VB.Label lblAvailableDiskSpace 
  366.          Caption         =   "0 Bytes"
  367.          Height          =   255
  368.          Left            =   2160
  369.          TabIndex        =   21
  370.          Top             =   600
  371.          Width           =   2055
  372.       End
  373.       Begin VB.Label Label9 
  374.          Alignment       =   1  'Right Justify
  375.          Caption         =   "Available Page File:"
  376.          Height          =   255
  377.          Left            =   240
  378.          TabIndex        =   11
  379.          Top             =   2640
  380.          Width           =   1815
  381.       End
  382.       Begin VB.Label Label8 
  383.          Alignment       =   1  'Right Justify
  384.          Caption         =   "Total Page File:"
  385.          Height          =   255
  386.          Left            =   120
  387.          TabIndex        =   10
  388.          Top             =   2400
  389.          Width           =   1935
  390.       End
  391.       Begin VB.Label Label7 
  392.          Alignment       =   1  'Right Justify
  393.          Caption         =   "Available Virtual Memory:"
  394.          Height          =   255
  395.          Left            =   120
  396.          TabIndex        =   9
  397.          Top             =   2040
  398.          Width           =   1935
  399.       End
  400.       Begin VB.Label Label6 
  401.          Alignment       =   1  'Right Justify
  402.          Caption         =   "Total Virtual Memory:"
  403.          Height          =   255
  404.          Left            =   120
  405.          TabIndex        =   8
  406.          Top             =   1800
  407.          Width           =   1935
  408.       End
  409.       Begin VB.Label Label5 
  410.          Alignment       =   1  'Right Justify
  411.          Caption         =   "Available Physical Memory:"
  412.          Height          =   255
  413.          Left            =   120
  414.          TabIndex        =   7
  415.          Top             =   1440
  416.          Width           =   1935
  417.       End
  418.       Begin VB.Label Label4 
  419.          Alignment       =   1  'Right Justify
  420.          Caption         =   "Total Physical Memory:"
  421.          Height          =   255
  422.          Left            =   120
  423.          TabIndex        =   6
  424.          Top             =   1200
  425.          Width           =   1935
  426.       End
  427.       Begin VB.Label Label3 
  428.          Alignment       =   1  'Right Justify
  429.          Caption         =   "Available Disk Space:"
  430.          Height          =   255
  431.          Left            =   120
  432.          TabIndex        =   5
  433.          Top             =   600
  434.          Width           =   1935
  435.       End
  436.    End
  437.    Begin VB.Frame Frame1 
  438.       Caption         =   "Names"
  439.       Height          =   975
  440.       Left            =   120
  441.       TabIndex        =   0
  442.       Top             =   0
  443.       Width           =   6135
  444.       Begin VB.Label lblUserName 
  445.          Height          =   255
  446.          Left            =   2160
  447.          TabIndex        =   20
  448.          Top             =   600
  449.          Width           =   3855
  450.       End
  451.       Begin VB.Label lblComputerName 
  452.          Height          =   255
  453.          Left            =   2160
  454.          TabIndex        =   19
  455.          Top             =   360
  456.          Width           =   3855
  457.       End
  458.       Begin VB.Label Label2 
  459.          Alignment       =   1  'Right Justify
  460.          Caption         =   "User Name:"
  461.          Height          =   255
  462.          Left            =   120
  463.          TabIndex        =   4
  464.          Top             =   600
  465.          Width           =   1935
  466.       End
  467.       Begin VB.Label Label1 
  468.          Alignment       =   1  'Right Justify
  469.          Caption         =   "Computer Name:"
  470.          Height          =   255
  471.          Left            =   120
  472.          TabIndex        =   3
  473.          Top             =   360
  474.          Width           =   1935
  475.       End
  476.    End
  477. Attribute VB_Name = "Form1"
  478. Attribute VB_GlobalNameSpace = False
  479. Attribute VB_Creatable = False
  480. Attribute VB_PredeclaredId = True
  481. Attribute VB_Exposed = False
  482. Private Sub Dir1_Change()
  483.     File1.Path = Dir1.Path
  484.     File1.Refresh
  485.     lblVersion.Caption = ""
  486.     lblDate.Caption = ""
  487.     lblTime.Caption = ""
  488.     lblSize.Caption = ""
  489.     lblHidden.Caption = ""
  490.     lblArchived.Caption = ""
  491.     lblReadOnly.Caption = ""
  492.     lblIsSystem.Caption = ""
  493. End Sub
  494. Private Sub Drive1_Change()
  495.     Dir1.Path = UCase(Left(Drive1.Drive, 1)) + ":\"
  496.     Dir1.Refresh
  497.     MSysInfo1.Drive = Drive1.Drive
  498.     lblTotalDiskSpace.Caption = Format$(MSysInfo1.TotalDiskSpace, "#,###,##0") & " Bytes"
  499.     lblAvailableDiskSpace.Caption = Format$(MSysInfo1.AvailableDiskSpace, "#,###,##0") & " Bytes"
  500.     Select Case MSysInfo1.DriveType
  501.         Case sysFIXED
  502.             lblDriveType.Caption = "Fixed"
  503.         Case sysNETWORK
  504.             lblDriveType.Caption = "Network"
  505.         Case sysCDROM
  506.             lblDriveType.Caption = "CD-ROM"
  507.         Case sysREMOVABLE
  508.             lblDriveType.Caption = "Removable"
  509.         Case sysRAMDISK
  510.             lblDriveType.Caption = "RAM Disk"
  511.         Case Else
  512.             lblDriveType.Caption = "Unavailable"
  513.     End Select
  514. End Sub
  515. Private Sub File1_Click()
  516.     Dim strPath As String
  517.     If Not Right$(Dir1.Path, 1) = "\" Then
  518.         strPath = Dir1.Path & "\"
  519.     Else
  520.         strPath = Dir1.Path
  521.     End If
  522.     MSysInfo1.filename = strPath & File1.filename
  523.     lblVersion.Caption = MSysInfo1.FileVersion
  524.     lblDate.Caption = MSysInfo1.FileDate
  525.     lblTime.Caption = MSysInfo1.FileTime
  526.     lblSize.Caption = Format$(MSysInfo1.FileSize, "###,###,###,##0") & " bytes"
  527.     lblHidden.Caption = CStr(MSysInfo1.IsHidden)
  528.     lblArchived.Caption = CStr(MSysInfo1.IsArchived)
  529.     lblReadOnly.Caption = CStr(MSysInfo1.IsReadOnly)
  530.     lblIsSystem.Caption = CStr(MSysInfo1.IsSystem)
  531. End Sub
  532. Private Sub Form_Load()
  533.     lblComputerName.Caption = MSysInfo1.ComputerName
  534.     lblUserName.Caption = MSysInfo1.UserName
  535.     lblTotalPhysical.Caption = Format$(MSysInfo1.TotalPhysical, "#,###,##0") & " Bytes"
  536.     lblAvailablePhysical.Caption = Format$(MSysInfo1.AvailablePhysical, "#,###,##0") & " Bytes"
  537.     lblTotalVirtual.Caption = Format$(MSysInfo1.TotalVirtual, "#,###,##0") & " Bytes"
  538.     lblAvailableVirtual.Caption = Format$(MSysInfo1.AvailableVirtual, "#,###,##0") & " Bytes"
  539.     lblTotalPage.Caption = Format$(MSysInfo1.TotalPage, "#,###,##0") & " bytes"
  540.     lblAvailablePage.Caption = Format$(MSysInfo1.AvailablePage, "#,###,##0") & " Bytes"
  541.     lblWindows.Caption = MSysInfo1.WindowsPath
  542.     lblSystem.Caption = MSysInfo1.SystemPath
  543.     lblTemp.Caption = MSysInfo1.TempPath
  544.     lblProcessorCount.Caption = CStr(MSysInfo1.ProcessorCount)
  545.     l = MSysInfo1.ProcessorType
  546.     Select Case l
  547.         Case sysPROCESSOR_INTEL_386
  548.             lblProcessorType.Caption = "Intel 386"
  549.         Case sysPROCESSOR_INTEL_486
  550.             lblProcessorType.Caption = "Intel 486"
  551.         Case sysPROCESSOR_INTEL_PENTIUM
  552.             lblProcessorType.Caption = "Intel Pentium"
  553.     End Select
  554.     l = MSysInfo1.OSPlatform
  555.     Select Case l
  556.         Case sysPLATFORM_95
  557.             If MSysInfo1.OSVersionMinor > 9 Then
  558.                 lblOS.Caption = "Windows 98 "
  559.             Else
  560.                 lblOS.Caption = "Windows 95 "
  561.             End If
  562.         Case sysPLATFORM_NT
  563.             lblOS.Caption = "Windows NT "
  564.     End Select
  565.     lblOS.Caption = lblOS.Caption & MSysInfo1.OSVersionMajor & "." & MSysInfo1.OSVersionMinor & " Build " & MSysInfo1.OSBuild & " " & MSysInfo1.OSBuildOptions
  566.     Drive1_Change
  567. End Sub
  568.