很简单的方法获得USB的序列号 Option Explicit Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumbe
判断驱动器程序(VB6.0代码编写) 判断驱动器，'函数声明 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long GetDriveType(k) QQ223857666勾月
判断驱动器程序(VB6.0源代码编写) 判断驱动器，'函数声明 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long GetDriveType(k)
判断驱动器的类型程序(VB6.0源代码编写) Select Case GetDriveType(Left(Drive1.Drive, 1) + ":\") Case DRIVE_REMOVABLE Text1.Text = "软盘驱动器" Case DRIVE_FIXED Text1.Text = "硬盘驱动器" Case DRIVE_REMOTE Text1.Text = "Network 驱动器" Case DRIVE_CDROM Text1.Text = "光盘驱动器" Case DRI
Delphi判断磁盘类型获取驱动器信息，判断磁盘哪些是可移动的，哪些是不可移动的，哪些是CDROM,哪些是RAM，哪些是USB设备，不过程序在Windows7下，不能获取到磁盘的容量和使用情况以及簇信息，当里这个代码是10年的，主要面向XP系统。以下是程序的主要代码： for i := 65 to 90 do begin c := chr(i) :\; DType := GetDriveType(Pchar(c)); case DType of 0: Dri
Delphi GetDriveType获取磁盘驱动器信息，获取电脑中的磁盘是否是可移动磁盘，并以列表出来，鼠标双击列表中的任意磁盘，会显示出该磁盘的详细信息，包括：总磁盘空间、有效空间、总簇大孝空簇数目等，可编写以下代码实现部分磁盘信息获取功能： c := chr(i) :\; DType := GetDriveType(Pchar(c)); case DType of 0: DriveString := c 该驱动器类型不能确定。; 1: DriveString
