Дескриптор файла
Здравствуйте!
На диске есть файл и известен к нему путь.
Вопрос: с помощью какого Windows-объекта можно получить его дескриптор для последующей работы сним. А именно: мне необходимо узнать время и дату последнего изменения файла.
На диске есть файл и известен к нему путь.
Вопрос: с помощью какого Windows-объекта можно получить его дескриптор для последующей работы сним. А именно: мне необходимо узнать время и дату последнего изменения файла.
Использовать
Она вернет в TSearchRec время последнего изменения файла.
Код:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
Она вернет в TSearchRec время последнего изменения файла.
Большое Вам спасибо, а все-же как узнать дескриптор файла?
чтобы узнать дескриптор файла нужно использовать API функцию CreateFile.
Для получения даты последнего изменения файла я использую следующий код:
var
FileStream: TFileStream;
LastWriteTime: FILETIME;
s: string;
begin
FileStream := TFileStream.Create(FileName, fmOpenRead);
GetFileTime(FileStream.Handle, Nil, Nil, @LastWriteTime);
result := LastWriteTime.dwHighDateTime;
s := DateTimeToStr(result);
FileStream.Free;
Но S выводит совсем не то! Помогите, как быть?
var
FileStream: TFileStream;
LastWriteTime: FILETIME;
s: string;
begin
FileStream := TFileStream.Create(FileName, fmOpenRead);
GetFileTime(FileStream.Handle, Nil, Nil, @LastWriteTime);
result := LastWriteTime.dwHighDateTime;
s := DateTimeToStr(result);
FileStream.Free;
Но S выводит совсем не то! Помогите, как быть?
ну сделать можно так:
в s будет то, что нужно.
Код:
var
FileStream: TFileStream;
s: string;
begin
FileStream := TFileStream.Create(FileName, fmOpenRead);
s := DateTimeToStr(FileDateToDateTime(FileGetDate(FileStream.Handle)));
FileStream.Free;
FileStream: TFileStream;
s: string;
begin
FileStream := TFileStream.Create(FileName, fmOpenRead);
s := DateTimeToStr(FileDateToDateTime(FileGetDate(FileStream.Handle)));
FileStream.Free;
в s будет то, что нужно.
Вы мне очень помогли. Большое спасибо!