Partition zu phys. LW?

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

[EWeiss]

Zitat von 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!

Delphi-Quellcode:

function GetPhysicalDiskNumber(Drive: Char): Integer; // Integer

  function GetLD(Drive: Char): Cardinal; // Result Cardinal
    var
      Buffer : String;
    begin
      Buffer := Format('\\.\%s:',[Drive]);
      Result := CreateFile(PChar(Buffer), GENERIC_READ,
                           FILE_SHARE_READ or FILE_SHARE_WRITE,
                           nil, OPEN_EXISTING, 0, 0); // Result Cardinal
      Win32Check(Result <> INVALID_HANDLE_VALUE); // Result Cardinal
    end;
//...
      DiskExtents := AllocMem(Max_Path);
      try
        DeviceIOControl(LD,IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS,nil,0,DiskExtents,Max_Path,BytesReturned,nil);
        If DiskExtents^.NumberOfDiskExtents > 0 Then
        begin
          DiskExtent := DiskExtents^.Extents[0];
          Result := DiskExtent.DiskNumber; // Result Cardinal und du gibst Integer zurück!
        end;
      finally
        FreeMem(DiskExtents);
      end;

gruss