Überprüfen ob USB Device schon eingesteckt / eingelegt ist

[Go2EITS]

@SirThornberry
1. Initialisierung:
Anlegen einer Liste mit allen Laufwerken. (Ohne Dein USB LW angeschlossen zu haben.)

2. Mit WM_DEVICECHANGE prüfen( wie auch immer das gehen mag), ob ein neues Laufwerk angeschlossen wurde.

3. Alle Laufwerke durchgehen und herausfinden, welches Laufwerk nicht in der Liste steht ist
gleich neues Laufwerk.

Verständlich?

Oder:
1. Du legst ins hauptverzeichnis eine leere Datei (0-Bytes) auf Deinem USB-LW oder Stick an:
z. b. SirThornberryStick

2. Mit WM_DEVICECHANGE prüfen( wie auch immer das gehen mag), ob ein neues Laufwerk angeschlossen wurde.

3. Abfrage aller Laufwerke, ob im Hauptverzeichnis die Datei SirThornberryStick
verhanden ist. Dann ist es Dein USB-LW oder Stick.

Alternativ kann man, so denke ich, bei USB Laufwerken einen Laufwerksnamen anlegen und abfragen oder auch, irgendwo mal gesehen, eine Stick ID auslesen.

In der Tstringlist AllDirves stehen dann alle Laufwerke:

Delphi-Quellcode:

// FUNKTIONIERT
procedure ListDrives;
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_FIXED then
      AllDrives.Add(pDrive);
      //Form1.cbb1.Items.Add(pDrive);
    Inc(pDrive, 4);
  end;
end;