Pytanie : Delphi dostawać po raz ostatni modyfikować kartoteka w falcówka

Dobry day

I potrzeba kartoteka który po raz ostatni modyfikować w falcówka. I znać the filename, I tylko znać the książka telefoniczna i the rozszerzenie the file.

Does anyone znać dlaczego the imię opóźniony kartoteka w książka telefoniczna jeżeli I znać the extension.

Regards

Odpowiedź : Delphi dostawać po raz ostatni modyfikować kartoteka w falcówka

To robić. Ono szukać w książka telefoniczna książka telefoniczna
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

funkcja FindLastWrittenFile (Dir, Rewizja: Sznurek): Sznurek;
Var
 R: TSearchRec;
 LastWrite, LastWriteAllFiles: TDateTime;
zaczynać
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Rezultat: = '';
 jeżeli FindFirst (Dir+Search, faAnyFile-faDirectory, R) =0 wtedy
  powtórka
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   jeżeli LastWrite>LastWriteAllFiles Wtedy
    zaczynać
     LastWriteAllFiles: =LastWrite;
     Rezultat: =R.Name;
    końcówka;
  do FindNext (R)<> (0);
 FindClose (R); 
końcówka;
Inne rozwiązania  
 
programming4us programming4us