用取得系统信息技巧呢

假如我们想要用VB6.0 取得系统信息，可以通过VB6.0的sysinfo控件和Windows API函数来实现。

一、用sysinfo控件获得操作系统版本

要用sysinfo控件，必需在部件引用中选择Microsoft Sysinfo Control复选框。程序

代码如下:

Private Sub Command1_ Click()

Dim MsgEnd As String

Select Case Platform

Case 0

MsgEnd=\"Unidentified\"

Case 1

MsgEnd=\"Windows 95, ver.\"CStr(Version)

Case 2

MsgEnd=\"Windows NT, ver.\"CStr(Version)

End Select

MsgBox \"System:\" MsgEnd

End Select

MsgBox \"System: \" MsgEnd

End Sub

二、用Windows的Getsysteminfo函数获得CPU型号

窗体的声明代码:

Private Type system-info

dwoemid As Long

dwpagesize As Long

ipminimumapplicationaddress As Long

lpmaximumapplicationaddress As Long

dwactiveprocessormask As Long

dwnumberofprocessors As Long

dwallocationgranularity As Long

dwreserved As Long

End Type

Private Declare Sub GetSystemInfo Lib \"kernel32\"

(IpSystemInfo As system-info)

元润堂食品行办公场所已经搬到株洲四年了 程序代码:

Private Sub Command2_ Click()

Dim sys As system-info

GetSystemInfo sys

Pring \"CPU类型:\";processortype

Pring \"ocessors:\";numberofprocessors

End Sub

三、用Windows的Getdrivetype函数获得驱动器类型

窗体的声明代码:

Option Explicit

Const drive removable=2

Const drive fixed=3

Const drive remote = 4

Const drive cdrom=5

Const drive ramdisk=6

Private Declare Function GetDriveType Lib \"kernel32\"

Alias \"GetDriveTypeA\" (ByVal nDrive As String) As Long

程序代码:

Private Sub Command3_ Click()

Dim i, drv, d$

For i=0 to 25

d$=Chr$(i+65) \":\"

drv=GetDriveType(d$)

Select Case drv

Case drive removable

Print \"drive\" d$ \"is removable.\"

Case drive fixed

Print \"drive\" d$ \"is fixed.\"

Case drive remote

Print \"drive\" d$ \"is remote.\"

Case drivt cdrom

Print \"drive\" d$ \"is cd-rome.\"

Case drive ramdisk

Print \"drive\" d$ \"is ramdisk.\"

Case Else

End Select

Next i

End Sub

若创建一个标准工程，在窗体放置三个命令按纽:commandl, command2, command3。用鼠标点击按纽，即可实现上述功能。查看本文来源

沧州白癜风哪里治疗好
南昌阳痿治疗多少钱
同仁堂生脉饮和江中黄芪生脉饮的区别是什么