Со временем поясните

← →
Time (2004-04-07 23:42) [0]

procedure TForm1.Button2Click(Sender: TObject);
var tt:TSearchRec; mm:SYSTEMTIME;
begin
FindFirst("d:\1",$3f,tt);
FileTimeToSystemTime(tt.FindData.ftCreationTime,mm);
Form1.Label7.Caption:=IntToStr(mm.wYear);
Form1.Label8.Caption:=IntToStr(mm.wMonth);
Form1.Label9.Caption:=IntToStr(mm.wDay);
Form1.Label10.Caption:=IntToStr(mm.wHour);
Form1.Label11.Caption:=IntToStr(mm.wMinute);
Form1.Label12.Caption:=IntToStr(mm.wSecond);

end;
Не получается только правильно определить час создания папки.
Гринвич прибавляю все равно 1 часа не хватает. Естественно папку d:\1 надо создать.
Причем такая байда даже если папку создал в зимнее время или летнее.
Как правильно его получить?

← →
Islander (2004-04-07 23:46) [1]

Файловая система какая?

← →
Time (2004-04-07 23:48) [2]

FAT32

← →
Игорь Шевченко © (2004-04-07 23:50) [3]

GetTimeZoneInformation + SystemTimeToTzSpecificLocalTime не поможет ?

← →
Anatoly Podgoretsky © (2004-04-07 23:51) [4]

FileTimeToLocalTime

← →
Islander (2004-04-07 23:53) [5]

Попробуй это TempDate :=FileDateToDateTime(TT.Time);

← →
Time (2004-04-07 23:59) [6]

Со временем поясните Найти похожие ветки