Partition zu phys. LW?

[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).

[markus5766h]

hab' das Kompilat benutzt.

[KodeZwerg]

Danke für diese Information, dann sinds zwei Baustellen, ich werde es fixen.

[EWeiss]

Zitat von KodeZwerg:

Danke für diese Information, dann sinds zwei Baustellen, ich werde es fixen.

Zudem solltest du mal deine Rückgabe werte prüfen Integer <> Cardinal
Da ist einiges im argen.

gruss

[KodeZwerg]

Fixed.

Delphi-Quellcode:

function GetDriveTypeString(DriveByte: Byte): String;
begin
  case GetDriveType(PChar(Chr(DriveByte + Ord('A')) + ':\')) of
    DRIVE_UNKNOWN: Result := 'Unknown';
    DRIVE_NO_ROOT_DIR: Result := 'not Mounted';
    DRIVE_REMOVABLE: Result := 'Removable';
    DRIVE_FIXED: Result := 'Fixed';
    DRIVE_REMOTE: Result := 'Network';
    DRIVE_CDROM: Result := 'CDROM';
    DRIVE_RAMDISK: Result := 'RAM';
  else
    Result := 'Other';
  end;
end;

Du kannst Byte mit Cardinal austauschen, es sollte aber nicht nötig sein. (Byte 1 - 6 sind gültige Ziele, alles andere ist noch nicht in Delphi 2009 vorhanden und MSDN gibt auch 6 als höchsten Zähler an, beim Api Aufruf nutze ich ein Cardinal und als Laufwerk sollte 26 die Höchste Zahl sein wenn ich mich nicht Irre?)

Bitte testen, Danke!

[EWeiss]

Zitat:

beim Api Aufruf nutze ich ein Cardinal)

Und was bringt das wenn du am ende doch einen Integer zurück gibst seltsam, aber gut mach wie du willst.
Korrekt ist das nicht.

gruss

[KodeZwerg]

Von welcher Zeile im Code redest Du? Poste bitte was alles falsch sein soll, ich kann das gerade nicht zuordnen, vielen Dank für mühe!