Delphi FAQ >> Файлы и каталоги
Чтобы узнать время последнего изменения файла, можно воспользоваться следующей функцией на Delphi:
function FileLastWrite (const filename : string) : string;
var FileHandle : THandle; LocalFileTime : TFileTime; DosFileTime : DWORD; LastAccessedTime : TDateTime; FindData : TWin32FindData;
begin
Result := »; FileHandle := FindFirstFile(PChar(filename), FindData);
if FileHandle INVALID_HANDLE_VALUE then
begin Windows.FindClose(FileHandle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime); FileTimeToDosDateTime(LocalFileTime, LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo); LastAccessedTime := FileDateToDateTime(DosFileTime); Result := DateTimeToStr(LastAccessedTime);
end;
end;
end;
У нас в Минске компьютеры и бытовая техника стоят достаточно дорого, поэтому, когда я решил купить себе ноут, то изучил цены в соседних государствах. В итоге решил, что куплю ноутбук в Москве, так как там цены на них значительно ниже.