Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.02;
Скачать: 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 вся ветка

Текущий архив: 2002.12.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-4302
MaXie
2002-11-21 12:20
2002.12.02
Excel и Delphi!


1-4485
pasha_vl
2002-11-20 16:19
2002.12.02
Русский язык


1-4380
five
2002-11-22 14:53
2002.12.02
как перевести pointer в строку или integer?


3-4175
spa
2002-11-12 15:19
2002.12.02
Простая одинокая dbf таблица dBase IV


1-4444
BALU1111
2002-11-20 10:34
2002.12.02
Компиляция программы