Дата создания файла...как поменять?

← →
SiaCD © (2002-11-19 19:47) [0]

Добрый день Уважаемые!
Есть файл. создан например в 22:00(отображается в свойствах файла), как поменять это время на другое?

← →
Vovchik_A (2002-11-19 20:26) [1]

FileSetDate( Handle: Integer; Age: Integer): Integer
Устанавливает Age в качестве даты создания файла, указанного
дескриптором Handle (см. FileCreate и FileOpen). Файл должен
быть открыт в режиме, допускающем запись. При успешном
завершении возвращает 0, в противном случае - код ошибки
Windows. Age задается в формате DOS. Это значение можно
получить из значения типа TDateTime функцией DateTimeToFileDate.
Подходит ?

← →
TTCustomDelphiMaster © (2002-11-19 20:30) [2]

SetFileTime

← →
SiaCD © (2002-11-19 20:35) [3]

Да, наверное подходит.
Только я неправильно немного поставил вопрос- мне нужно менять время а не дату.
Эта функция подходит к времени?
И если можно, напиши примерчик

← →
SiaCD © (2002-11-19 20:42) [4]

...посмотрел я SetFileTime,
BOOL SetFileTime(

HANDLE hFile, // identifies the file
CONST FILETIME *lpCreationTime, // time the file was created
CONST FILETIME *lpLastAccessTime, // time the file was last accessed
CONST FILETIME *lpLastWriteTime // time the file was last written
);
сразу возник вопрос: если неменять lpLastAccessTime ,lpLastWriteTime , то что вместо этих значений надо писать?

ребята, может кините пример
С Уважением. SiaCD

> если неменять lpLastAccessTime ,lpLastWriteTime , то что
> вместо этих значений надо писать?

nil

> ребята, может кините пример

function FileSetDate(Handle: Integer; Age: Integer): Integer;
var
LocalFileTime, FileTime: TFileTime;
begin
Result := 0;
if DosDateTimeToFileTime(LongRec(Age).Hi, LongRec(Age).Lo, LocalFileTime) and
LocalFileTimeToFileTime(LocalFileTime, FileTime) and
SetFileTime(Handle, nil, nil, @FileTime) then Exit;
Result := GetLastError;
end;

Спасибо!!!
Дальше я сам :)

Дата создания файла...как поменять? Найти похожие ветки