急，如何获得一个文件夹的创建日期？(200分)

jyniu · 2000-12-26

你可以使用CreateFile打开一个文件夹，得到它的句柄， /*********************************** The CreateFile function creates or opens the following objects and returns a handle that can be used to access the object:   * Consoles   * Communications resources   * Directories (open only)     ~~~~~~~~~~~~~~~~~~~~~~~~~~   * Disk devices (Windows NT/2000 only)   * Files   * Mailslots   * Pipes ****************************************/ 然后使用下面函数来得到你要的时间 BOOL GetFileTime(   HANDLE hFile,                 // handle to file   LPFILETIME lpCreationTime,    // creation time   LPFILETIME lpLastAccessTime,  // last access time   LPFILETIME lpLastWriteTime    // last write time );

Reboot · 2000-12-26

GetFileInformation

guotong · 2000-12-26

TDosTime=Record     Hour      : Byte;     Minutes   : Byte;     seconds   : Byte;   end;   TDosDate = Record     Year   : Word;     Month  : Byte;     Day    : Byte;   end; var   Form1: TForm1;   hFile: THandle;            // a handle to the opened file implementation {this function provides a convenient way to convert a  Dos time into its component parts} function ConvertDosTimeToSystemTime(FileDosTime: WORD): TDosTime; var   DosTime: TDosTime; begin   DosTime.Seconds := (FileDosTime and $1F) * 2;   DosTime.Minutes := (FileDosTime and $7E0) shr 5;   DosTime.Hour    := (FileDosTime and $F800) shr 11;   Result          := DosTime; end; {this function provides a convenient way to convert a  Dos date into its component parts} function ConvertDosDateToSystemDate(FileDosDate: WORD): TDosDate; var   DosDate: TDosDate; begin   DosDate.Day   := FileDosDate and $1F;   DosDate.Month := FileDosDate and $1E0 shr 5;   DosDate.Year  := (FileDosDate and $FE00) shr 9 + 1980;   Result        := DosDate; end; procedure TForm1.SpeedButton2Click(Sender: TObject); var   Security: TSecurityAttributes;        // attributes for the opened file   FileName: PChar;                      // holds the filename   WriteTime, LocalTime: TFILETIME;      // holds file times   DosDate, DosTime: WORD;               // holds the Dos date and time   infoDosTime: TDosTime;                // holds Dos time information   infoDosDate: TDosDate;                // holds Dos date information   SystemTime: TSystemTime;              // holds the last modification time begin   {setup the security attributes for the opened file}   Security.nLength := SizeOf(TSecurityAttributes);   Security.lpSecurityDescriptor := nil;   Security.bInheritHandle := FALSE;   {display the open dialog box}   if OpenDialog1.Execute then   begin     {display the selected filename...}     FileName := PChar(OpenDialog1.FileName);     StatusBar1.SimpleText := FileName;     {...and open it}     hFile := CreateFile(PChar(FileName),GENERIC_READ or GENERIC_WRITE,                         FILE_SHARE_READ or FILE_SHARE_WRITE, @Security,                         OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);     {if there was an error, show a message}     if hFile = INVALID_HANDLE_VALUE then     begin       ShowMessage('Error Opening File');       Exit;     end;   end;   {retrieve the last modification time}   GetFileTime(hFile, nil, nil, @WriteTime);   {convert the time to local file time}   FileTimeToLocalFileTime(WriteTime, LocalTime);   {finally, convert the time to the system time, so that it    will match the file time displayed in the Explorer}   FileTimeToSystemTime(LocalTime, SystemTime);   {convert the file time into Dos date and time components...}   FileTimeToDosDateTime(LocalTime, DosDate, DosTime);   {...and convert it back}   if not DosDateTimeToFileTime(DosDate, DosTime, LocalTime) then     ShowMessage ('An error occured when converting Dos date and time back to'+                  ' file time.');   {break out the component parts of the Dos date and time for easy display}   infoDosTime := ConvertDosTimeToSystemTime(DosTime);   infoDosDate := ConvertDosDateToSystemDate(DosDate);   with infoDosTime do     Edit1.Text := ComboBox1.Items[infoDosDate.Month - 1]+ ' ' +                   IntToStr(infoDosDate.Day) + ',' +                   IntToStr(infoDosDate.Year) + '  ' +                   IntToStr(Hour) + ':' +                   IntToStr(Minutes) + ':' +                   IntToStr(Seconds) ;   {indicate the time of day}   case SystemTime.WHour of     12        : Label1.Caption := 'PM';     13..24    : begin                   Label1.Caption := 'PM';                   SystemTime.wHour:=SystemTime.wHour - 12;                 end;     0         : SystemTime.wHour:= 12;   else     Label1.Caption := 'AM';   end;   {display the last modification time of the file}   SpinEdit1.Value     := SystemTime.wYear;   SpinEdit2.Value     := SystemTime.wHour;   SpinEdit3.Value     := SystemTime.wMinute;   SpinEdit4.Value     := SystemTime.wSecond;   ComboBox1.ItemIndex := SystemTime.wMonth - 1;   Calendar1.Month     := SystemTime.wMonth;   Calendar1.Day       := SystemTime.wDay; end; procedure TForm1.SpeedButton3Click(Sender: TObject); var   FileTime, LocalFileTime: TFileTime;  // holds file times   SystemTime: TSystemTime;             // holds system time information begin   {prepare the time information from the values set by the user}   SystemTime.wHour   := SpinEdit2.Value;   if (Label1.Caption = 'PM') and (SystemTime.wHour < 12) then       SystemTime.wHour := SystemTime.wHour + 12;   SystemTime.wMinute := SpinEdit3.Value;   SystemTime.wSecond := SpinEdit4.Value;   SystemTime.wYear   := SpinEdit1.Value;   SystemTime.wMonth  := ComboBox1.ItemIndex + 1;   SystemTime.wDay    := Calendar1.Day;   {convert the system time to a local file time}   SystemTimeToFileTime(SystemTime,LocalFileTime);   {convert the local file time to a file time that the file system understands}   LocalFileTimeToFileTime(LocalFileTime,FileTime);   {use this time to set the last modification time which shows    up in the Explorer}   SetFileTime(hFile, nil, nil, @FileTime); end;

thudb · 2000-12-26

jyniu、guotong 好象CreateFile只能打开文件，而不能打开文件夹，我到的是哪错了？

教父 · 2000-12-26

搞定，哈哈 procedure TForm1.Button1Click(Sender: TObject); var   SR:TSearchRec;   sResult:Integer; begin sResult:=FindFirst('c:/temp',faDirectory,SR); if sResult=0 then   ShowMessage(DateTimeToStr(FileDateToDateTime(SR.Time))); SysUtils.FindClose(SR); end;

thudb · 2000-12-26

教父的答案最简洁。 guotong、jyniu辛苦了，用CreateFile打开文件夹， dwFlagsAndAttributes 参数应为FILE_FLAG_BACKUP_SEMANTICS。

急，如何获得一个文件夹的创建日期？(200分)

thudb

Unregistered / Unconfirmed

jyniu

Unregistered / Unconfirmed

Reboot

Unregistered / Unconfirmed

guotong

Unregistered / Unconfirmed

thudb

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

thudb

Unregistered / Unconfirmed

Similar threads