Устанавливаем дату создания файла

FIXME

Здесь представлена небольшая процедура для установкий даты создания для файла.

Function SetFileDate(

Const FileName : String;
Const FileDate : TDateTime): Boolean;

var FileHandle : THandle; FileSetDateResult : Integer; begin try

try
 FileHandle := FileOpen
    (FileName,
     fmOpenWrite OR fmShareDenyNone);
 if FileHandle > 0 Then  begin
  FileSetDateResult :=
    FileSetDate(
      FileHandle,
      DateTimeToFileDate(FileDate));
    result := (FileSetDateResult = 0);
  end;
except
 Result := False;
end;

finally

FileClose (FileHandle);

end; end;

{Использование:} SetFileDate('c:\mydir\myfile.ext', Now)

 
faq/delphi/system/set_file_date_created.txt · Последние изменения: 2006/05/14 14:40 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki