Yep. Just change the line
Result := _FileDateToDateTime(SearchRec.Time);
to
Result :=
_FileDateToDateTime(SearchRec.FindData.ftLastWriteTime);
The correct fix should be
Result :=
_FileDateToDateTime(_FileTimeToDosDateTime(SearchRec.FindData.ftLastWriteTime));
...
function _FileTimeToDosDateTime(ft:TFileTime):Integer;
begin
SysUtils.FileTimeToDosDateTime(ft,
LongRec(result).Hi,LongRec(result).Lo);
end;
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
