تاريخ انشاء Exe

استخدم هذا الكود

procedure TForm1.Button1Click(Sender: TObject);
var
  faFileAge : Integer;
  fDate : TDateTime;
begin
  faFileAge := FileAge('C:\Windows\notepad.exe');
  fDate := FileDateToDateTime(faFileAge);
  ShowMessage(DateToStr(fDate));
end;

تحياتي

:)