PureBasic Forums - English

Code: Select all

hDevice = CreateFile_ ("\\.\PhysicalDrive0", 0, #FILE_SHARE_READ | #FILE_SHARE_WRITE, #Null, #OPEN_EXISTING, 0, #Null)

Code: Select all

	const int bitmapSize = 65536;
	byte bitmapBuffer[bitmapSize + sizeof (VOLUME_BITMAP_BUFFER)];
	VOLUME_BITMAP_BUFFER *bitmap = (VOLUME_BITMAP_BUFFER *) bitmapBuffer;
	startLcn.q = 0;

	DWORD bytesReturned;
    DeviceIoControl (volumeHandle, FSCTL_GET_VOLUME_BITMAP, &startLcn, sizeof (startLcn), &bitmapBuffer, sizeof (bitmapBuffer), &bytesReturned, NULL)
	

Code: Select all

EnableExplicit

#FSCTL_GET_VOLUME_BITMAP = $0009006F

Define.i hVolume, Result, LastError
Define.q startLcn, bytesReturned
Define *bitmapBuffer

hVolume = CreateFile_ ("\\.\c:", #GENERIC_READ | #GENERIC_WRITE, #FILE_SHARE_READ | #FILE_SHARE_WRITE, #Null, #OPEN_EXISTING, 0, #Null)
If hVolume
  
  *bitmapBuffer = AllocateMemory($800000)
  If *bitmapBuffer  
    Result = DeviceIoControl_(hVolume, #FSCTL_GET_VOLUME_BITMAP, @startLcn, SizeOf(startLcn), *bitmapBuffer, MemorySize(*bitmapBuffer), @bytesReturned, #Null)
    LastError = GetLastError_()
    If LastError
      MessageRequester("Last Error", Str(LastError) + " (" + Hex(LastError) + ") " + Str(bytesReturned))
    Else
      MessageRequester("Info", "Bytes returned: " + Str(bytesReturned))
    EndIf
    FreeMemory(*bitmapBuffer)
  EndIf
  CloseHandle_(hVolume)
EndIf	

Code: Select all

EnableExplicit

#IOCTL_STORAGE_READ_CAPACITY = $2D5140

#FSCTL_GET_VOLUME_BITMAP = $0009006F

Structure STORAGE_READ_CAPACITY Align #PB_Structure_AlignC
  Version.l
  Size.l
  BlockLength.l
  NumberOfBlocks.LARGE_INTEGER
  DiskLength.LARGE_INTEGER
EndStructure

Structure STARTING_VCN_INPUT_BUFFER Align #PB_Structure_AlignC
  StartingVcn.LARGE_INTEGER
EndStructure

Structure VOLUME_BITMAP_BUFFER Align #PB_Structure_AlignC
  StartingLcn.LARGE_INTEGER
  BitmapSize.LARGE_INTEGER
  Buffer.a[0]
EndStructure


Define.i hVolume, Result, LastError
Define.q startLcn, bytesReturned
Define *bitmapBuffer.VOLUME_BITMAP_BUFFER
Define StorageReadCapacity.STORAGE_READ_CAPACITY
Define Msg$


hVolume = CreateFile_ ("\\.\c:", #GENERIC_READ, #FILE_SHARE_READ | #FILE_SHARE_WRITE, #Null, #OPEN_EXISTING, 0, #Null)
If hVolume
  

  Result = DeviceIoControl_(hVolume, #IOCTL_STORAGE_READ_CAPACITY, #Null, 0, @StorageReadCapacity, SizeOf(STORAGE_READ_CAPACITY), @bytesReturned, #Null)
  LastError = GetLastError_()
  If LastError
    MessageRequester("Last Error", Str(LastError) + " (" + Hex(LastError) + ") " + Str(bytesReturned))
  Else
    Msg$ = "Bytes returned: " + Str(bytesReturned) + #LF$
    Msg$ + "Size: " + Str(StorageReadCapacity\Size) + #LF$
    Msg$ + "BlockLength: " + Str(StorageReadCapacity\BlockLength) + #LF$
    Msg$ + "NumberOfBlocks: " + Str(StorageReadCapacity\NumberOfBlocks\QuadPart) + #LF$
    Msg$ + "DiskLength: " + Str(StorageReadCapacity\DiskLength\QuadPart)
    MessageRequester("Info", Msg$)
  EndIf
  
  
  *bitmapBuffer = AllocateMemory(StorageReadCapacity\DiskLength\QuadPart / 4096 / 8)
  If *bitmapBuffer  
    Result = DeviceIoControl_(hVolume, #FSCTL_GET_VOLUME_BITMAP, @startLcn, SizeOf(startLcn), *bitmapBuffer, MemorySize(*bitmapBuffer), @bytesReturned, #Null)
    LastError = GetLastError_()
    If LastError
      MessageRequester("Last Error", Str(LastError) + " (" + Hex(LastError) + ") " + Str(bytesReturned))
    Else
      Msg$ = "Bytes returned: " + Str(bytesReturned) + #LF$
      Msg$ + "StartingLcn: " + Str(*bitmapBuffer\StartingLcn\QuadPart) + #LF$
      Msg$ + "BitMapSize: " + Str(*bitmapBuffer\BitmapSize\QuadPart)
      MessageRequester("Info", Msg$)
    EndIf
    FreeMemory(*bitmapBuffer)
  EndIf
  CloseHandle_(hVolume)
EndIf	

Code: Select all

Structure bit32
   i.L[0]
EndStructure

Structure bit64
   i.q[0]
EndStructure

Procedure bit32GetBit(*this.bit32, i)
   ProcedureReturn *this\i[i >> 5] >> (i & 31) & 1
EndProcedure

Procedure bit64GetBit(*this.bit64, i)
   ProcedureReturn *this\i[i >> 6] >> (i & 63) & 1
EndProcedure

Code: Select all

Structure STORAGE_READ_CAPACITY Align #PB_Structure_AlignC
  Version.l
  Size.l
  BlockLength.l
  NumberOfBlocks.q
  DiskLength.q
EndStructure