Форум: "KOL";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];
ВнизКак изменить дату файла? Найти похожие ветки
← →
andreil © (2008-02-23 15:08) [0]Собственно на VCL это делалось так:
FileSetDate(FileHandle, DatetimeToFiledate(EncodeDate(2007, 01, 01)));
А как аналогично сделать на KOL? И еще - как получить дату создания файла?
← →
ANTPro © (2008-02-23 16:18) [1]FileTime(); — классная процедурка :о)
← →
andreil (2008-02-23 18:24) [2]Спасибо :)
← →
andreil © (2008-02-27 13:13) [3]Хм, сделал так:
If Find_First(FileName, find) then
begin
CreateTime:=find.ftCreationTime;
CreateTime.dwLowDateTime:=CreateTime.dwLowDateTime-100000;
FileTime(FileName, @CreateTime, @find.ftLastAccessTime, @find.ftLastWriteTime);
end;
дату не меняет :(
← →
Compiler © (2008-02-27 20:06) [4]
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-28 09:05) [5]> Compiler
Спасибо, мне еще пригодилась бы функция получения даты файла.
Судя по всему, это будет чтото вроде твоего куска кода, только с GetFileTime?
← →
andreil © (2008-02-28 09:37) [6]Все, уже сделал такую функцию:
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;
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c