Datum vytoření souboru v Delphi

Je to ono?
dct0046.htm

Moment, zkusím to.

Ne, to není ono. Když ten soubor dnes změní, tak se mi opět vypíše dnešní datum, ikdyž byl soubor vytvořen 16.7.2007. Když si v Salamanderu vypíši vlastnosti tak mě t normálně vypíše Vytvořeno 16.7.2007 Změněno 31.8.2008. V mém programu mi to vypíše datum 31.8.2008, ikdyž jsem to udělal podle příkladu na té doporučené stránce.

Použij API funkce GetFileVersionInfo a VerQueryValue.

Ak prehladavas cely adresar, tak pomocou WinAPI funkcii (FindFirstFile, FindNextFile), a pouzivaj MSDN tam mas vsetko napisane.
http://msdn.microsoft.com/en-us/library/aa364418.as px
http://msdn.microsoft.com/en-us/library/aa365740(VS .85).aspx

P.S. ak ti ide len o jeden konkretny subor, tak vid vyssie co pisal RCE.

Popr. rimo Delphi implementaci, ktera to zapouzdruje - FindFirst, FindNext. V TSearchRec strukture jou udaje obsazeny, jen je teba je prevest z FileTime na DateTime

Takže TSearchRec.FindData.ftCreationTime musím nějakým způsobem převést na typ TDateTime?

Napriklad pomoci funkce, vykradene z knihovny JCL:

function FileTimeToLocalDateTime(const FileTime: TFileTime): TDateTime;
var
  LocalFileTime: TFileTime;
begin
  ResultCheck(FileTimeToLocalFileTime(FileTime, LocalFileTime));
  Result := FileTimeToDateTime(LocalFileTime);
end;

Tak jsem si stáhl ty knihovny JCL, ale ty funkcr jsem v žádné nenašel. Jak se jmenuje ta knihovna, ve které ty funkce jsou? -Knihovnu JCl.dll jsem nenašel.

Knihovnou JCL jsou mysleny unity .PAS, nemluvil jsem o DLL.
Pak ti staci obycejne hledani v souborech, pokud nejsi schopny pouzit prilozeny help a zjistit, ze ta funkce je deklarovana v unite JCLDateTime.PAS

Asi jsi špatně hledal...

jcl-1.102.1.3072.zip ze stránky
http://sourceforge.net/project/showfiles.php?group_ id=47514&package_id=40504&release_id=616455

V adresáři source\common\JclDateTime.pas

řádek 810, funkce FileTimeToLocalDateTime

Tak jsem si už přešlápnul, pořádně vše přečetl a zapřemýšlel. Teď už mi to funguje dle mých představ. Všem dějkuji za pomoc.