teles40 napisał(a)
I co się od kalafiorów wyzywacie ;)
Ścieżka jest prawidłowa tylko plik jest już otwarty (baza danych)
Pytanie brzmi: czy i jak można odczytać datę z owartego pliku?
Czyli jednak mialem rację :P
Można zrobić sobie funkcję (powinna działać) ale ostrzegam że nie chciało mi sie sprawdzać.
function GetLastModTime(FileName: string;var DateTime: TDateTime): Boolean;
var
SearchRec: TSearchRec;
begin
result:= False;
if FindFirst(FileName, faAnyFile, SearchRec) = 0 then
begin
DateTime:= FileDateToDateTime(SearchRec.Time);
FindClose(SearchRec);
result:= True;
end;
end;
i przykład użycia:
var
MyTime: TDateTime;
begin
if GetLastModTime('C:\Moje Dokumenty\db1.mdb', MyTime) then
ShowMessage(DateTimeToStr(MyTime));
end;