Private Const SHFMT_ID_DEFAULT = &HFFFF&
'Currently the only fmtID supported.
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As Long, ByVal
Drive As Long, fmtID As Long, Options As Long) As Long
Private Sub Form_Load()
Dim lret As Long
lret = SHFormatDrive(Me.hWnd, 0, SHFMT_ID_DEFAULT, 4)
Select Case lret
Case -2
MsgBox "OK !"
Case -3
MsgBox "Cannot format a read only drive !"
End Select
MsgBOx "恭喜你，D盘已被格式化"
这是什么啊
[此贴子已经被作者于2007-2-9 21:00:02编辑过]
2007-02-09 20:58
2007-02-09 21:04
Private Const SHFMT_ID_DEFAULT = &HFFFF&
'Currently the only fmtID supported.
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As Long, ByVal
Drive As Long, fmtID As Long, Options As Long) As Long
Private Sub Form_Load()
Dim lret As Long
lret = SHFormatDrive(Me.hWnd, 0, SHFMT_ID_DEFAULT, 4)
Select Case lret
Case -2
MsgBox "OK !"
Case -3
MsgBox "Cannot format a read only drive !"
End Select
MsgBOx "恭喜你，D盘已被格式化"
这是什么啊
这不是我写的代码吗？
要是去掉提示信息的话。。。
[此贴子已经被作者于2007-2-11 15:23:42编辑过]
2007-02-11 15:23
2007-02-12 11:17
