Bilder von Kamera übertragen

[NTcomputer_0]

Ich habe es jetzt geschafft, alle Elemente des Computers zu listen - die Kamera ist aber nicht dabei!
Hier mein Code:

Delphi-Quellcode:

const
  Flags = $10000 or $08000 or $04000 or $02000 or $01000 or $00800 or $00400 or $00200 or $00100 or $00080 or $00040 or $00020 or $00010;
//testweise mal alle....
var
  ComputerPIDL:PItemIDList;
  EnumList:IEnumIDList;
  Name:PChar;
  NameS:String;
  VirtualFolder:IShellFolder;
  ID: PItemIDList;
  NumIDs: LongWord;
begin
  GetMem(Name,50);
  Try
    SHGetSpecialFolderLocation(0,CSIDL_DRIVES,ComputerPIDL);
    PIDL_GetFileFolder(ComputerPIDL,VirtualFolder);
      VirtualFolder.EnumObjects(
        0,
        Flags,
        EnumList);
    while EnumList.Next(1, ID, NumIDs) = S_OK do
    begin
      PIDL_GetDisplayName(VirtualFolder,ID,0,Name,50);
      NameS:=StrPas(Name);
      //alle Laufwerke kommen hier an - Geräte NICHT.
    end;
  Except
    Error:=true;
    exit;
  End;
  FreeMem(Name);
end;