Текущий архив: 2006.03.19;
Скачать: CL | DM;

Вниз

Работа с файлами   Найти похожие ветки 

← →
Vitalik__   (2006-02-28 21:34) [0]

неподскажите как узнать дату создания файла c:\aaa.txt

---

← →
FileDate   (2006-02-28 21:59) [1]


procedure TForm1.FormCreate(Sender: TObject);
VAR R:TSearchRec;
begin
FindFirst("c:\aaa.txt",faAnyFile,R);
Caption:=TimeToStr(FileDateToDateTime(R.Time))+" "+DateToStr(FileDateToDateTime(R.Time));
end;


---

← →
FileDate   (2006-02-28 22:00) [2]


procedure TForm1.FormCreate(Sender: TObject);
VAR R:TSearchRec;
begin
FindFirst("c:\aaa.txt",faAnyFile,R);
Caption:=TimeToStr(FileDateToDateTime(R.Time))+" "+DateToStr(FileDateToDateTime(R.Time));
end;


---

← →
Desdechado ©   (2006-02-28 22:00) [3]

GetFileTime

---

← →
DesWind ©   (2006-02-28 22:00) [4]

GetFileTime

---

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

Текущий архив: 2006.03.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.051 c