USB Stick sicher entfernen unter Vista

[Pichel]

Zitat von TurboMartin:

Probier mal Folgendes:

Delphi-Quellcode:

function DismountVolume(AVolumeHandle: THandle): boolean;
const
  FSCTL_DISMOUNT_VOLUME = (9 shl 16) or (0 shl 14) or (8 shl 2) or 0;
var
  BytesReturned: Cardinal;
begin
  Result := DeviceIoControl(AVolumeHandle, FSCTL_DISMOUNT_VOLUME, nil, 0,
    nil, 0, BytesReturned, nil);

Habs jetzt mal getestet und es kracht genau bei obigem Aufruf in der "kernel32".