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]