Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
9. Mai 2007
// iterate through enum values (WbemObjects) and get the property values
while (l_WMIObjectInstances.Next(1, l_TempObj, l_ObjValue) = S_OK) do
begin
l_WMIObject:= IUnknown(l_TempObj) as SWBemObject;
l_WMIPropertySet := l_WMIObject.Properties_;
l_WMIProperty := l_WMIPropertySet.Item(WMI_ATTRIB_MAC, 0);
if not VarIsNull(l_WMIProperty.Get_Value) then
...
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
9. Mai 2007
Vielleicht geht es so besser?
begin
SL := TStringList.Create;
SL.Assign(uGetMACAddress.getSystemMACAddresses);
for i:=0 to Sl.count -1 do
// Ausgabe mac Addresses
SL.free;