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

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

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

 

 

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


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

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

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

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

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

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

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

Admin - avatar Admin 05 Апр 2018 Просмотров:60 КОМПЬЮТЕРы

Подробнее

Результаты викторины "С легким паром!" c…

Викторина "С легким паром!" c 26 декабря 2017 г. по 2 февраля 2018г. на сайте kit.bsh1.ru *** Скачиваем свои наградные по ссылкам ниже  ... ДИПЛОМЫ, СЕРТИФИКАТЫ ...   1. Козлова Татьяна 95% Диплом 1 степени  2. Баскакова Юлия 90% Диплом 2 степени  3. Баскаков Арсений 87% Диплом 3 степени 4. Ахметзянов Раис 82%    Сертификат...

Admin - avatar Admin 29 Янв 2018 Просмотров:186 ВИКТОРИНИЯ

Подробнее

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

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

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

Подробнее

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

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

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

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

Подробнее

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

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

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

Подробнее

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

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

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

Подробнее

Авторизация

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

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

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

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

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


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