IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - dosyanın tarihini alma (https://www.ircforumlari.net/delphi/689509-dosyanin-tarihini-alma.html)

Kaf_Dağı

18 Mart 2015 14:14

dosyanın tarihini alma

Kod:

function TRamazan.dosyatarihi(xfilename: string): TDateTime;

 var x,x2:string;bulunan:Tsearchrec;

 begin

 x2:=extractfilepath(xfilename);

 x:=extractfilename(xfilename);

 chdir(x2);

 if findfirst(x,faanyfile,bulunan)=0 then

 Result:=FileDateToDateTime(bulunan.time)

 else

 Result:=0;

 end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:38.