USB Stick auswerfen mit DeviceIOControl

[tHeRiAn]

Morgen,

gestern hatte ich schon mal nen ähnlichen Thread gestartet, nun haben sich auf meiner Seite wieder vorgaben geändert. Es muss nun mit DeviceIOControl realisiert werden.

Ich zeig euch erst mal den Code den ich mir zusammengesucht habe, der bei jedem funktionieren soll, bei mir aber natürlich wieder mal net

Delphi-Quellcode:

var
  n: DWord;
  DriveHandle: THandle; 
CONST
  IOCTL_STORAGE_EJECT_MEDIA = $2D4808;
  FSCTL_DISMOUNT_VOLUME = $90020;
begin
  DriveHandle := CreateFile('\\.\H:'#0,  //aktueller Laufwerksbuchstabe auf meinem System
                             GENERIC_READ OR GENERIC_WRITE,
                             FILE_SHARE_READ OR FILE_SHARE_WRITE,
                             NIL,
                             OPEN_EXISTING,
                             FILE_ATTRIBUTE_NORMAL OR
                             FILE_FLAG_NO_BUFFERING, 0);

  if GetLastError = 0 then begin
    n := 0;
    DeviceIOControl(DriveHandle,FSCTL_DISMOUNT_VOLUME ,  NIL, 0, NIL, 0, n, NIL); //IOCTL_STORAGE_EJECT_MEDIA
    CloseHandle(DriveHandle);
  end;
end;

vieleicht könnt ihr mir helfen...ich bin hier und jetzt am ende mit meinem Latein.
vielen dank leute!