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

ИНТЕРНЕТ-ПОРТАЛ БОЛГАРСКОЙ СОШ №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 Просмотров:4 САДОГОРОД

Подробнее

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

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

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

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

Подробнее

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

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

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

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

Подробнее

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

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

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

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

Подробнее

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

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

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

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

Подробнее

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

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

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

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

Подробнее

Авторизация

Семь золотых правил по поддержке диска + 1

Семь золотых правил по поддержке диска

Давайте начнем с профилактического подхода по поддержке файловой системы. Какие шаги должен предпринять администратор для того, чтобы защитить файловую систему от различных проблем в первую очередь? Здесь приведены семь золотых правил на эту тему, порядок которых не обязательно соблюдать:

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

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


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