In your code Replace
oNetAdapter, by prop, oNetAdapter,
oEnum: IEnumvariant; by oEnum, Props: IEnumvariant;
Replace:
TheList.Add('');
TheList.Add(oNetAdapter.Ca
//Here, I can read the property Caption
//How can I enumerate all properties availables?
//And list its values?
by
TheList.Add('');
TheList.Add(oNetAdapter.Ca
Props := IUnknown(oNetAdapter.Prope
while Props.Next(1, prop, iValue) = 0 do begin
if Prop.IsArray then
TheList.Add(' '+prop.Name+': '+'[Array]')
else if VarIsNull(Prop.Value) then
TheList.Add(' '+prop.Name+': Null')
else
TheList.Add(' '+prop.Name + ': '+string(Prop.Value));
end;
// This code was adapted from Microsoft's Scriptomatic
// http://www.microsoft.com/t
Main Topics
Browse All Topics





by: BigRatPosted on 2005-08-23 at 04:33:42ID: 14732127
I think you should look at :-
e.com/Prog ramming/ Pr ogramming_ Languages/ Cplusplus/ Q_20589651 .html
http://www.experts-exchang