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

ИНТЕРНЕТ-ПОРТАЛ БОЛГАРСКОЙ СОШ №1           ШКОЛЬНОЕ РАСПИСАНИЕ (17.11.2017), по всем классам ЗДЕСЬ!

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

 

 


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