解析度、卷標、序列號、分割槽表的讀出 (轉)
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Const FILE_VOLUME_IS_COMPRESSED = &H8000
Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
MsgBox Temp1
MsgBox Temp2
MsgBox Hex(SerialNum)
GetSerialNumber = SerialNum
End Function
Public Sub GetVolInfo(ByVal path As String)
Dim aa As Long
Dim VolName As String
Dim fsysName As String
Dim VolSeri As Long, compress As Long
Dim Sylag As Long, Maxlen As Long
'初試化字串的長度
VolName = String(255, 0)
fsysName = String(255, 0)
aa = GetVolumeInformation(path, VolName, 256, VolSeri, Maxlen, _
Sysflag, fsysName, 256)
VolName = Left(VolName, InStr(1, VolName, Chr(0)) - 1)
fsysName = Left(fsysName, InStr(1, fsysName, Chr(0)) - 1)
compress = Sysflag And FILE_VOLUME_IS_COMPRESSED
If compress = 0 Then
MsgBox "未器"
Else
MsgBox "壓縮驅動器"
End If
MsgBox "驅動器卷標 :" + VolName
MsgBox "驅動器標號 : " + Hex(VolSeri)
MsgBox "驅動器 (, HPFS, or NTFS)" + fsysName
MsgBox "支援的檔名長度" + Str$(Maxlen)
End Sub
Private Sub Command1_Click()
MsgBox GetSerialNumber("C:")
End Sub
Private Sub Command2_Click()
Call GetVolInfo("C:")
End Sub
Private Sub Command3_Click()
Dim cr As String
Dim Twidth As Integer
Dim Theight As Integer
cr = Chr$(13) + Chr$(10)
Twidth% = Screen.Width Screen.TwipsPerPixelX
Theight% = Screen.Height Screen.TwipsPerPixelY
MsgBox "螢幕大小為" + cr + cr + Str$(Twidth%) + " x" + Str$(Theight%), 64, "Info"
End Sub
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10748419/viewspace-1007112/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- [oracle] expdp 匯出分割槽表的分割槽Oracle
- 非分割槽錶轉換成分割槽表
- 將非分割槽錶轉換為分割槽表
- 分割槽表PARTITION table(轉)
- ORACLE分割槽表管理[轉]Oracle
- 將mysql非分割槽錶轉換為分割槽表MySql
- (轉)ORACLE 分割槽表的設計Oracle
- 使用expdp匯出分割槽表中的部分分割槽資料
- 如何查詢分割槽表的分割槽及子分割槽
- oracle分割槽表和分割槽表exchangeOracle
- rebuild分割槽表分割槽索引的方法Rebuild索引
- 將一個非分割槽錶轉換為分割槽表
- 非分割槽錶轉換為分割槽表和partition indexIndex
- oracle分割槽表總結(轉)Oracle
- 【轉】Oracle分割槽表維護Oracle
- 硬碟分割槽表詳解(轉)硬碟
- PLSQL根據分割槽表的分割槽名批次truncate分割槽SQL
- 全面學習分割槽表及分割槽索引(13)--分隔表分割槽索引
- oracle分割槽表和非分割槽表exchangeOracle
- 批次轉換分割槽表為普通表
- 批量轉換分割槽表為普通表
- 【學習筆記】分割槽表和分割槽索引——分割槽表的其他管理(三)筆記索引
- 範圍分割槽表和INTERVAL分割槽表對於SPLIT分割槽的區別
- 【實驗】【PARTITION】交換分割槽時分割槽表有主鍵目標表亦需有主鍵
- oracle 分割槽表move和包含分割槽表的lob moveOracle
- 非分割槽錶轉換成分割槽表以及注意事項
- 【分割槽】如何將一個普通錶轉換為分割槽表
- Oracle分割槽表及分割槽索引Oracle索引
- INTERVAL分割槽表鎖分割槽操作
- 全面學習分割槽表及分割槽索引(9)--刪除表分割槽索引
- 全面學習分割槽表及分割槽索引(11)--合併表分割槽索引
- 全面學習分割槽表及分割槽索引(12)--修改list表分割槽索引
- 學習筆記】分割槽表和分割槽索引——新增表分割槽(二)筆記索引
- 堆錶轉換成分割槽表
- 普通錶轉換為分割槽表
- 分割槽表入無分割槽的資料庫資料庫
- Oracle 12.2之後ALTER TABLE .. MODIFY轉換非分割槽表為分割槽表Oracle
- ORACLE 11g 範圍分割槽錶轉換INTERVAL分割槽表Oracle