unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
TDateTime TForm1::GetFileTime(String sFilename, int TimeType)
{
        WIN32_FIND_DATA ffd;
        WORD fd,ft;
        DWORD fdt;
        FILETIME lft,Time;
        HANDLE H;
        H=FindFirstFile(sFilename.c_str(),&ffd);
        switch(TimeType)
        {
                case 0:         //获取文件创建时间
                        Time = ffd.ftCreationTime;
                        break;
                case 1:         //获取文件更改时间
                        Time = ffd.ftLastWriteTime;
                        break;
                case 2:         //获取文件最后访问时间
                        Time = ffd.ftLastAccessTime;
                        break;
                default:
                        Time = ffd.ftCreationTime;
        }
        if(H!=INVALID_HANDLE_VALUE)
        {
                FindClose(H);
                FileTimeToLocalFileTime(&Time,&lft);
                FileTimeToDosDateTime(&lft,&fd,&ft);
                return FileDateToDateTime(MAKELONG(ft,fd));
        }
        else
                return TDateTime();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(OpenDialog1->Execute())
                Edit1->Text=OpenDialog1->FileName;
}
//---------------------------------------------------------------------------
//获取文件创建时间
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Edit2->Text=DateToStr(GetFileTime(Edit1->Text,0));
}
//---------------------------------------------------------------------------
//获取文件更改时间
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        Edit3->Text=DateToStr(GetFileTime(Edit1->Text,1));
}
//---------------------------------------------------------------------------
//获取文件最后访问时间
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        Edit4->Text=DateToStr(GetFileTime(Edit1->Text,2));
}
//---------------------------------------------------------------------------