si.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form frmSystemInfo 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Windows版本信息及系统目录"
   ClientHeight    =   3996
   ClientLeft      =   972
   ClientTop       =   1032
   ClientWidth     =   6492
   Icon            =   "SI.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3996
   ScaleWidth      =   6492
   Begin VB.CommandButton Command1 
      Caption         =   "退出程序"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   612
      Left            =   2280
      TabIndex        =   1
      Top             =   3240
      Width           =   1812
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   3132
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "SI.frx":000C
      Top             =   0
      Width           =   6492
   End
End
Attribute VB_Name = "frmSystemInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

' Some variables to obtain the system information

Dim Systeem As New System   ' Systeem is Dutch for System
'Dim Drive As String
'Dim Percent As Byte
'Dim Free As Long
'Dim Total As Long
'Dim Processor As String
'Dim Number As Long
'Dim Active As Long
Dim Maj As Integer
Dim Min As Integer
Dim Version As String
'Dim TotalDiskSpace As Long
'Dim FreeDiskSpace As Long
Dim ENTER As String

Private Sub Command1_Click()
    Unload Me
End Sub

'Dim Removable As Integer
'Dim Fixed As Integer
'Dim Ram As Integer
'Dim Network As Integer
'Dim CDrom As Integer


Private Sub Form_Load()



ENTER = Chr$(13) + Chr$(10)


' Call some of the function that return values in variables
Systeem.WinVer Maj, Min, Version



' Cstr convert values into a string
Text1.Text = "            Windows版本信息及系统目录" + ENTER

Text1.Text = Text1.Text + "操作系统名称         = " + Version + ENTER
Text1.Text = Text1.Text + "Windows版本          = " + CStr(Maj) + "." + CStr(Min) + ENTER
Text1.Text = Text1.Text + "用户名称             = " + Systeem.UserName + ENTER

Text1.Text = Text1.Text + "Windows目录          = " + Systeem.WinDir + ENTER
Text1.Text = Text1.Text + "系统目录             = " + Systeem.SystemDir + ENTER
Text1.Text = Text1.Text + "临时目录             = " + Systeem.TempDir + ENTER



End Sub