Bonjour à tous.

J'ai un probléme de compilation du code ci dessous:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :-)