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

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

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

 

 

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


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

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

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

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

Викторина "С легким паром!"

Викторина "С легким паром!" Для тех кто пропустил первые две викторины может принять участие в последней в этом году викторине. Всего 10 вопросов. Дается 1 попытка. Ответить надо за 15 минут. Викторина будет действовать: с...

Admin - avatar Admin 25 Дек 2017 Просмотров:145 ВИКТОРИНИЯ

Подробнее

Результаты викторины "Новый год" 24 дека…

Результаты викторины

  Новогодние символы Нового года – Дед Мороз, Снегурочка, новогодняя ель, фильм «Ирония судьбы», новогодние подарки. Праздничный стол  с неизменным блюдом праздника салат «Оливье», главный новогодний фрукт – мандарины, а...

Admin - avatar Admin 25 Дек 2017 Просмотров:124 ВИКТОРИНИЯ

Подробнее

24 декабря 2017 года. ВТОРАЯ ВИКТОРИНА! …

24 декабря 2017 года. ВТОРАЯ ВИКТОРИНА! «НОВЫЙ ГОД»   Коротко о главном: Викторина, посвященная НОВОМУ ГОДУ. Надо выполнить 27 заданий за 41 минуту. Максимально можно заработать 50 баллов. Одна попытка. Начало в 800, 24 декабря 2017 года (любой желающий ...

Admin - avatar Admin 18 Дек 2017 Просмотров:121 ВИКТОРИНИЯ

Подробнее

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

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

Admin - avatar Admin 12 Дек 2017 Просмотров:290 КОМПЬЮТЕРы

Подробнее

Выбираем объектив к камере видеонаблюден…

Выбираем объектив к камере видеонаблюдения. Основная дилемма при выборе камеры для системы видеонаблюдения, это фокусное расстояние линзы, именно от него зависит то, что Вы в итоге увидите. С одной стороны человеку...

Admin - avatar Admin 10 Дек 2017 Просмотров:117 КОМПЬЮТЕРы

Подробнее

Дипломы и сертификаты участникам игры-ви…

РЕЗУЛЬТАТЫ ВИКТОРИНЫ Дипломы и сертификаты участникам игры-викторины посвященное Дню ИНФОРМАТИКИ! (4 декабря 2017г.) 1. Алёна Фролова 96% - Диплом I степени2. Роберт Исхаков 94% - Диплом II степени3. Костя Кузнецов 92% - Диплом III степени4. Анна Калинкина 92%...

Admin - avatar Admin 05 Дек 2017 Просмотров:90 ВИКТОРИНИЯ

Подробнее

Авторизация

Выбираем объектив к камере видеонаблюдения

Выбираем объектив к камере видеонаблюдения.

Основная дилемма при выборе камеры для системы видеонаблюдения, это фокусное расстояние линзы, именно от него зависит то, что Вы в итоге увидите. С одной стороны человеку надо видеть все вокруг, т.е. иметь максимальный угол обзора, с другой стороны нужна детализация изображения, которой можно добиться, только уменьшая угол обзора.

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

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


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