Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

Фэ, я воспользовался вашей помощью и понял, что я совсем не "догада", а ведь всё оказалось очень просто.
Премного благодарен.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
14-69968          B@Nt                  2002-03-11 11:45  2002.04.22  
Где мона слить книгу по Базам?


1-69856           JMax                  2002-04-09 06:43  2002.04.22  
Мышь


4-70062           Eraser                2002-02-18 13:44  2002.04.22  
О CreateFile в win2k


1-69935           Shreck                2002-04-09 21:27  2002.04.22  
Как проверить существует ли в listbox1.items строка из edit1.text


3-69757           Awex                  2002-04-02 16:51  2002.04.22  
Пострелятационная Cache от InterSystem