ПШвИ - ПЕРВЫЙ ШАГ в ИНТЕРНЕТ

ИНТЕРНЕТ-ПОРТАЛ БОЛГАРСКОЙ СОШ №1 

Ваш IP: 54.80.140.29
  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта
Первый Шаг в Интернет ПУБЛИКАЦИИ ПРОГРАММИРОВАНИЕ Как изменить дату создания/изменения файла - Delphi

Как изменить дату создания/изменения файла - Delphi

Печать

Как изменить дату создания/изменения файла - Delphi

 

 

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;
Const
  setinCreate = $01;
  setinAccess = $02;
  setinWrite  = $04;
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    Edit6: TEdit;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
function GetFileTime(handle:longint; var cTime, laTime, lwTime: FILETIME):longint; stdcall;
function SetFileTime(handle:longint; var cTime, laTime, lwTime: FILETIME):longint; stdcall;
 
var
  Form1: TForm1;
  NameF : AnsiString;
 
implementation
 
uses Math;
 
function SetFileTime; external 'kernel32.dll' name 'SetFileTime';
function GetFileTime; external 'kernel32.dll' name 'GetFileTime';
{$R *.dfm}
 
function changeFileTime(f: PChar; sys: SYSTEMTIME; setin: byte):boolean;
var
  hf: integer;
  time: FILETIME;
  last: array [1..3] of FILETIME;
begin
  hF:=_lopen(f, OF_READWRITE);
  if(hF<0)
    then begin
    Result:=false;
    exit;
    end;
  GetFileTime(hF, last[1], last[2], last[3]);
  SystemTimeToFileTime(sys, time);
  case setin of
    $01:Result:=SetFileTime(hF, time   , last[2], last[3])>0;
    $02:Result:=SetFileTime(hF, last[1], time   , last[3])>0;
    $03:Result:=SetFileTime(hF, time   , time   , last[3])>0;
    $04:Result:=SetFileTime(hF, last[1], last[2], time   )>0;
    $05:Result:=SetFileTime(hF, time   , last[2], time   )>0;
    $06:Result:=SetFileTime(hF, last[1], time   , time   )>0;
    $07:Result:=SetFileTime(hF, time   , time   , time   )>0;
    else Result:=false;
  end;
  _lclose(hF);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  sys: SYSTEMTIME;
begin
sys.wYear:=StrToInt(Edit1.Text);
sys.wMonth:=StrToInt(Edit2.Text);
sys.wDay:=StrToInt(Edit4.Text);
sys.wHour:= StrToInt(Edit4.Text);
sys.wMinute:=StrToInt(Edit5.Text);
sys.wSecond:=StrToInt(Edit6.Text);
if OpenDialog1.Execute then
 begin
  NameF := OpenDialog1.FileName;
  changeFileTime(PChar(NameF), sys, $07);
 end;
end;
end.

 

 

Добавить комментарий


Защитный код
Обновить

Поиск по сайту

Новейшее из новостей

Предыдущая Следующая

Супер хрустящие огурчики на зиму, которы…

Супер хрустящие огурчики на зиму, которые никогда не взрываются

Супер хрустящие огурчики на зиму, которые никогда не взрываются

Admin - avatar Admin 14 Авг 2018 Просмотров:17 САДОГОРОД

Подробнее

Календарь грибника — когда какие грибы с…

Календарь грибника — когда какие грибы собирать

Календарь грибника — когда какие грибы собирать

Admin - avatar Admin 13 Авг 2018 Просмотров:25 САДОГОРОД

Подробнее

Как правильно посадить клубнику сейчас, …

Как правильно посадить клубнику сейчас, чтобы уже на следующий год собрать первый урожай?

Как правильно посадить клубнику сейчас, чтобы уже на следующий год собрать первый урожай?

Admin - avatar Admin 13 Авг 2018 Просмотров:501 САДОГОРОД

Подробнее

НЕ безлимитный почтовый ящик, или Сказ п…

НЕ безлимитный почтовый ящик, или Сказ про секретное ограничение Mail.ru

НЕ безлимитный почтовый ящик, или Сказ про секретное ограничение Mail.ru

Admin - avatar Admin 06 Авг 2018 Просмотров:246 КОМПЬЮТЕРы

Подробнее

Вершинная гниль томатов, лечение.

Вершинная гниль томатов, лечение.

Вершинная гниль томатов, лечение.

Admin - avatar Admin 06 Авг 2018 Просмотров:96 САДОГОРОД

Подробнее

Опрыскивание томатов от фитофторы в тепл…

Опрыскивание томатов от фитофторы в теплице и открытом грунте: как спасти урожай

Опрыскивание томатов от фитофторы в теплице и открытом грунте: как спасти урожай  

Admin - avatar Admin 06 Авг 2018 Просмотров:657 САДОГОРОД

Подробнее

Авторизация

Варианты загрузки Mac

Варианты загрузки Mac

Большинство современных Mac поддерживают более 10 способов запуска системы. Чтобы попасть в любой из них, нужно зажать определенную кнопку или сочетание клавиш сразу после стартового звука при включении питания.

Подробнее ...

Школьное расписание


Рейтинг@Mail.ru Яндекс.Метрика Рейтинг@Mail.ru