Über alle USB Anschlüsse iterieren, um ein bestimmtes Gerät zu finden

[hathor]

Ich habe den Grund jetzt gefunden:
Bei der Version FileDirExists reicht die Directory-Angabe,
bei DirectoryExists muss noch der Laufwerksbuchstabe etc. vorangestellt werden.

Delphi-Quellcode:

Function FindGPS3: String;
var dirName: String; i : Integer;
begin
dirName:= 'F-Hathor'; //Dir, das sonst nirgendwo existiert ausser im GPS-Empfänger
Result:='GPS-Empfänger NICHT gefunden.';
  for i:=0 to 25 do
    begin
      if DriveExists(i) then
     if DirectoryExists(PChar(Chr(i + Ord('A')) + ':\')+dirName) then  //geht nur so!
        begin
          Result:= 'GPS-Empfänger gefunden bei '+ PChar(Chr(i + Ord('A')) + ':\');
        end;
    end;
    Form1.Label1.caption:=Result;
end;