Текущий архив: 2004.02.02;
Скачать: 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 вся ветка
Текущий архив: 2004.02.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.053 c
