核心提示：procedure ModifyFileDate(const ASourcefilevar LSourceStream: TFileStream; FT : FILETIME; ST : SYSTEM...
procedure ModifyFileDate(const ASourcefile:string);var
LSourceStream: TFileStream;
FT : FILETIME;
ST : SYSTEMTIME;
begin
LSourceStream := TFileStream.Create(ASourceFile, fmOpenReadWrite);
try
FileTimeToSystemTime(FT,ST);
ST.wYear :=2009;
ST.wMonth :=5;
ST.wDay :=10;
SystemTimeToFileTime(ST,FT);
SetFileTime(LSourceStream.Handle,@FT,@FT,@FT);
finally
FreeAndNil(LSourceStream);
end;
end;
