Açilan dosyanin tarih ve zamanini ayarlamak
[CODEvarf: file;beginAssign(f, DirInfo.Name);Reset(f);SetFTime(f, Time);Close(f);end;Deltree{$I-} {$I+}procedure delTree (DirName: string);varFileSearch: SearchRec;beginchDir (DirName);FindFirst ('*.*', Directory, FileSearch);while (DosError = 0) do beginif (FileSearch.name <> '.') AND (FileSearch.name <> '..') AND( (FileSearch.attr AND Directory) <> 0)then beginif DirName[length(DirName)] = '\' thendelTree (DirName+FileSearch.Name)elsedelTree (DirName+'\'+FileSearch.Name);ChDir (DirName);end;FindNext (FileSearch)end;FindFirst ('*.*', AnyFile, FileSearch);while (DosError = 0) do beginif (FileSearch.name <> '.') AND (FileSearch.name <> '..') thenRemove (workdir);end;FindNext (FileSearch)end;rmDir (DirName)end;][/CODE]