怎么樣知道硬盤上有哪幾個分區或者指定的分區是在哪一個硬盤上
2019-11-18 18:03:48
供稿：網友
希望能得到這樣的結果
磁盤 1 的分區 1 : C
磁盤 1 的分區 2 : D
磁盤 1 的分區 3 : E
磁盤 1 的分區 4 : F
磁盤 2 的分區 1 : G
磁盤 2 的分區 2 : I
磁盤 2 的分區 3 : J
磁盤 2 的分區 4 : K
---------------------------------------------------------------
就是這樣了，GetVolumeInfo('C').DiskNumber結果就是所在的物理磁盤ID
需要JEDI的Win32支持庫才能編譯！
function GetVolumeInfo(DriverLetter: Char): TDiskExtent;
var
hVolume: THandle;
DiskExtents: PVolumeDiskExtents;
dwOutBytes: Cardinal;
begin
with Result do
begin
DiskNumber := 0;
StartingOffset.QuadPart := 0;
ExtentLength.QuadPart := 0;
end;
hVolume := CreateFile(PChar('//./'+DriverLetter+':'), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if hVolume < 1 then Exit;
DiskExtents := AllocMem(Max_Path);
if DeviceIoControl(hVolume,
IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS,
nil, 0,
DiskExtents, Max_Path,
dwOutBytes, nil) then
begin
if DiskExtents^.NumberOfDiskExtents > 0 then
Result := DiskExtents^.Extents[0];
end;
FreeMem(DiskExtents);
CloseHandle(hVolume);
end;
