Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

Спасибо тебе отдельное- Anatoly Podgoretsky ©
Вопрос снят.
Родина Вас всех не забудет.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c