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

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

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

 

 

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


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

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

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

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

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

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

Звездные врата Вселенная Stargate Unive…

Звездные врата Вселенная Stargate  Universe

Звездные врата: Вселенная   Stargate: Universe 2 сезона Сезон 1 Сезон 2 2009 2010  

Admin - avatar Admin 17 Ноя 2019 Просмотров:90 ФАНТАСТИКА

Подробнее

Звездные врата (StarGate SG-1)

Звездные врата (StarGate SG-1)

Звездные врата   StarGate SG-1 10 сезонов   1 2 3 4 5       1997 1998  1999  2000 2001    6 7 8 9 10 2002  2003 2004  2005 2006 Описание В 1994 году режиссер Роланд Эмг/ерих и сценарист Лин Левлин представили на суд публики ленту «Звездные врата». После того как приключенческий боевик о загадочном портале в удивительные инопланетные миры...

Admin - avatar Admin 17 Ноя 2019 Просмотров:53 ФАНТАСТИКА

Подробнее

Звездные врата: Атлантида (Stargate: Atl…

Звездные врата: Атлантида (Stargate: Atlantis)

Звездные врата: Атлантида   Stargate: Atlantis 5 сезонов 1 сезон  2 сезон 3 сезон 4 сезон 5 сезон  2004г.  2005г. 2006г.  2007г.  2008г.  

Admin - avatar Admin 17 Ноя 2019 Просмотров:59 ФАНТАСТИКА

Подробнее

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

В НОВОМ ОКНЕ

Как уменьшить фотографию, изменить размер фото в Paint?
Как уменьшить фотографию, изменить размер фото в Paint?
Подробнее ...

Авторизация

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

КТ503 (кремниевый транзистор, n-p-n) и КТ502 (p-n-p)

КТ503 (кремниевый транзистор, n-p-n) и КТ502 (p-n-p)

КТ503 (кремниевый транзистор, n-p-n)   Прибор Предельные параметры Параметры при T = 25°C RТ п-с, °C/Вт     при T = 25°C                       IК max, мА IК и max, мА UКЭ0 гр, В UКБ0 max, В UЭБ0 max, В PК max, мВт T, °C Tп max, °C Tmax,...

Admin 16 Фев 2017 Просмотров:5955 РАДИОЭЛЕКТРОНИКА

Подробнее

Top.Mail.Ru Яндекс.Метрика TIiIKT  ikt24.org.ru  gerb