Форум: "WinAPI";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизВремя создания файла. Найти похожие ветки
← →
Wladimir (2002-02-15 22:38) [0]Пож. помогите извлеч дату создания файла. Именно - создания, а не последнего изменения. Спасибо.
← →
Фэ (2002-02-16 01:22) [1]Ведь просто не хотелось по справке искать, так ?
TSearchRec = record
Time: Integer; //Time contains the time stamp of the file.
Size: Integer; //Size contains the size of the file in bytes.
Attr: Integer; //Attr represents the file attributes of the file.
Name: TFileName; //Name contains the DOS filename and extension.
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData; //FindData contains additional information such as
//file creation time, last access time, long and short filenames.
end;
//*****************
TWin32FindData = packed record
dwFileAttributes: Integer;
ftCreationTime: Int64;
ftLastAccessTime: Int64;
ftLastWriteTime: Int64;
nFileSizeHigh: Integer;
nFileSizeLow: Integer;
dwReserved0: Integer;
dwReserved1: Integer;
cFileName: array[0..259] of Char;
cAlternateFileName: array[0..13] of Char;
end;
//*****************
function FindFirstFile(FileName: PChar; var FindFileData: TWIN32FindData): Integer; stdcall;
external kernel name "FindFirstFileA";
//**********************
А вот это из sysutils - переделай под себя
function FileAge(const FileName: string): Integer;
var
Handle: THandle;
FindData: TWin32FindData;
LocalFileTime: TFileTime;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime( FindData.ftLastWriteTime, LocalFileTime);
if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,
LongRec(Result).Lo) then Exit;
end;
end;
Result := -1;
end;
← →
Wladimir (2002-02-16 18:38) [2]Фэ, спасибо за помощь. Клянусь, по справке искал, просто по невнимательности пытался с _FILETIME работать как с 32bit
типом данных.
← →
Wladimir (2002-02-17 01:07) [3]Фэ, я воспользовался вашей помощью и понял, что я совсем не "догада", а ведь всё оказалось очень просто.
Премного благодарен.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c