USB-Stick abziehen nicht vergessen

[invalid_operation]

Zitat von DeddyH:

Ginge das theoretisch nicht auch in etwa so?

Delphi-Quellcode:

function ExeIsOnAnUSBStick: Boolean;
begin
  Result := GetDriveType(PChar(ParamStr(0)[1] + ':\')) = DRIVE_REMOVABLE;
end;

Außerdem meint das MSDN

Zitat:

To determine whether a drive is a USB-type drive, call SetupDiGetDeviceRegistryProperty and specify the SPDRP_REMOVAL_POLICY property.

Vermutlich schon (keine Ahnung, ob es unter Delphi5 bereits geht)?

Hab's mit D5 geschrieben und unter XP und Vista getestet: Funktioniert!

Eventuell mögliche Optimierungen überlasse ich den geneigten Fachleuten (Dir)

LG / HTH

P.S.: "etwa" heißt sinngemäß "ungefähr"! Du benutzt oben "in etwa" falsch! In etwa 95% aller Fälle wird "in etwa" falsch benutzt! Dein "in" bei "in etwa" klingt gut/modisch, ist aber FALSCH!