Delphi-Quellcode:
_CREATE_DISK = packed record
PartitionsStyle: PARTITION_STYLE;
case Integer of
0: (Mbr: CREATE_DISK_MBR);
1: (Gpt: CREATE_DISK_GPT);
end;
// oder
_CREATE_DISK = packed record
case PartitionsStyle: PARTITION_STYLE of
0: (Mbr: CREATE_DISK_MBR);
1: (Gpt: CREATE_DISK_GPT);
end;
// statt 0 und 1 besser die "korrekten" Werte einsetzen oder gar die passenden Konstanten ... für die Funktion isses aber unerheblich
Auf was du aber noch aufpassen mußt, ist die Speicher-/Feldausrichtung, also daß diese wirklich korrekt ist, denn von "packed" steht in dem C-Code nichts drin.