Форум: "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.022 c
3-69698           Рамиль                2002-03-29 20:13  2002.04.22  
Проблема открыть


1-69812           Dimaiv                2002-04-09 18:43  2002.04.22  
Что такое файлы с призвольным доступом и как с ними работать?


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


1-69900           Jony                  2002-04-09 13:58  2002.04.22  
Навороченный выход из программы.


3-69716           Viktor Erko           2002-03-30 10:27  2002.04.22  
Потеря 1-4 коп. при суммировании чисел из базы даных