Установление атрибутов файла
Как установить атрибуты файла?
SetFileAttributes ('файл',атрибут); Возможные атрибуты: faReadOnly faHidden faSysFile faVolumeID faDirectory faArchive faAnyFile //время создания procedure TForm1.SetTimeFile(FileName: string); var FileHandle: THandle; st: TSystemTime; ft, ft1: TFileTime; begin FileHandle := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if FileHandle <> INVALID_HANDLE_VALUE then begin DateTimeToSystemTime(Now, st); SystemTimeToFileTime(st, ft); // converts to file time format LocalFileTimeToFileTime(ft, ft1); SetFileTime(FileHandle, nil, @ft1, nil); Windows.CloseHandle(FileHandle); end else showmessage('Error!'); end;
