|
ByVal 0&, 0, _
ByVal 0&, 0, _
dwOutBytes, _
ByVal 0&)
UnlockVolume = bResult
End Function
Public Function DismountVolume() As Boolean
''''// 将卷卸下,使系统重新辨识磁盘，等效于重新插盘
Dim dwOutBytes As Long
Dim bResult As Boolean
bResult = DeviceIoControl(hDisk, _
FSCTL_DISMOUNT_VOLUME, _
ByVal 0&, 0, _
ByVal 0&, 0, _
dwOutBytes, _
ByVal 0&)
DismountVolume = bResult
End Function
Public Function ReadDisk(ByVal Cylinders As Long, _
ByVal Tracks As Long, _
db() As Byte) As Boolean
''''//按柱面和磁道来读取磁盘数据
Dim iPos As Long
Dim lRead As Long
iPos = Cylinders * Tracks * lBufferSize
If SeekAbsolute(0, iPos) Then
ReadDisk = ReadBytes(lBufferSize, db(), lRead)
End If
End Function
Public Function WriteDisk(ByVal Cylinders As Long, _
ByVal Tracks As Long, _
db() As Byte) As Boolean
''''//按柱面和磁道来写磁盘数据
Dim iPos As Long
Dim lRead As Long
iPos = Cylinders * Tracks * lBufferSize
If SeekAbsolute(0, iPos) Then
WriteDisk = WriteBytes(lBufferSize, db())
End If
End Function
''''/////////////////////////////////////////////////////////////////////////////////////
''''//file system
Private Function SeekAbsolute(ByVal HighPos As Long, ByVal LowPos As Long) As Boolean
''''//seek file
''''//Notice: when you set LowPos=5, the read/write will begin with the 6th(LowPos+1) byte
LowPos = SetFilePointer(hDisk, LowPos, HighPos, FILE_BEGIN)
If LowPos = -1 Then
SeekAbsolute = (Err.LastDllError = ERROR_SUCCESS)
Else
SeekAbsolute = True
End If
End Function
Private Function ReadBytes(ByVal ByteCount As Long, ByRef DataBytes() As Byte, ByRef ActuallyReadByte As Long) As Boolean
''''//read data to array
Dim RetVal As Long
RetVal = ReadFile(hDisk, DataBytes(0), ByteCount, ActuallyReadByte, 0)
''''ActuallyReadByte =>> if the bytesRead=0 mean EOF
ReadBytes = Not (RetVal = 0)
End Function
Private Function WriteBytes(ByVal ByteCount As Long, ByRef DataBytes() As Byte) As Boolean
''''//write data from array
Dim RetVal As Long
Dim BytesToWrite As Long
Dim BytesWritten As Long
RetVal = WriteFile(hDisk, DataBytes(0), ByteCount, BytesWritten, 0)
WriteBytes = Not (RetVal = 0)
End Function
上一页 [1] [2]
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
