Скачать: CL | DM;

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

← →
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

---

← →
TTCustomDelphiMaster ©   (2002-11-19 20:47) [5]

> если неменять 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:50) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c