Partitionen grafisch anzeigen wie Windows Datenträgerverwaltung

[Guido Eisenbeis]

Leider krieg ich die Jedi-Dingens-Kirschens nicht installiert (wg. Turbo Delphi). Ich habe jetzt zwar alle pas und inc in den Projektordner kopiert, die Delphi angemeckert hat, aber die Macht ist nicht mit mir. Das Programm startet zwar, aber es passiert nichts, außer bei einem Label: "Größe: 0 MB".

Trotzdem vielen Dank für das Update. Vielleicht kann ich ja noch was aus deinem Code rausziehen.

Edit:

Ok, hab jetzt mit " DevIR := MeasureDeviceInfoRecord(1);" rumgespielt und bei einem eingesetzten Wert von 1 wird meine Festplatte 2 (von 3) eingelesen und angezeigt. Bei Wert 0 und 2 werden Exeptions geschmissen, bei 3 passiert garnichts. (Wäre auch logisch, wenn da die 4 Festplatte abgefragt wird, die ja nicht vorhanden ist.)

Mal sehen, vielleicht krieg ich ja noch was ins Laufen.