@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;