Скачать: CL | DM;

Дата создания файла и использование структуры FileTime.   Найти похожие ветки 

← →
Aalexis   (2003-11-21 13:34) [0]

В хелпе узнал о процедуре GetFileTime, в качестве параметров надо указывать структуры FileTime, а о них я практически не имею представления.
Написано, что структуру надо копировать в LargeInteger, а потом использовать 64-х битовую арифметику(???)

Как получить дату создания файла или папки в формате год-месяц-день.

Буду признателен, если приведете готовый пример, или ссылку на толковую статью.

---

← →
Dimka Maslov ©   (2003-11-21 14:42) [1]

FileTimeToSystemTime тебе поможет

---

← →
Alexis ©   (2003-11-25 15:19) [2]

А со структурой SystemTime как дальше быть?
Вообще в хелпе написано, что перед вызовом GetFileTime надо

"create file handle with Generic_Read access" или что-то в этом роде.Проясните ситуацию!

При выполнении кода:

var
sozd_file:FileTime;
sozd_syst:SystemTime;
god,mesiac,den:Word;
god1,mesiac1,den1:integer;

begin
GetFileTime(0,@sozd_file,nil,nil);
Filetimetosystemtime(sozd_file,sozd_syst);
god:=sozd_syst.wYear;
mesiac:=sozd_syst.wMonth;
den:=sozd_syst.wDay;
god1:=god;mesiac1:=mesiac;den1:=den;
showmessage("data sozdanija ssearch.txt= "+inttostr(god1)+inttostr(mesiac1)+inttostr(den1));

end.

результат мягко говоря далек от истины :)
Буду признателен за помощь или ссылку на детальную статью.

---

← →
Dimka Maslov ©   (2003-11-25 17:42) [3]

языки учим: паскаль и английский

create file handle with GENERIC_READ access означает "открыть файл только для чтения", другими словами

var
Handle: HFILE;
FTime: TFileTime;
STime: TSystemTime;
begin
Handle := CreateFile(PChar("ssearch.txt"), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING, 0, 0);
GetFileTime(Handle, @FTime, nil, nil);
FileTimeToSystemTime(FTime, STime);
CloseHandle(Handle);
with STime do
ShowMessageFmt("Дата создания файла: %.2d.%.2d.%.4d", [wDay, wMonth, wYear]);
end;

---

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

Скачать: CL | DM;



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