Egy könyvtár létrehozási ideje
A windows könyvtár létrehozási idejét nézzük meg a lenti példával, vagyis azt amikor a windows telepítve lett. Időzónától és téli-nyári időzónától független, ami azt jelenti, hogy nyáron 2 óra az eltérés itt Magyarországon. Frankón lehet belőle szériaszámot generálni.

procedure TForm1.Button2Click(Sender: TObject);
var
f:TSearchrec;
SystemTime : TSystemTime;
begin
findfirst('c:\windows',22,f);
FileTimeToSystemTime(f.FindData.ftCreationTime, SystemTime);
label1.Caption:=inttostr(systemtime.wYear);
label2.Caption:=inttostr(systemtime.wMonth);
label3.Caption:=inttostr(systemtime.wDay);
label4.Caption:=inttostr(systemtime.wHour);
label5.Caption:=inttostr(systemtime.wMinute);
label6.Caption:=inttostr(systemtime.wSecond);
findclose(f);
end;