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!