Problème de compilation avec "Class" comme nom de propriété
Bonjour à tous.
J'ai un probléme de compilation du code ci dessous:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| procedure GetListWmiClassesWithMethods(const NameSpace:String;Const List :TStrings);
var
objWMIService : OLEVariant;
colItems : OLEVariant;
colItem : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
begin
List.Clear;
objWMIService := GetWMIObject(FHost,SNameSpace, FUsername, FPassword);
colItems := objWMIService.SubclassesOf();
oEnum := IUnknown(colItems._NewEnum) as IEnumVariant;
while oEnum.Next(1, colItem, iValue) = 0 do
if colItem.Methods_.Count>0 then
List.Add(colItem.Path_.Class);
end; |
Lazarus me dit : " Fatal: Syntax error, "identifier" expected but "CLASS" found ".
C'est apparement du code Delphi, une adaptation du code VB suivant :
Code:
1 2 3
| Set objSWbemService = GetObject("Winmgmts:root\default")
Set objClass = objSWbemService.Get()
objClass.Path_.Class = "NewClass" |
(Bon ça fait pas la même chose, mais c'est la preuve que Path_.Class existe bien...)
Je pense que c'est le compilateur qui n'aime pas ".Class" mais comment contourner le problème ????
Merci à vous :-)