FAQ DelphiConsultez toutes les FAQ

WMILocator: TSWbemLocator;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.BtConnexionClick(Sender: TObject); 
var 
  WmiService:          SWbemServices; 
  WmiObjet:            SWbemObject; 
  Query:               String; 
  
begin 
WMILocator:= TSWbemLocator.Create(self); 
  
WmiService:= WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '', 
                                        '', wbemConnectFlagUseMaxWait, nil); 
  
     // Recherche les événements de type  
     // '__instancedeletionevent' ( Intrinsèque ) 
   Query:='Select * from __instancedeletionevent within 1 where TargetInstance isa "Win32_Process"'; 
  
     // On passe à cette méthode l'Object collecteur qui reçoit  
     // les notifications d'événements asynchrones. 
  WMIService.ExecNotificationQueryAsync(CollecteurEvenement.DefaultInterface, 
                                        Query, 
                                        'WQL', 
                                        wbemFlagSendStatus, 
                                        Nil, Nil);

1
2
3
4
5
6
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  // libère les ressources WMI 
 CollecteurEvenement.Cancel 
 WMILocator.Free; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.btCancelSinkClick(Sender: TObject); 
Var WMILastError: TSWbemLastError; 
begin 
 CollecteurEvenement.Cancel; 
  
 if ExistWmiErreur(WMILastError,Self) 
  then 
    begin 
     ShowWMIErreur('Erreur dans la méthode Cancel du collecteur.',WMILastError,Nil); 
     // appel de WMILastError.Release automatique par Delphi 
    end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
procedure TForm1.CollecteurEvenementCompleted(Sender: TObject; 
  iHResult: TOleEnum; const objWbemErrorObject: ISWbemObject; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
//Déclenché lorsqu'une opération asynchrone est terminée. 
var S:String; 
begin 
  // Consultez le SDK pour le détail des codes d'erreurs 
  Memo1.Lines.Add('Opération asynchrone terminée.'); 
  If iHResult<> WBEM_S_NO_ERROR 
   then //ShowWMIErreur('Collecteur événement Completed',objWbemErrorObject,nil ); 
    begin 
     S:='Informations d''erreur WMI :'+#13#10+#13#10+ 
        'Collecteur événement Completed'+#13#10+ 
        'Operation : '+objWbemErrorObject.Properties_.Item('Operation',0).Get_Value+#13#10+ 
        'Provider : '+objWbemErrorObject.Properties_.Item('ProviderName',0).Get_Value+#13#10+ 
        'Description : '+WMIVariantToStr(objWbemErrorObject.Properties_.Item('Description',0).Get_Value)+#13#10+ 
        'parametre : '+WMIVariantToStr(objWbemErrorObject.Properties_.Item('ParameterInfo',0).Get_Value)+#13#10+ 
        'Code : '+WMIVariantToStr(objWbemErrorObject.Properties_.Item('StatusCode',0).Get_Value); 
     ShowMessage(S); 
   end; 
end; 
  
procedure TForm1.CollecteurEvenementObjectPut(Sender: TObject; 
  const objWbemObjectPath: ISWbemObjectPath; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
  //Déclenché aprés une opération PUT asynchrone. 
begin 
 Memo1.Lines.Add('Opération Put .'); 
end; 
  
  
procedure TForm1.CollecteurEvenementObjectReady(Sender: TObject; 
  const objWbemObject: ISWbemObject; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
//Déclenché lorsqu'un objet fourni par l'appel asynchrone est disponible. 
// objWbemObject contient l'objet retourné 
var WmiObjet: SWbemObject; 
begin 
   // Retrouve l'objet contenu dans la propriété TargetInstance 
   // qui contient une copie de l'instance du process supprimé. 
  WmiObjet:=IUnknown(objWbemObject.Properties_.Item('TargetInstance',0).Get_Value) as SWbemObject; 
  Memo1.Lines.Add('Le process '+WMIVariantToStr(WmiObjet.Properties_.Item('Name',0).Get_Value)+ 
                  ' est terminé.'+#13#10); 
  Memo1.Lines.Add(WmiObjet.Path_.path); 
  Memo1.Lines.Add(AdjustLineBreaks(WmiObjet.GetObjectText_(0))); 
end; 
  
  
procedure TForm1.CollecteurEvenementProgress(Sender: TObject; 
  iUpperBound, iCurrent: Integer; const strMessage: WideString; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
  //Déclenché pour fournir l'état de l'opération asynchrone. 
// Dépend du provider: tous ne semblent pas gérer cet événement. 
begin 
 // Consultez le SDK pour le détail des paramètres 
Memo1.Lines.Add('Evénement on Progress'); 
 Memo1.Lines.Add(IntToStr(iCurrent)+'/'+IntToStr(iUpperBound)+' Objet. '+#13#10+strMessage); 
end;

1
2
//Recherche la suppression d'instance 
Query:='Select * from __instancedeletionevent within 1 where TargetInstance isa "Win32_Process"';

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
procedure TForm1.BTConnexionClick(Sender: TObject); 
//Client d'évènement temporaire recherchant les fins de processus. 
  
var 
  WMILocator:          TSWbemLocator; 
  WmiService:          SWbemServices; 
  
  WmiMonitoredProcesses:  SWbemEventSource; 
  
  WmiLatestProcess, 
  WmiObjet:            SWbemObject; 
  OldCursor:           TCursor; 
  Query:               String; 
  
begin 
 WMILocator:= TSWbemLocator.Create(self); 
 try 
  OldCursor := Screen.Cursor; 
  Screen.Cursor := crSQLWait; 
  WmiService:= WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '', 
                                        '', wbemConnectFlagUseMaxWait, nil); 
  
  Query:='Select * from __instancedeletionevent within 1 where TargetInstance isa "Win32_Process"'; 
  WmiMonitoredProcesses:=WMIService.ExecNotificationQuery(Query, 
                                                          'WQL', 
                                                          wbemFlagForwardOnly + 
                                                          wbemFlagReturnImmediately, 
                                                          Nil); 
   // Renvoie une classe de type '__InstanceDeletionEvent' 
   // -1 = Attente indéfinie. Le traitement attend un événement... 
  WmiLatestProcess:= WmiMonitoredProcesses.NextEvent(-1); 
  
   // Retrouve l'objet contenue dans la propriété TargetInstance 
   // à partir de l'objet créé par la méthode WmiMonitoredProcesses.NextEvent 
   // L'objet retrouvé contient une copie de l'instance du process supprimé. 
  WmiObjet:=IUnknown(WmiLatestProcess.Properties_.Item('TargetInstance',0).Get_Value) as SWbemObject; 
  
  Memo1.Lines.Add('Le process '+WMIVariantToStr(WmiObjet.Properties_.Item('Name',0).Get_Value)+ 
                  ' est terminé.'+#13#10); 
  Memo1.Lines.Add(WmiObjet.Path_.path); 
  Memo1.Lines.Add(AdjustLineBreaks(WmiObjet.GetObjectText_(0))); 
  
 Finally 
  WMILocator.Free; 
  Screen.Cursor:= OldCursor; 
 end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.CollecteurEvenementObjectReady(Sender: TObject; 
  const objWbemObject: ISWbemObject; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
//Déclenché lorsqu'un objet fourni par l'appel asynchrone est disponible. 
  
var WmiObjet: SWbemObject; 
  
begin 
   // L'objet retrouvé contient une copie de l'instance du process supprimé. 
  WmiObjet:=IUnknown(objWbemObject.Properties_.Item('TargetInstance',0).Get_Value) as SWbemObject; 
  Memo1.Lines.Add('Le process '+WMIVariantToStr(WmiObjet.Properties_.Item('Name',0).Get_Value)+ 
                  ' est terminé.'+#13#10); 
  Memo1.Lines.Add(WmiObjet.Path_.path); 
  Memo1.Lines.Add(AdjustLineBreaks(WmiObjet.GetObjectText_(0))); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.CollecteurEvenementCompleted(Sender: TObject; 
  iHResult: TOleEnum; const objWbemErrorObject: ISWbemObject; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
//Déclenché lorsqu'une opération asynchrone est terminé. 
  
var S:String; 
  
begin 
  Memo1.Lines.Add('Opération asynchrone terminée.'); 
  If iHResult<> WBEM_S_NO_ERROR 
   then 
      // Appel asynchrone annulé. 
      // Ce n'est pas une erreur, l'appel de TSWbemSink.Cancel provoque 
      // l'appel de cet événement 
    if iHResult= wbemErrCallCancelled 
     then exit 
     else 
      begin 
       S:='Informations d''erreur WMI :'+#13#10+#13#10+ 
          'Collecteur événement Completed'+#13#10+ 
          'Operation : '+objWbemErrorObject.Properties_.Item('Operation',0).Get_Value+#13#10+ 
          'Provider : '+objWbemErrorObject.Properties_.Item('ProviderName',0).Get_Value+#13#10+ 
          'Description : '+WMIVariantToStr(objWbemErrorObject.Properties_.Item('Description',0).Get_Value)+#13#10+ 
          'parametre : '+WMIVariantToStr(objWbemErrorObject.Properties_.Item('ParameterInfo',0).Get_Value)+#13#10+ 
          'Code : '+WMIVariantToStr(objWbemErrorObject.Properties_.Item('StatusCode',0).Get_Value); 
      ShowMessage(S); 
    end; 
end;

1
2
ProcessContext : TSWbemNamedValueSet; 
  EventLogContext :TSWbemNamedValueSet;

1
2
3
4
5
Function TForm1.InitContexte( const strName: WideString; var varValue: OleVariant):TSWbemNamedValueSet; 
begin 
  Result:=TSWbemNamedValueSet.Create(Self); 
  Result.Add(strName,varValue,0) // IFlags tjr zéro 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormCreate(Sender: TObject); 
Var value: OleVariant; 
begin 
 //Collection liée à la gestion des instances de process Win32. 
  //Contenu 
 Value:='Instances';  
  //'SinkName' est le nom de la valeur nommée et 'Instances' son contenu. 
 ProcessContext:=InitContexte('SinkName',Value); 
  
//Collection liée à la gestion de l'eventlog. 
 Value:='EventLog'; 
 EventLogContext:=InitContexte('SinkName',Value); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var 
  Query: String; 
  Query2: String; 
  
begin 
  Query:='Select * from __InstanceDeletionEvent within 1 where TargetInstance isa "Win32_Process"'; 
  
     // On utilise le même collecteur pour 2 évènements différents 
     // On ajoute un objet TSWbemNamedValueSet afin de différencier l'événement. 
  WMIService.ExecNotificationQueryAsync(SWbemSink1.DefaultInterface, 
                                        Query, 
                                        'WQL', 
                                        wbemFlagSendStatus, 
                                        Nil, 
                                        ProcessContext.DefaultInterface);  
  
  Query2:='Select * from __InstanceCreationEvent where TargetInstance isa "Win32_NTLogEvent"'; 
  
  WMIService.ExecNotificationQueryAsync(SWbemSink1.DefaultInterface, 
                                        Query2, 
                                        'WQL', 
                                        wbemFlagSendStatus, 
                                        Nil, 
                                        EventLogContext.DefaultInterface); 
  
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
procedure TForm1.SWbemSink1ObjectReady(ASender: TObject; 
  const objWbemObject: ISWbemObject; 
  const objWbemAsyncContext: ISWbemNamedValueSet); 
// Déclenché lorsqu'un objet fourni par l'appel asynchrone est disponible. 
// ObjWbemObject contient l'objet retourné 
  
var WmiObjet: ISWbemObject; 
    Contexte : ISWbemNamedValue; 
    WMILastError: TSWbemLastError; 
  
begin 
 If Not VarIsEmpty(objWbemAsyncContext) then 
  begin 
   try 
     Contexte:=objWbemAsyncContext.Item('SinkName',0); // IFlags tjr zéro 
      // Si l'item n'existe pas, renvoie=wbemErrNotFound 
   except 
     on E:Exception do 
      begin 
       if (E is EOleException) or (E is EOleSysError) then 
        begin 
         if ExistWMIErreur(WMILastError,Self) 
          then ShowWMIErreur('Collecteur événement onReady : Méthode Item .',WMILastError,(E as EOleException)); 
         Memo1.Lines.Add(#13#10+'Test d''item inexistant.'); 
         Memo1.Lines.Add(StrOriginError((E as EOleException).ErrorCode)); 
         Memo1.Lines.Add('Erreur ['+IntToHex((E as EOleException).ErrorCode,8)+'] '+E.Message); 
        end 
       else Raise; //On redéclenche l'exception inconnue 
      end; 
   end; //Except 
  
       // L'objet retourné contient une copie de l'instance de l'eventlog crée. 
       // TargetInstance est une propriété commune aux classes : 
       //                __InstanceCreationEvent 
       //                __InstanceDeletionEvent 
  
      WmiObjet:=IUnknown(objWbemObject.Properties_.Item('TargetInstance',0).Get_Value) as ISWbemObject; 
  
    If Contexte.Get_Value = 'Instances' 
     Then Memo1.Lines.Add(#13#10+'Le process '+WMIVariantToStr(WmiObjet.Properties_.Item('Name',0).Get_Value)+ 
                          ' s''est terminé.'+#13#10) 
     else 
       If Contexte.Get_Value = 'EventLog' 
        then Memo1.Lines.Add(#13#10+'Un événement vient d''être ajouté au journal des événements '+ 
			#13#10+WMIVariantToStr(WmiObjet.Properties_.Item('Message',0).Get_Value)) 
        else 
         begin 
          Memo1.Lines.Add('Contexte non géré.'); 
          Exit; 
         end; 
    Memo1.Lines.Add(WmiObjet.Path_.path); 
    Memo1.Lines.Add(AdjustLineBreaks(WmiObjet.GetObjectText_(0))); 
  end; 
  // Else 
  
  // 'Contexte' est une interface ISWbemNamedValue locale à cette procédure, Delphi 
  // se charge de décrémenter son compteur de référence. 
end;

1
2
3
4
Const  
 cstWMIEvent: Array[0..2] of String=('__InstanceCreationEvent', 
                                     '__InstanceDeletionEvent', 
                                     '__InstanceModificationEvent');

1
2
3
4
5
//On est informé d'une opération sur un fichier dans un directory, 
// les '\' sont dupliqués. 
  Query:='Select * from __InstanceOperationEvent within 1'+ 
         ' where TargetInstance ISA ''CIM_DataFile'''+ 
         ' and TargetInstance.name=''c:\\temp\\test.txt''';

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Quelle requête gère-t-on ? 
      If Contexte.Get_Value = 'Fichier' 
       Then 
        begin 
           //On détermine le type de l'événement d'après son nom de classe 
         Case AnsiIndexStr(objWbemObject.Path_.Class_,cstWMIEvent) of 
          0 : Memo1.Lines.Add('Création'); 
          1 : Memo1.Lines.Add('Suppression'); 
          2 : Memo1.Lines.Add('Modification'); 
         end; 
          //Affiche le nom du fichier, déjà connu dans cet exemple 
         NomFichier:=WMIVariantToStr(WmiObjet.Properties_.Item('Name',0).Get_Value); 
         Memo1.Lines.Add(#13#10+'Fichier concerné : '+WMIGetNomFichier(NomFichier)+#13#10); 
        end