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.