http://www.delphibbs.com/keylife/iblog_show.asp?xid=20091
//--------------------------------
var
fhandle:Thandle;
s:String;
begin
fhandle:=fileopen('f:/abc.txt',0);
try
s:=datetimetostr(filedatetodatetime(filegetdate(fhandle)));
finally
fileclose(fhandle);
end;
showMessage(s);
end;
