| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как изменить дату файла? [Delphi, Windows]

andreil ©   (2008-02-23 15:08:00) 

Собственно на VCL это делалось так:
FileSetDate(FileHandle, DatetimeToFiledate(EncodeDate(2007, 01, 01)));
А как аналогично сделать на KOL? И еще - как получить дату создания файла?

---

andreil   (2008-02-28 09:37:00) [1]

Все, уже сделал такую функцию:
function GetTimeFile(FileName: string): TSystemTime;
var
 FileHandle:THandle;
 FileTime: TFileTime;
 DT:TDateTime;
begin
 ZeroMemory(@FileTime,sizeof(FileTime));
 FileHandle:=CreateFile(PChar(Filename), GENERIC_WRITE,
           0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 GetFileTime(FileHandle, nil, nil, @FileTime);  
 CloseHandle(FileHandle);
 FileTime2DateTime(FileTime, DT);
 DateTime2SystemTime(DT, result);
end;

---

andreil   (2008-02-28 09:05:00) [2]

> Compiler
Спасибо, мне еще пригодилась бы функция получения даты файла.
Судя по всему, это будет чтото вроде твоего куска кода, только с GetFileTime?

---

Compiler   (2008-02-27 20:06:00) [3]


procedure SetTimeFile(Filename:String; ST:TSystemTime);
var
 FileHandle:THandle;
 FileTime: TFileTime;
 DT:TDateTime;
begin
ZeroMemory(@FileTime,sizeof(FileTime));
SystemTime2DateTime(ST,DT);
DateTime2FileTime( dt,FileTime);
FileHandle:=CreateFile(PChar(Filename), GENERIC_WRITE,
            0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
SetFileTime(FileHandle,nil,nil,@FileTime);
CloseHandle(FileHandle);
end;

procedure TForm1.Button4Click(Sender: PObj);
var
 ST:TSystemTime;
begin
with ST do
begin
 wYear:=2007;
 wMonth:=1;
 wDay:=1;
 wHour:=10;
 wMinute:=10;
 wSecond:=10;
end;
SetTimeFile('c:\1.wav',st);
end;

---

andreil   (2008-02-27 13:13:00) [4]

Хм, сделал так:

If Find_First(FileName, find) then
begin
 CreateTime:=find.ftCreationTime;
 CreateTime.dwLowDateTime:=CreateTime.dwLowDateTime-100000;
 FileTime(FileName, @CreateTime, @find.ftLastAccessTime, @find.ftLastWriteTime);
end;

дату не меняет :(

---

andreil   (2008-02-23 18:24:00) [5]

Спасибо :)

---

ANTPro   (2008-02-23 16:18:00) [6]

FileTime(); — классная процедурка :о)

---

Наверх