Falls ein Programm von einem USB-Stick gestartet wurde und beim Herunterfahren von Windows im CanClose einen Hinweis ausspucken soll, daß man den Stick noch nicht abgezogen hat:

zusammenfalten · markieren

Delphi-Quellcode:

function ExeIsOnAnUSBStick: Boolean;
var
  HomeDrive: string;
  DriveLetters: string;

  procedure List_Drives;
  const
    DRIVE_UNKNOWN = 0;
    DRIVE_NO_ROOT_DIR = 1;
    DRIVE_REMOVABLE = 2;
    DRIVE_FIXED = 3;
    DRIVE_REMOTE = 4;
    DRIVE_CDROM = 5;
    DRIVE_RAMDISK = 6;
  var
    r: LongWord;
    Drives: array[0..128] of char;
    pDrive: PChar;
  begin
    r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
    if r = 0 then Exit;
    if r > SizeOf(Drives) then
      raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
    pDrive := Drives;
    while pDrive^ <> #0 do
    begin
      if GetDriveType(pDrive) = DRIVE_REMOVABLE then
        DriveLetters := DriveLetters + (pDrive);
      Inc(pDrive, 4);
    end;
  end;

begin
  HomeDrive := AnsiUpperCase(paramstr(0)[1]);
  List_Drives;
  DriveLetters := AnsiUpperCase(DriveLetters);
  Result := (pos(HomeDrive, DriveLetters) > 0);
end;

Funktioniert mit meinen USB-Sticks und SD-Karten, aber nicht mit externen USB-Festplatten
Getestet mit XP und Vista, Delphi5.

Beispiel in einem CanClose:

markieren

Delphi-Quellcode:

if ExeIsOnAnUSBStick then MessageBox(Handle,'Vergessen Sie bitte nicht, Ihren USB-Stick abzuziehen!','Hinweis',mb_Ok or mb_IconStop or mb_DefButton1);
CanClose := True;

Vielleicht hilft es ja jemandem / HTH

Ginge das theoretisch nicht auch in etwa so?

markieren

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.

Zitat von DeddyH:

Ginge das theoretisch nicht auch in etwa so?

markieren

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!

Ich hab es mal spontan getestet,
auf einem USB-Stick melden sich beide Versionen, ebenso auf einer CF-Karte.
Auf einer externen LAN-Festplatte meldet sich nur die Version von invalid_operation.

Zitat von Flips:

Ich hab es mal spontan getestet,
auf einem USB-Stick melden sich beide Versionen, ebenso auf einer CF-Karte.
Auf einer externen LAN-Festplatte meldet sich nur die Version von invalid_operation.

Welche "beiden" Versionen?

Seit wann ist eine externe LAN-Festplatte auf einem USB-Stick?

Kann das hier (mangels Deiner Hardware) nicht testen, aber der Source ist wohl oben...

LG / HTH

Edit: Was zum Teufel nochmal ist eine "CF-Karte"?

Zitat:

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!

Die Polemik gegen den flaschen Gebrauch von Floskeln und amerikanischem Deutsch "macht" "in etwa" soviel Sinn, wie "in 2009" über den höllisch warmen Sommer "in 1941" zu jammern. SCNR.

Zitat:

Was zum Teufel nochmal ist eine "CF-Karte"?

CompactFlash nennt u.a. die kleinen Speicherkarten in den digitalen Knipsen.

--
Andreas

Zitat von invalid_operation:

P.S.: "etwa" heißt sinngemäß "ungefähr"!

Und so war es auch gemeint. Trotzdem Danke für die Belehrung über den korrekten Gebrauch meiner Muttersprache

@neo4a #6: Hast ja recht...

Zitat von invalid_operation:

Zitat von DeddyH:

Ginge das theoretisch nicht auch in etwa so?

[...]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!

Sogar die Duden-Sprachberatung benutzt "in etwa" - so falsch kanns also nicht sein

Und der Letzte macht bitte das Licht aus