Люди, кто знает как получить дату создания и или изменения файла

← →
deep.1 (2003-01-01 05:03) [0]

я думаю это просто, но понятия не имею как

← →
Grab © (2003-01-01 05:43) [1]

function GetFileDate(FileName: string): string; var FHandle: Integer; begin FHandle := FileOpen(FileName, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end;

ЗЫ. Временами читай FAQ... Часто помогает не тревожить людей лишними вопросами...

← →
!...Stel (2003-01-01 10:09) [2]

Можно ещё через FindFirsFile

procedure GetFileDate(FileName:pChar);
var
FIND_DATA:TWIN32FINDDATA;
begin
FindFirstFile(FileName, FIND_DATA);
FIND_DATA.ftCreationTime - Дата создания
FIND_DATA.ftLastWriteTime - Дата изменения
end;

← →
deep.1 (2003-01-01 14:53) [3]

спасибо

>!...Stel (01.01.03 10:09)
Не забывайте только за собой убирать:
FindClose

Люди, кто знает как получить дату создания и или изменения файла Найти похожие ветки