Дата создания файла и использование структуры 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;

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