Discussion :

[ILP]

Bonjour, voici une petite fonction permettant de retourner les dates d'un fichier en prenant en compte le décalage horaire et l'heure d'été.

Le type retourné par la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
// Dates d'un fichier
TDatesFichier = record
  DateCreation      : TDateTime;
  DateAcces         : TDateTime;    
  DateModification  : TDateTime;
end;

Et la fonction en elle même :

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
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
 
// Retourne les dates d'un fichier
function DatesFichier(NomFichier: String): TDatesFichier;
var
  HandleFichier: THandle;
  DtCreation, DtAcces, DtModif: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  DecalageHoraire: Double;
begin
  // Récupère le décalage horaire
  case GetTimeZoneInformation(TimeZoneInfo) of
    TIME_ZONE_ID_STANDARD:
      DecalageHoraire :=
        (TimeZoneInfo.Bias + TimeZoneInfo.StandardBias) / 1440;
    TIME_ZONE_ID_DAYLIGHT:
      DecalageHoraire :=
        (TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias) / 1440;
  end;
 
  // Récupère le handle du fichier
  HandleFichier := FileOpen(NomFichier, fmOpenRead or fmShareDenyNone);
  // Récupère les dates du fichier
  GetFileTime(HandleFichier, @DtCreation, @DtAcces, @DtModif);
 
  // Retourne les dates du fichier
  with Result do
  begin
    // Date de création
    if FileTimeToSystemTime(DtCreation, SysTimeStruct) then
      DateCreation := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      DateCreation := 0;
 
    // Date du dernier accès
    if FileTimeToSystemTime(DtAcces, SysTimeStruct) then
      DateAcces := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      DateAcces := 0;
 
    // Date de la dernière modification
    if FileTimeToSystemTime(DtModif, SysTimeStruct) then
      DateModification := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      DateModification := 0;
  end;
end;

[Pedro]

Merci pour ta participation

[cantador]

Bonjour,

je me permets de poursuivre ce post fermé en proposant une
petite modification de cette fonction que je trouve plus agréable à utiliser de cette manière :

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
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
 
function GetFileTimes(NomFichier: string; var Created: TDateTime;
  var Accessed: TDateTime; var Modified: TDateTime): boolean;
var
  HandleFichier: THandle;
  DtCreation, DtAcces, DtModif: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  DecalageHoraire: Double;
begin
  // Récupère le décalage horaire
  case GetTimeZoneInformation(TimeZoneInfo) of
    TIME_ZONE_ID_STANDARD:
      DecalageHoraire := (TimeZoneInfo.Bias + TimeZoneInfo.StandardBias) / 1440;
    TIME_ZONE_ID_DAYLIGHT:
      DecalageHoraire := (TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias) / 1440;
  end;
 
  // Récupère le handle du fichier
  HandleFichier := FileOpen(NomFichier, fmOpenRead or fmShareDenyNone);
 
  if HandleFichier > 0 then
  begin
  // Récupère les dates du fichier
    GetFileTime(HandleFichier, @DtCreation, @DtAcces, @DtModif);
 
  // Retourne les dates du fichier
//    with Result do
//    begin
    // Date de création
    if FileTimeToSystemTime(DtCreation, SysTimeStruct) then
      Created := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      Created := 0;
 
    // Date du dernier accès
    if FileTimeToSystemTime(DtAcces, SysTimeStruct) then
      Accessed := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      Accessed := 0;
 
    // Date de la dernière modification
    if FileTimeToSystemTime(DtModif, SysTimeStruct) then
      Modified := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      Modified := 0;
 
    Result := True;
//    end;
  end;
end;

[cantador]

plus précis :

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
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
 
function GetFileTimes(NomFichier: string; var Created: TDateTime;
  var Accessed: TDateTime; var Modified: TDateTime): boolean;
var
  HandleFichier: THandle;
  DtCreation, DtAcces, DtModif: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  DecalageHoraire: Double;
begin
  DecalageHoraire := 0;
  Result := false;
  // Récupère le décalage horaire
  case GetTimeZoneInformation(TimeZoneInfo) of
    TIME_ZONE_ID_STANDARD:
      DecalageHoraire := (TimeZoneInfo.Bias + TimeZoneInfo.StandardBias) / 1440;
    TIME_ZONE_ID_DAYLIGHT:
      DecalageHoraire := (TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias) / 1440;
  end;
  // Récupère le handle du fichier
  HandleFichier := FileOpen(NomFichier, fmOpenRead or fmShareDenyNone);
  if HandleFichier > 0 then
  begin
  // Récupère les dates du fichier
    GetFileTime(HandleFichier, @DtCreation, @DtAcces, @DtModif);
  // Retourne les dates du fichier
//    with Result do
//    begin
    // Date de création
    if FileTimeToSystemTime(DtCreation, SysTimeStruct) then
      Created := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      Created := 0;
    // Date du dernier accès
    if FileTimeToSystemTime(DtAcces, SysTimeStruct) then
      Accessed := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      Accessed := 0;
    // Date de la dernière modification
    if FileTimeToSystemTime(DtModif, SysTimeStruct) then
      Modified := SystemTimeToDateTime(SysTimeStruct) - DecalageHoraire
    else
      Modified := 0;
    Result := True;
//    end;
  end;
end;