Probleme GetFileTime

Bonjour,

J'utilise la fonction présente dans la FAQ pour les date de fichier de la facon suivante:

Code:

---

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

function TForm1.Verification_Date(const FileName, jours: string): boolean; var h: THandle; Info1, Info2, Info3: TFileTime; SysTimeStruct: SYSTEMTIME; TimeZoneInfo: TTimeZoneInformation; Bias: Double; Created, Accessed, Modified : TDateTime; Begin   Bias := 0; h := FileOpen(FileName, fmOpenRead or fmShareDenyNone); if h > 0 then begin try if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then Bias := TimeZoneInfo.Bias / 1440; // 60x24 GetFileTime(h, @Info1, @Info2, @Info3); if FileTimeToSystemTime(Info1, SysTimeStruct) then Created := SystemTimeToDateTime(SysTimeStruct) - Bias; if FileTimeToSystemTime(Info2, SysTimeStruct) then Accessed := SystemTimeToDateTime(SysTimeStruct) - Bias; if FileTimeToSystemTime(Info3, SysTimeStruct) then Modified := SystemTimeToDateTime(SysTimeStruct) - Bias; ListBox1.Items.Add(Filename+' | '+jours+' | '+TimeToStr(Created)+' | '+TimeToStr(Accessed)+' | '+TimeToStr(Modified)+''); Result := True; finally FileClose(h); end; end; End;

---

Or, dans ma liste box les dates correspondantes aux fichiers ne correspondent a rien de connu et sont les memes pour tous les fichiers alors que je ne les ai pas créés en même temps.

Voila ce que cela donne :

http://img400.imageshack.us/img400/5...emedate5ie.jpg

Quelsqu'un pourrais-t-il me dire où j'ai merdé?
Merci d'avance


PS : mon FileName n'est pas en cause à ^riori puisque pour eliminer la possibilité que se soit le cas j'ai essayé de travailler avec un fichier à la racine du C: en le passant direcetement en parametre.

Bon alors déjà escusez moi je viens de trouver un premiere erreur à la con c'est pas des TimeToStr qu'il faut que j'utilise pour afficher mais des DateToStr.

Ceci fait le probleme est différent, j'ai des dates fantasque telles que 23/01/1777 ou 02/05/1958

Je me permet de faire un tout ptit up mon post ayant tendance à descendre dans les profondeurs du forum... :wink:

a tout hasard , il faudrait pas mettre les deux ? Datetostr et timetostr ?

en fait j'avais mal regardé, c'est pas des Tdate c'est des TDateTime, donc ton format de sortie doit être en conséquence. regarde dans la faq comment formater une date ça cause de TdateTime.