Partition zu phys. LW?

[KodeZwerg]

Ok ich verstehe, ich tüftel mal was... bis gleich :=)

[Basilikum]

hier würde sich IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS anbieten (eine Partition kann auch auf mehreren physischen Disk liegen)

[KodeZwerg]

Zitat von Basilikum:

hier würde sich IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS anbieten

Stimmt!

Im Anhang ist ein komplett Lauffähiges mini-Programm was nur eine Sache macht,
es listet auf Knopfdruck alle DriveLetters auf mit den dazu gehörigen Infos.

Laufwerk Letter Typ Schreibstatus ges.Größe freieGröße Seriennummer Label

Was Dich Interessieren wird ist function GetPhysicalDiskNumber(Drive: Char): Integer; das.
Diese Funktion macht folgendes, übergebe Ihr ein Letter und Du erhälst die Laufwerksnummer.
Das war es doch was Du wolltest, richtig?

Binary plus Source im Anhang.

Ps: Alles Winapi und nicht WMI.
Pps: Da hier nicht über Volumes gegangen wird bleiben versteckte Partitionen weiterhin versteckt.

Achso, und wenn CD/DVD Laufwerke connected sind, die bekommen als Laufwerk die Nummer 255.

[Mattze]

Guten Morgen!

Wunderbar! Genau das war es. Indirekt habe ich das hinbekommen, aber es hat mich immer gestört, dass es da nichts direktes geben soll.
Und das schon eine ziemliche Weile!

Vielen Dank!

Gruß
Mattze

[KodeZwerg]

Ja gern geschehen, wenn Du Dir den Source anschaust, es ist nicht gerade einfach so etwas simples wie das was Du wolltest umzusetzen. Freut mich wenn es passt. Viel Erfolg mit Deinem Projekt!

Ps: Immer noch meinerseits nicht bestätigt Deine Bitte von wegen ohne Admin, das teste bitte selbst.

[markus5766h]

... Admin-Rechte bei mir notwendig ...
aber warum wird mein USb-Stick (K - 32GU2) zur Floppy ? (siehe Anhang)

[KodeZwerg]

Delphi-Quellcode:

  FUNCTION GetDriveTypeString(CONST DriveType: TDriveType):  STRING;
  BEGIN
    CASE DriveType OF
      dtFloppy :  RESULT := 'Floppy';
      dtFixed  :  RESULT := 'Fixed';
      dtNetwork:  RESULT := 'Network';
      dtCDROM  :  RESULT := 'CDROM';
      dtRAM    :  RESULT := 'RAM';
      ELSE        RESULT := 'Unknown'
    END
  END;

Das TDriveType muss noch mit der WinApi Ersetzt werden, mein Fehler!! Danke. Auch für testen wegen Admin-Rechte!

Frage: Hast Du die .exe per Source per IDE aufgerufen oder einfach im Explorer mein Kompilat? Weil Eigentlich CD/DVD/BD-Laufwerke eine 255 haben sollten (Wert -1).