#include <GuiConstantsEx.au3>
#include <WinApiEx.au3>
#include <WindowsConstants.au3>
Global $iMemo
_Main()
Func _Main()
Local $hGUI, $aDisk
; 创建界面
$hGUI = GUICreate("Disk SN", 400, 300)
; 创建memo控件
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
; 获取硬盘信息
$aDisk = DriveGetDrive("Fixed")
; 获取硬盘串号信息
For $i = 1 To $aDisk[0]
MemoWrite($aDisk[$i] & "==>" & _WinAPI_GetDiskSerialNumber($aDisk[$i]))
Next
; 循环至用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; 向memo控件写入信息
Func MemoWrite($sMessage = "")
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
至于空间大小,也有函数,试着自己做吧 |