Hallo Alter Mann, das wars vielen Dank für den Hinweis!
Das Programm läuft jetzt aber nur solange bis ich die Funktion aufrufe. Dann bricht er in der Zeile
result := result + l_WMIProperty.Get_Value[i] + ' ; ' ;
ab
mit der Meldung:
Zitat:
Erste Gelegenheit für
Exception bei $7C812A5B.
Exception-Klasse EVariantBadIndexError mit Meldung 'Variant or safe array index out of bounds'. Prozess Project1.exe (368)