Delphi -修改文件夹的修改、创建日期 （Delphi7 /D2010 区别）

分类： Delphi 2012-07-27 15:14 42人阅读 评论(0) 收藏 举报

[delphi] view plaincopy?

1. Delphi7:  
2.   
3. Uses:ShellAPI;  
4.   
5. procedure SetFileDateTime(FileName: string;dtDate:TDateTime);  
6. var  
7.   hFile:THandle;  
8.   ModifyTime:SYSTEMTIME;  
9.   ModifyFileTime,UpdateFileTime:FILETIME;  
10.   sDateTime:String;  
11. begin  
12.   hFile:=CreateFile(pChar(FileName),GENERIC_WRITE,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0);  
13.   If hFile = INVALID_HANDLE_VALUE Then  
14.   begin  
15.     Exit;  
16.   end;  
17.   DateTimeToSystemTime(dtDate,ModifyTime); //将日期转换为系统时间SYSTEMTIME 类型。  
18.   SystemTimeToFileTime(ModifyTime,ModifyFileTime);  //将系统时间转换为文件时间  
19.   LocalFileTimeToFileTime(ModifyFileTime,UpdateFileTime);  //转换本地日期。  
20.   SetFileTime(hFile,@UpdateFileTime,@UpdateFileTime,@UpdateFileTime);   
21.   
22.    //修改文件时间。第一个为：CreateTime,第二个为：最后访问时间 LastAccessTime, 第三个为:最后修改时间 LastModifyTime.  
23.   CloseHandle(hFile);   
24. end;