Попутно. Пытаюсь организовать подобный функционал для поиска самого нового файла в папке с выводом даты его изменения и размера.
Но что то ругается на
FindFirst
TSearchRec
TSystemTime
Вот собственно сам код.Найдено на просторах.Подправил под себя но..
procedure Form1_Button5_OnClick;
var
sr: TSearchRec;
fn: string;
st: TSystemTime;
dt,ft: TDateTime;
pach: string;
filen: string;
pfile: string;
begin
fn := '';
dt := 0;
pach:= VarToStr(SQLExecute('SELECT pach FROM lastfile'));
filen:= VarToStr(SQLExecute('SELECT filename FROM lastfile'));
//if Right(path, 1) <> '\' then
pfile:= pach + '\' + filen ;
//else pfile:= path + filen;
try
if FindFirst(pfile, faAnyFile, TSearchRec) = 0 then
repeat
if sr.Attr = faDirectory then Continue;
FileTimeToSystemTime(sr.FindData.ftCreationTime, TSystemTime);
ft := SystemTimeToDateTime(TSystemTime);
if ft > dt then
begin
dt := ft;
fn := TSearchRec.Name;
end;
until (FindNext(TSearchRec) <> 0);
finally
FindClose(TSearchRec);
end;
if fn = '' then ShowMessage('Нет Файлов')
else ShowMessage('Самый новый файл: ' + fn);
end;
Может можно это реализовать как то по другому?