Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дата ;создания файла...как поменять? [D5, Win95/98]

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

SiaCD (2002-11-19 20:50:00) [1]
Спасибо!!!
Дальше я сам :)

TTCustomDelphiMaster (2002-11-19 20:47:00) [2]

> если неменять 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;

SiaCD (2002-11-19 20:42:00) [3]
...посмотрел я 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

SiaCD (2002-11-19 20:35:00) [4]
Да, наверное подходит.
Только я неправильно немного поставил вопрос- мне нужно менять время а не дату.
Эта функция подходит к времени?
И если можно, напиши примерчик

TTCustomDelphiMaster (2002-11-19 20:30:00) [5]
SetFileTime

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »