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

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

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

Как изменить дату создания директории???

sLMolox © (2003-04-12 09:46:00)
Вроде бы тривиальная задача, но у меня уже второй день ничего не получается. С файлами нет траблов: Функция SetFileTime(HANDLE hFile, FILETIME *, FILETIME *, FILETIME *); все решает. Я себе представляю что директория - это тот же файл, но где взять hFile для него? Гуру посоветовали брать из _findfirst _findnext, но и там я ничего не нашел: в возвращаемых структурах нет хэндла файла!
Помогите плиз, хотелось бы конкретным примером, и желательно апишнами средствами, а не прямым доступом к диску(У меня уже возникали мысли это сделать %) )

sLMolox (2003-04-13 09:22:00) [1]
Интересно, а под Вынь9х это что вообще невозможно сделать?

Song (2003-04-12 13:22:00) [2]
function NT_SetDateTime(FileName: string; dtCreation, dtLastAccessTime, dtLastWriteTime: TDateTime): Boolean;
© by Nicholas Robinson
var
hDir: THandle;
ftCreation: TFiletime;
ftLastAccessTime: TFiletime;
ftLastWriteTime: TFiletime;

function DTtoFT(dt: TDateTime): TFiletime;
var
dwft: DWORD;
ft: TFiletime;
begin
dwft := DateTimeToFileDate(dt);
DosDateTimeToFileTime(LongRec(dwft).Hi, LongRec(dwft).Lo, ft);
LocalFileTimeToFileTime(ft, Result);
end;

begin
hDir := CreateFile(PChar(FileName),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_FLAG_BACKUP_SEMANTICS,
0);
if hDir <> INVALID_HANDLE_VALUE then
begin
try
ftCreation := DTtoFT(dtCreation);
ftLastAccessTime := DTtoFT(dtLastAccessTime);
ftLastWriteTime := DTtoFT(dtLastWriteTime);
Result := SetFileTime(hDir, @ftCreation, @ftLastAccessTime, @ftLastWriteTime);
finally
CloseHandle(hDir);
end;
end
else
Result := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NT_SetDateTime("c:\temp\MyFolder", now, now, now);
end;

sLMolox (2003-04-12 12:59:00) [3]
если есть под нт примеры, то дайте под нт, хотя желательно что нибудь более универсальное....

Song (2003-04-12 09:47:00) [4]
Для NT ?

Наверх

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