IOCTL_STORAGE_GET_DEVICE_NUMBER, DRIVE_GEOMETRY und DRIVE_LAYOUT

[himitsu]

Delphi-Quellcode:

var
  pVolume : PWideChar;
  hVolume : THandle;
begin
  Result := false;
  hVolume := INVALID_HANDLE_VALUE;
  pVolume := StrAlloc(Length('\\.\PHYSICALDRIVE' + IntToStr(aDeviceNumber)));
  try
    StrPCopy(pVolume, Format('\\.\PHYSICALDRIVE%d', [aDeviceNumber]));
    try
      hVolume := CreateFile(pVolume, ...);
      ...
    finally
      if Result then CloseHandle(hVolume);
    end;
  finally
    StrDispose(pVolume);
  end;

Wozu setzt du den Namen/PChar doppelt?
Einmal über StrAlloc und dann nochmal über StrPCopy.

Warum einmal über Format und dann über IntToStr? (ein bissl Einheitlichkeit kann nie schaden)

Meckert Delphi denn nicht beim ersten Result?
(ungenutzer Wert)

Sicher daß dieser PChar-PWideChar-Mix in Delphi 7 funktioniert?
(ich glaub eher nicht, abgesehn davon daß Delphi 7 da meckern sollte, da PAnsiChar nicht kompatiebel PWideChar)
z.B.: (über solche Unicode-Fehler quassel ich mir schon seit Jahren den Mund fusselig und wegen sowas mecken dann viele, weil bei ihnen Codes nicht under Pre-D2009 und D2009+ kompatibel sind, bzw. warum sie dann "urplötzlich" nicht in dem Anderem funktionieren)
CreateFileA + PAnsiChar
CreateFileW + PWideChar
CreateFile + PChar
> du nimmst aber CreateFile + PWideChar

Succeeded und das Result von CreateFile passen nicht zusammen.
> Succeeded = HRESULT und CreateFile = HANDLE
> INVALID_HANDLE_VALUE = $FFFFFFFF (alle Bits) und Succeeded-Error = $8xxxxxxx (nur das höchste Bit)

Anstatt alle Laufwerksbuchstaben durchzuprobieren wäre es schöner, wenn man einfach mal anfragt, was es gibt > GetLogicalDriveStrings oder GetLogicalDrives.

den oberen Code würde ich wie Folgt abändern:

Delphi-Quellcode:

var
  hVolume : THandle;
begin
  hVolume := CreateFile(PChar(Format('\\.\PHYSICALDRIVE%d', [aDeviceNumber])), ...);
  if hVolume <> INVALID_HANDLE_VALUE then
    try
      ...
    finally
      CloseHandle(hVolume);
    end;

DeviceExists kann man über GetLogicalDrives einfacher/besser erkennen.
Dein DeviceExists ist eher ein DeviceAccessAllowed.

Da es nur True liefert, wenn das Laufwerk existiert und man darauf zugreifen darf.

PS: Was du vergessen hast zu sagen, daß CreateFile nur mit Adminrechten Zugriff auf Festplatten bekommt, bzw. genauer gesagt, benötigt man mindestens Backup-Rechte.
(Das ist schon seit WinNT so, auch wenn "leider" bis WinXP meistens alle rogramme automatisch admin-Rechte besaßen.)



Mit ein bissl Kenntnis über das Fehler-/Excaption-Management dieser WinAPIs kann man die erste Funktion auf dieses kürzen, nachdem die Fehler (voallem das Succeeded) behoben wurden.

Delphi-Quellcode:

function {DeviceExists}DeviceAccessAllowed(aDeviceNumber: DWORD): Boolean;
var
  hVolume : THandle;
begin
  hVolume := CreateFile(PChar(Format('\\.\PHYSICALDRIVE%d', [aDeviceNumber])),
    GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  CloseHandle(hVolume);
  Result := hVolume <> INVALID_HANDLE_VALUE;
end;