{ **** UBPFD *********** by delphibase.endimus.com
****
Первая принимает непосредственные значения года, месяца, дня, часа,
минут и секунд. Во второй дата и время указываются в формате TDateTime.
***************************************************** }
>> Изменение даты создания каталога
Две перегруженные функции, изменяющие дату и время создания каталога.
См. также: http://delphibase.endimus.com/?action=viewfunc&topic=fileattr&id=10496
Зависимости: Windows
Автор: Dimka Maslov, mainbox@endimus.com,
ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 4 февраля 2004 г.
function
SetDirTime(const
Dir: string
; Year, Month, Day,
Hour, Minute, Second:
Word): Boolean; overload;
var
H: Integer;
F: TFileTime;
S: TSystemTime;
begin
H := CreateFile(PChar(Dir), $0100, 0, nil
, OPEN_EXISTING,
FILE_FLAG_BA