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;