Dosya oluşturma tarihini almak..

[Shou]

Merhabalar 2 gün önce açtığım konuda bir dosyanın güncelleme tarihini almayı istemiştim sağolsun @SimaWB abimiz söyledi fakat bu işime yaramadı ben bir dosyanın oluşturma tarihini nasıl alırım?

Bir dosyanın değiştirilme tarihini verir:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  FileDT : TDateTime;
  FileOSDate : integer;
begin
  FileOSDate := FileAge('C:\Deneme.exe');
  if FileOSDate = -1 then Exit;

  FileDT := FileDateToDateTime(FileOSDate);
  Caption := FormatDateTime('dd/mm/yyy hh:nn', FileDT);
end;

aynı türden oluşturma tarihi nasıl alıcaz??

[SimaWB]

Daha önceki sorunuzda bahsettiğiniz TSearchRec'u kullanarak tespit edebilirsiniz:

Kod: Tümünü seç

  aSRec: TSearchRec;
//...
  aSRec.FindData.ftCreationTime
  aSRec.FindData.ftLastAccessTime
  aSRec.FindData.ftLastWriteTime

[Shou]

teşekkür ederim'de örnek verebilirmisiniz nasıl kullanıcam?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
   SR: TSearchRec;
   st: TSystemTime;
 begin
   if FindFirst ('c:\bbayram.txt', faAnyFile, SR) = 0 then
   begin
     FileTimeToSystemTime (SR.FindData.ftCreationTime, st);
     caption := (format ('%d-%d-%d', [st.wYear, st.wHour, st.wMinute]));
     label1.caption := (format ('%d-%d-%d', [st.wDay, st.wMonth, st.wYear]));
   end;
   FindClose (SR);
end;

böyle denemeler yaptım sonuç alamadım abi ya dakika ve saniyesini almam gerekıyor ??

[SimaWB]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
   SR: TSearchRec;
   st: TSystemTime;
   lt: TFileTime;
   dt: TDateTime;
begin
   if FindFirst ('c:\bbayram.txt', faAnyFile, SR) = 0 then
   begin
     FileTimeToLocalFileTime(SR.FindData.ftCreationTime, lt);
     FileTimeToSystemTime(lt, st);
     dt := SystemTimeToDateTime(st);
     label1.caption := FormatDateTime('dd/mm/yyyy hh:nn:ss', dt);
   end;
   FindClose (SR);
end;

[Shou]

çok teşekkür ettim abi sağolasın