Изменение даты создания каталога

Советы » Каталоги » Изменение даты создания каталога

{ **** 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
 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com