Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Вниз
Дата и время создания файла. Найти похожие ветки
← →
_Max © (2005-05-30 15:43) [0]Как узнать сабж ?
← →
raidan © (2005-05-30 16:06) [1]Можно узнать только дату последнего изменения.
← →
Anatoly Podgoretsky © (2005-05-30 16:16) [2]Можно узнать все три даты. Например через FindFirst
← →
Stanislav © (2005-05-30 16:41) [3]procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateTimeToStr( GetFDateA ("C:\myFile.exe")));
end;
function GetFDateA(FileName:String): Double;
var
FD:TWIN32FindData;
D:Integer;
FileTime, LocalFileTime: TFileTime;
begin
Result:=0;
if not Fileexists (FileName) then exit;
Windows.FindFirstFile(PChar(FileName),FD);
FileTime:=Fd.ftCreationTime;
FileTimeToLocalFileTime(FileTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(D).Hi,LongRec(D).Lo);
Result:=FileDateToDateTime (D);
end;
← →
Stanislav © (2005-05-30 16:44) [4]если заменить строку FileTime:=Fd.ftCreationTime;
на FileTime:=Fd.ftLastAccessTime или
FileTime:=Fd.ftLastWriteTime
Узнаешь остальные даты.
← →
begin...end © (2005-05-30 20:20) [5]1. FindFirstFile
2. CreateFile + GetFileTime
3. FileAge
← →
raidan © (2005-05-30 20:35) [6]Удалено модератором
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.048 c
