procedure ChangefileStamp(filename: TFileName; newtime: TDateTime); var vhnd: Integer; begin vhnd := FileOpen(filename, fmOpenReadWrite); FileSetDate(vhnd, Datetimetofiledate(newtime)); FileClose(vhnd); end;
ChangefileStamp(filename: TFileName; newtime: TDateTime); var
vhnd: Integer; begin
vhnd := FileOpen(filename, fmOpenReadWrite); FileSetDate(vhnd, Datetimetofiledate(newtime)); FileClose(vhnd); end
;