Partition zu phys. LW?

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

[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!