Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Устанавливаем дату создания файла


Function SetFileDate(
  Const FileName : String;
  Const FileDate : TDateTime): Boolean;
var
 FileHandle        : THandle;
 FileSetDateResult : Integer;
begin
 try
  try
   FileHandle := FileOpen
      (FileName,
       fmOpenWrite OR fmShareDenyNone);
   if FileHandle > 0 Then  begin
    FileSetDateResult :=
      FileSetDate(
        FileHandle,
        DateTimeToFileDate(FileDate));
      result := (FileSetDateResult = 0);
    end;
  except
   Result := False;
  end;
 finally
  FileClose (FileHandle);
 end;
end;

{Использование:}
SetFileDate('c:\mydir\myfile.ext', Now)

           


керамическая напольная плитка Porcelanite Dos . аренда экскаватора . Корм orijen купить. Orijen корм для собак отзывы. . модная одежда от бензин . RISO - оборудование для тиражирования. Продажа Riso. .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011