option explicit
private declare function getvolumeinformation lib "kernel32.dll" alias "getvolumeinformationa" (byval lprootpathname 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 sysflag 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 "驅動器檔案系統 (fat, 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
光譜解析度單位 光譜解析度 光譜解析度怎麼計算
光譜解析度指成像的波段範圍，分得愈細，波段愈多，光譜解析度就愈高，現在的技術可以達到5 6nm 奈米 量級，400多個波段。細分光譜可以提高自動區分和識別目.光譜解析度如何選擇 分得愈細，波段愈多，光譜解析度就愈高，現在的技術可以達到5 6nm 奈米 量級，400多個波段。細分光譜可以提高自動區分和...
Android解析度常識 多解析度適配
螢幕大小 以螢幕對角線的物理長度來衡量螢幕的大小 解析度 螢幕中所有物理畫素點數。如1920x1080，就表示寬方向有1920個畫素，高方向有1080個畫素，整個螢幕有2073600個畫素。螢幕密度 dpi dots per inch 即畫素密度，每英吋面積上存在多少個畫素。160dpi表示單位面積...
最佳解析度與推薦解析度
大家買大螢幕顯示器的時候最關心的是什麼呢？當然是奔著 面子 去的。現在越來越多的家庭把 放到客廳，自然要配上乙個 大大 的面子 可是當你跑到商場裡面的時候，卻發現 還有 的宣傳資料五花八門，什麼 full hd 物理解析度 最佳解析度 推薦解析度 等等，你知道它們都是在說些什麼嗎？一次偶然的機會，菜...