TimeStamp Datei...

[ColdFire]

Hy Leute !

Ich habe eine funktion gefunden mit der ich laut Beschreibung den timestamp einer datei auslesen kann...

Nur stimm das nicht!

Code:

Delphi-Quellcode:

    function GetFileTimes(const FileName: string; var Created : TDateTime;
                                                  var Accessed: TDateTime;
                                                  var Modified: TDateTime): Boolean;
      var
        h: THandle;
        Info1, Info2, Info3: TFileTime;
        SysTimeStruct: SYSTEMTIME;
        TimeZoneInfo: TTimeZoneInformation;
        Bias: Double;
        begin
          Result := False;
          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;
                Result := True;
              finally
                FileClose(h);
              end;
            end;
        end;

  procedure TForm1.Button1Click(Sender: TObject);
    var
      Date1,
      Date2,
      Date3  : TDateTime;

    begin
      if GetFileTimes(('C:\text.txt'), Date1,Date2,Date3) then
       Edit1.text:= DateTimeToStr(Date1);
       Edit2.text:= DateTimeToStr(Date2);
       Edit3.text:= DateTimeToStr(Date3);
    end;

Kann mit jemand sagen wiso ich nicht das richtige Datum bekomme ?
Kann nur was mit der länderkennung zu tun haben oder ?

lg CF

[edit=r_kerber]code- durch delphi-Tags ersetzt Mfg, r_kerber[/edit]