auflistung devices

[mr.unbekannt]

englisch wäre nicht das problem, ich bräuchte aber halt nur diesen kleinen teil und nicht so ein riesen programm für sowas.

[neo4a]

Zitat von mr.unbekannt:

englisch wäre nicht das problem, ich bräuchte aber halt nur diesen kleinen teil und nicht so ein riesen programm für sowas.

Die Zip-Datei für das installationsfreie Programm ist 3MB groß, soll ich Dir tragen helfen? Oder geht es Dir nur um so etwas:

Delphi-Quellcode:

    objWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2');
    colItems      := objWMIService.ExecQuery('Select * From Win32_DiskDrive Where InterfaceType="USB"', 'WQL', 0);
    oEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;
    for i := 0 to colItems.Count - 1 do
      if oEnum.Next(1, colItem, iValue) = 0 then

Vielleicht liefern Dir ja auch die Jedi-Tools eine brauchbaren Ansatz.

[mjustin]

Zitat von mr.unbekannt:

englisch wäre nicht das problem, ich bräuchte aber halt nur diesen kleinen teil und nicht so ein riesen programm für sowas.

Beschreibung WMI Delphi Code Creator:

Zitat:

"Can generate object pascal code"

Das "Riesenprogramm" erzeugt nur den Delphi Quellcode für die gewünschte WMI Operation. Es muss nicht mit in der eigenen Anwendung eingebaut oder mit installiert werden.

[mr.unbekannt]

das mit dem programm habe ich schon verstanden. Der Quelltext reicht mir aber. Danke!