Wenn es nicht um Sortierung geht, sondern nur darum, herauszufinden, welche Datei zuletzt geändert wurde, kannst Du es mal hiermit versuchen (schnell getippselt, kann noch Fehler enthalten):
Delphi-Quellcode:
function FindLatestModified(sPath: string): string;
var Data: TWin32FindData;
LastModified: TDateTime;
sTime: TSystemTime;
FindHandle: Cardinal;
begin
LastModified := 0;
Result := '';
sPath := IncludeTrailingPathDelimiter(sPath);
FindHandle := FindFirstFile(PChar(sPath + '*.*'),Data);
if FindHandle <> INVALID_HANDLE_VALUE then
begin
repeat
if ((Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0) then
begin
FileTimeToSystemTime(Data.ftLastWriteTime,sTime);
if (SystemTimeToDateTime(sTime) > LastModified) then
begin
LastModified := SystemTimeToDateTime(sTime);
Result := Data.cFileName;
end;
end;
until not FindNextFile(FindHandle,Data);
Windows.FindClose(FindHandle);
end;
end;