FAQ DelphiConsultez toutes les FAQ

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
Procedure EnumSR;  
var  
  WmiDateTime : TSWbemDateTime;  
  CreationTime : String;  
  
begin  
 ...  
  WmiDateTime:= TSWbemDateTime.Create(Nil);  
 try  
  ...  
   If WmiProperty.name='CreationTime'  
     then  
       With WmiDateTime do  
       begin  
  
          // Format de date CIM_DATETIME (UTC)  
         CreationTime:=WmiProperty.Get_Value;  
         UTCSpecified:=True;  
         Year:=StrToInt(Copy(CreationTime,1,4));  
         Month:=StrToInt(Copy(CreationTime,5,2));  
         Day:=StrToInt(Copy(CreationTime,7,2));  
         Hours:=StrToInt(Copy(CreationTime,9,2));  
         Minutes:=StrToInt(Copy(CreationTime,11,2));  
         Seconds:=StrToInt(Copy(CreationTime,13,2));  
         Microseconds:=StrToInt(Copy(CreationTime,16,6));  
         Utc:=StrToInt(Copy(CreationTime,22,4));  
  
        // Format de date DATETIME  
         Write('Date : ',DateTimeToStr(GetVarDate(True)));  
       end;  
   end;  
  end;  
 Finally  
  WmiDateTime.Free;  
 end;  
end;

1
2
3
4
5
6
7
8
9
10
11
12
Function WMIGetNomFichier(PartComponent:String):TFileName; 
//Reçoit:  \\AMD2800\root\cimv2:CIM_DataFile.Name="c:\\temp\\NouveauFichier.TXT" 
//Renvoie un nom de fichier Win32 : c:\temp\NouveauFichier.TXT 
  
Var lpos:Integer; 
begin 
 lpos:=Pos('=',PartComponent); 
 Delete(PartComponent,1,Lpos); 
  
  //Supprime les \ en double et supprime les guillemets 
 Result:=AnsiReplaceStr(AnsiReplaceStr(PartComponent,'\\','\'),'"','');; 
end;