Ich will meine Partitionen auslesen, und deren Zugehörigkeit zu den Harddisks.
Hier mal die Deklaration (das ist die von
Hier)
Delphi-Quellcode:
Type
PARTITION_STYLE = type Integer;
PARTITION_INFORMATION_MBR = record
PartitionType: Byte;
BootIndicator: BOOL;
RecognizedPartition: BOOL;
HiddenSecorts: DWORD;
end;
PARTITION_INFORMATION_GPT = record
PartitonType: TGUID;
PartitionId: TGUID;
Attributes: DWORD64;
Name: WCHAR;
end;
_PARTITION_INFORMATION_EX = record
PartitionStyle: PARTITION_STYLE;
StartingOffset: LARGE_INTEGER;
PartitionLength: LARGE_INTEGER;
PartitionNumber: ULONG;
RewritePartition: Boolean;
case Integer of
0: (Mbr: PARTITION_INFORMATION_MBR);
1: (Gpt: PARTITION_INFORMATION_GPT);
end;
DRIVE_LAYOUT_INFORMATION_MBR = record
Signature: ULONG;
end;
DRIVE_LAYOUT_INFORMATION_GPT = record
DiskID: TGUID;
StartingusableOffset: LARGE_INTEGER;
UsableLength: LARGE_INTEGER;
MaxPartitionCount: ULONG;
end;
DRIVE_LAYOUT_INFORMATION_EX = record
PartitionStyle: DWORD;
PartitionCount: DWORD;
DriveLayoutInfoType: record
case Integer of
0: (Mbr: DRIVE_LAYOUT_INFORMATION_MBR);
1: (Gpt: DRIVE_LAYOUT_INFORMATION_GPT);
end;
PartitionInfoEx: array[0..10] of _PARTITION_INFORMATION_EX;
end;
const
PARTITION_STYLE_MBR = PARTITION_STYLE(0);
PARTITION_STYLE_GPT = PARTITION_STYLE(1);
PARTITION_STYLE_RAW = PARTITION_STYLE(2);
Und es scheint auch soweit zu funktionieren. Allerdings habe ich noch Probleme mit
PartitionInfoEx: array[0..10] of _PARTITION_INFORMATION_EX
. Ich habe in diversen Posts gelesen, dass es
PartitionInfoEx: array[0..0] of _PARTITION_INFORMATION_EX
lauten soll. Aber dann erhalte ich gar keine Informationen.
Hier mal meine Procedure, mit der ich die Daten abfrage:
Delphi-Quellcode:
procedure TForm1.btn2Click(Sender: TObject);
var
RetBytes: DWORD;
hDevice: Cardinal;
Status: LongBool;
Drive: string;
Layout: DRIVE_LAYOUT_INFORMATION_EX;
I,p: Integer;
begin
for I := 0 to 15 do
begin
Drive:='\\.\PhysicalDrive'+IntToStr(i);
hDevice:=CreateFile(PChar(Drive), 0, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if hDevice<>INVALID_HANDLE_VALUE then
begin
Status:=DeviceIoControl(hDevice, IOCTL_DISK_GET_DRIVE_LAYOUT_EX, nil, 0, @Layout, SizeOf(DRIVE_LAYOUT_INFORMATION_EX), RetBytes, nil);
if (Status=False) then
mmo1.lines.Add(IntToStr(i)+'. Festplatte abfrage fehlgeschalten') else
begin
mmo1.Lines.Add(IntToStr(i)+'. Festplatte = '+inttostr(Layout.PartitionCount)+' Partitionen');
for p := 0 to Layout.PartitionCount-1 do
begin
if (Layout.partitionInfoEx[p].StartingOffset.QuadPart<>0) and (Layout.partitionInfoEx[p].PartitionLength.QuadPart<>0) then
begin
mmo1.Lines.Add(' '+inttostr(p)+'. Partition: ');
case Layout.partitionInfoEx[p].PartitionStyle of
PARTITION_STYLE_MBR: mmo1.Lines.Add(' Part-Typ : MBR');
PARTITION_STYLE_GPT: mmo1.Lines.Add(' Part-Typ : GPT');
PARTITION_STYLE_RAW: mmo1.Lines.Add(' Part-Typ : RAW');
end;
mmo1.lines.Add(' PartitionNr: '+IntToStr(Layout.partitionInfoEx[p].PartitionNumber));
mmo1.Lines.Add(' StartSektor: '+IntToStr(Layout.partitionInfoEx[p].StartingOffset.QuadPart));
mmo1.lines.Add(' Länge : '+IntToStr(Layout.partitionInfoEx[p].PartitionLength.QuadPart));
mmo1.Lines.Add(' Größe : '+GetSizeAsString(Layout.partitionInfoEx[p].PartitionLength.QuadPart));
end;
end;
end;
CloseHandle(hDevice);
end else mmo1.lines.Add(IntToStr(i)+'. Festplatte hat kein hDeviceHandle');
end;
end;
function TForm1.GetSizeAsString(Size: Int64): string;
var
new: Extended;
Sign: String;
c: Integer;
begin
c:=0;
new:=Size;
while new>1024 do
begin
new:=new/1024;
Inc(c);
end;
case c of
0: Sign:=' Byte';
1: Sign:=' KB';
2: Sign:=' MB';
3: Sign:=' GB';
4: Sign:=' TB';
5: Sign:=' PB';
6: Sign:=' EB';
7: Sign:=' ZB';
8: Sign:=' YB';
else
Sign:=' ('+intToStr(c)+')';
end;
Result:=FormatFloat('#,##0.00', new)+Sign;
end;
Ich wäre nach dem was ich gelesen habe mal davon ausgegangen, dass das Array partitionInfoEx hinterher der Partitionsanzahl entsprechende Elemente beinhaltet. Dem ist aber nicht so. Wenn ich es mit 0..0 deklariere, dann ist bleibt es eben auch leer, und wenn ich z.B. 0..10 deklariere, dann erhalte ich auch 11 Elemente, die dann aber eben zum Teil uninitialisierte Werte enthalten (ist klar).
Ich will ja hinterher in partitionInfoEx eben nur die Partitionen haben, die auf dem Datenträger auch existieren.
Gut, nun gibt es ja auch noch PartitionCount aus DRIVE_LAYOUT_INFORMATION_EX. Diese liefert mir aber entweder 0, 1 oder 4.
Meine Aufteilung sie in der Datenträgerverwaltung so aus:
1. HDD
1. Partition 350 MB System-reserved
2. Partition 931,17 GB c:
2. HDD
1. Partition 931,51 GB D:
3. HDD
Keine Partition. Ist der CardReader ohne Karte
4. HDD
1. Partition 1000,00 GB I: (ist tatsächlich iSCSi von meinem NAS, deswegen genau 1000 GB);
Wenn ich mein Testprogramm starte bekomme ich folgendes:
Code:
0. Festplatte = 4 Partitionen
0. Partition:
Part-Typ : MBR
PartitionNr: 1
StartSektor: 1048576
Länge : 367001600
Größe : 350,00 MB
2. Partition:
PartitionNr: 0
StartSektor: 2
Länge : 3087428650860807
Größe : 2,74 PB
1. Festplatte = 4 Partitionen
0. Partition:
Part-Typ : MBR
PartitionNr: 1
StartSektor: 1048576
Länge : 1000202043392
Größe : 931,51 GB
1. Partition:
PartitionNr: 3429319
StartSektor: 2421637
Länge : 4213862
Größe : 4,02 MB
3. Partition:
PartitionNr: 3654587
StartSektor: 2787577
Länge : 2128090
Größe : 2,03 MB
2. Festplatte = 1 Partitionen
3. Festplatte = 4 Partitionen
0. Partition:
Part-Typ : MBR
PartitionNr: 1
StartSektor: 1048576
Länge : 1073738678272
Größe : 1.000,00 GB
Die Partitionen mit Länge 0 oder StartSector 0 ignoriere ich mal.
Bei der letzten HDD und beim CardReader stimmt das ja auch soweit.
Aber bei meiner Bootplatte wird die 2. Partition mit Startsektor 0 oder Länge 0 ausgelese und eine 2. Partition mit einer wünschenswerten Größe angezeigt.
Und bei der 2. Platte, wird zwar die 1. Partition richtig ausgelesen, aber aufgrund des PartitiionCount, mütte ich von 4 Partitionen ausgehen.
Was mache ich noch falsch, bzw. wie kann man das besser lösen. Warum bekomme ich teilweise PartitionCount von 4?
Ich hab mal das Testprojekt angehängt.