Hora en que se grabó un fichero

[[escafandra]]

Un formulario con un TEdit, un TOpenDialog, un TDateTimePicker y un botón.

Al apretar el botón se abrirá el OpenDialog, elegimos un archivo. Tras la elección el nombre del archivo aparece en el Edit y la fecha de última modificación en el DateTimePicker.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

TDate GetModifyFileDate(char* FileName)
{
   WIN32_FILE_ATTRIBUTE_DATA FileData;
   SYSTEMTIME SystemTime;
   GetFileAttributesEx(FileName, GetFileExInfoStandard, &FileData);
   FileTimeToSystemTime(&FileData.ftLastWriteTime, &SystemTime);
   return EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay);
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(OpenDialog1->Execute()){
    Edit1->Text = OpenDialog1->FileName;
    DateTimePicker1->Date = GetModifyFileDate(OpenDialog1->FileName.c_str());
  }
}
//---------------------------------------------------------------------------

Saludos.