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

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

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

 

 

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


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

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

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

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

Единицы измерения информации

Единицы измерения информации 1 байт = 8 бит 1 килобайт (Кб) = 210 байт = 1024 байт = 213бит 1 мегабайт (Мб) = 210 Кб   = 1024 Кб   = 220 байт...

Гречухин Николай Викторович - avatar Гречухин Николай Викторович 08 Окт 2019 Просмотров:40 КОМПЬЮТЕРы

Подробнее

ПРОЕКТ ОГЭ по Информатике и ИКТ в 2020 г…

Демонстрационный вариант контрольных измерительных материалов для проведения в 2020 году основного государственного экзамена по ИНФОРМАТИКЕ Разбор заданий по информатике проекта на 2020 год от «ФЕДЕРАЛЬНОГО ИНСТИТУТА ПЕДАГОГИЧЕСКИХ ИЗМЕРЕНИЙ» С 2020 года меняется порядок и...

Гречухин Николай Викторович - avatar Гречухин Николай Викторович 10 Сен 2019 Просмотров:1263 ГИА и ЕГЭ

Подробнее

Выпуск №1 (Сентябрь 2019)

 ШКОЛЬНЫЙ ВЕСТНИК. Выпуск №1 (Сентябрь 2019). БСОШ №1.

Гречухин Николай Викторович - avatar Гречухин Николай Викторович 02 Сен 2019 Просмотров:165 ШКОЛЬНЫЙ ВЕСТНИК

Подробнее

Устали? Поиграйте в шахматы!

В НОВОМ ОКНЕ

Устранение неполадок обновления Microsoft Security Essentials

Устранение неполадок обновления Microsoft Security Essentials

Чтобы определения вирусных и шпионских программ на компьютере оставались актуальными, Центр обновления Майкрософт обеспечивает Microsoft Security Essentials автоматическими обновлениями.

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

Авторизация

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

14 марта Международный день рек (Международный день действий против плотин)

14 марта Международный день рек   (Международный день действий против плотин)

  Международный день рек   (Международный день действий против плотин)   14 марта во многих странах отмечается Международный день рек (International Day for Rivers), ранее имевший название Международный день борьбы против плотин, за реки, воду...

Admin 14 Мар 2016 Просмотров:575 Выпуск №16 МАРТОВСКИЙ! (Март 2016)

Подробнее

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