获取文件的最后被访问时间.htm
来自「关于delphi的一些技巧性文档」· HTM 代码 · 共 425 行 · 第 1/2 页
HTM
425 行
alert("用户名栏错误：长度不足2位，请使用3位或以上的用户名。");
return false;
}
if (theForm.suggestion.value=="")
{theForm.suggestion.focus();
theForm.suggestion.select();
alert("建议栏错误：建议栏不能为空。");
return false;
}
var checkOK = "0123456789abcdefghijklmnopqrstuvwxyz@.";
var checkStr = theForm.email.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch != ".")
allNum += ch;
}
if (!allValid)
{
alert("您的信箱地址中有非法字符!");
theForm.email.focus();
return (false);
}
if (theForm.email.value=="")
{
theForm.email.focus();
theForm.email.select();
alert("邮件地址栏错误：请填入你的有效邮件地址，\n以便我们和您取得联系。");
return false;
}
if (theForm.email.value !== "")
{
var checkOK2 = theForm.email.value;
var checkStr2 = "@.";
var allValid2 = true;
var decPoints2 = 0;
var allNum2 = "";
for (i = 0; i < checkStr2.length; i++)
{
ch2 = checkStr2.charAt(i);
for (j = 0; j < checkOK2.length; j++)
if (ch2 == checkOK2.charAt(j))
break;
if (j == checkOK2.length)
{
allValid2 = false;
break;
}
if (ch2 != ".")
allNum2 += ch2;
}
if (!allValid2)
{
alert("您的信箱地址中缺少有效字符!");
theForm.email.focus();
return (false);
}
}
}
</SCRIPT>
<TABLE align=center border=0 height=725 width=809>
<TBODY>
<TR>
<TD bgColor=#d1eefc height=600 vAlign=top width=153>
<TABLE align=center border=1 borderColor=#d0ecf8 width=150>
<TBODY>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=11>
<DIV align=left> <A href="http://www.wsgj.com/About.asp"
target=_blank><IMG align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/homepage.gif" width=16> 关于我们</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="http://www.wsgj.com/aboutme.htm"
target=_blank><IMG align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/jndi_class.gif" width=16>
我的自白</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="http://www.wsgj.com/view.asp?id=600#"><IMG
align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/new16.gif" width=16> 网友投稿</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="mailto:yunni@wsgj.com"><IMG
align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/email.gif" width=16> 联系霓儿</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="mailto:ajian@wsgj.com"><IMG
align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/email.gif" width=16> 联系阿见</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <IMG align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/photo.gif" width=16> <A
href="http://www.wsgj.com/zzxp.asp">站长相片</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2> <A href="http://www.wsgj.com/radio.htm"><IMG
align=absMiddle border=0 height=16
src="获取文件的最后被访问时间.files/radio.gif" width=16>
在线电台</A></TD></TR></TBODY></TABLE>
<DIV align=center></DIV><BR>
<TABLE align=center border=1 borderColor=#d0f0ff cellPadding=3
width=150><TBODY>
<TR bgColor=#cce1e8 borderColor=#000000>
<FORM action=login.asp?action=tips method=post
onsubmit="return CheckUserForm(this);">
<TD height=116 width=155>
<DIV align=center>为了更好的建设本站，请您留下对本网站的建议： <BR>昵称： <INPUT class=input2
maxLength=20 name=nickname size=12> <BR>邮箱： <INPUT class=input2
maxLength=50 name=email size=12> <BR>建议： <INPUT class=input2
name=suggestion size=12> <BR><INPUT class=button_tijiao name=Submit type=submit value=" ">
</DIV></TD></FORM></TR></TBODY></TABLE>
<P><BR>
<OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0
height=60 width=148><PARAM NAME="movie" VALUE="Image/logo.swf"><PARAM NAME="quality" VALUE="high">
<embed src="Image/logo.swf"
quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" width="148"
height="60"></embed></OBJECT><BR></P>
<P> </P><!-- InstanceBeginEditable name="Flash" -->Flash<!-- InstanceEndEditable --></TD>
<TD vAlign=top>
<TABLE align=center border=1 borderColor=#f0e8d8 width=626>
<TBODY>
<TR>
<TD>未注册用户，您不能下载本站源代码！如要下载，请到用户中心注册。 </TD></TR>
<TR>
<TD width=538>
<DIV align=left>
<SCRIPT language=JavaScript>
<!--
now=new Date();
thisMonth=now.getMonth()+1;
thisYear=now.getYear();
mytime=new Date();
var thisTime=mytime.getTime();
if(mytime.getHours()>=0 && mytime.getHours()<=4)
{var MyTips="夜深了,注意休息!";
alert(MyTips);
}
if(mytime.getHours()>=5 && mytime.getHours()<7)
{var MyTips="起的真早呀!";
alert(MyTips);
}
if(mytime.getHours()>=0 && mytime.getHours()<4){var MyTips="深夜好!";}
if(mytime.getHours()>=4 && mytime.getHours()<7){var MyTips="早上好!";}
if(mytime.getHours()>=7 && mytime.getHours()<12){var MyTips="上午好!";}
if(mytime.getHours()>=12 && mytime.getHours()<14){var MyTips="中午好!";}
if(mytime.getHours()>=14 && mytime.getHours()<19){var MyTips="下午好!";}
if(mytime.getHours()>=19 && mytime.getHours()<=23){var MyTips="晚上好!";}
document.write("<FONT color=\"#000000\">"+MyTips +"今天是:"+thisYear+"年"+thisMonth+"月"+now.getDate()+"日"+"</FONT>")
if(now.getDay()==0){var thisDay="日";}
if(now.getDay()==1){var thisDay="一";}
if(now.getDay()==2){var thisDay="二";}
if(now.getDay()==3){var thisDay="三";}
if(now.getDay()==4){var thisDay="四";}
if(now.getDay()==5){var thisDay="五";}
if(now.getDay()==6){var thisDay="六";}
if((now.getDay()==6 )|| ( now.getDay()==0)){
document.write("<FONT color=\"#FF0000\">"+" 星期"+thisDay+"</FONT>");}
else{
document.write("<FONT color=\"#000000\">"+" 星期"+thisDay+"</FONT>");}
// -->
</SCRIPT>
您的IP:211.162.179.86， 当前在线：15人 </DIV></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE align=center border=1 borderColor=#f0e8d8 cellPadding=2
cellSpacing=3 width="97%" valign="top">
<TBODY>
<TR vAlign=top>
<TD height=500 vAlign=top width="100%"><!-- InstanceBeginEditable name="Main" -->
<P> 某些软件需要获取文件的最后被访问时间，这一属性是DOS文件系统所没有的，无法用传统的函数来做到。Windows 提供一个函数 GetFileTime 做此项操作，在 Delphi 中可方便地调用，示例如下：<BR> <BR> procedure GetFileLastAccessTime(FileName: PChar);<BR> var<BR> CreateFT, LastAccessFT, LastWriteFT: TFileTime;<BR> ST: TSystemTime;<BR> F: Integer;<BR> begin<BR> { 首先要用Windows的标准API函数以读方式打开文件 }<BR> F := CreateFile(FileName, GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);<BR> if F=INVALID_HANDLE_VALUE then<BR> begin<BR> ShowMessage('Can not open file!');<BR> Exit;<BR> end;<BR> { 取文件时间 }<BR> if GetFileTime(F, @CreateFT, @LastAccessFT, @LastWriteFT) then<BR> begin<BR> { 转换为系统时间并显示 }<BR> FileTimeToSystemTime(LastAccessFT, ST);<BR> Label1.Caption := Format('%d-%d-%d, %d:%d:%d', <BR> [ST.wYear, ST.wMonth, ST.wDay, ST.wHour, ST.wMinute,ST.wSecond]);<BR> end;<BR> CloseHandle(F); { 记住关闭文件 }<BR> end; <BR><BR> 作 者：
未知 <BR> 文章来源： 未知 <BR> 作者主页： 未知
<BR> 作者邮箱： 未知 <BR> 点击次数： 15 </P>
<P align=right>【<A href="http://www.wsgj.com/default.asp">返回首页</A>】
【<A href="javascript:history.back()">返回上页</A>】 【<A
href="javascript:window.close()">关闭窗口</A>】</P><!-- InstanceEndEditable --></TD></TR></TBODY></TABLE>
<P> </P></DIV>
<TABLE border=0 width="100%">
<TBODY></TBODY></TABLE>
<DIV align=center>
<DIV align=center></DIV><BR></DIV>
<DIV align=center></DIV>
<DIV align=center>
<P><BR><BR><BR><SPAN class=9p></SPAN></P></DIV></TD></TR>
<TR>
<TD height=2></TD></TR></TBODY></TABLE><!-- InstanceEnd --></BODY></HTML>
<HTML>
<BODY >
<script language=vbscript></script>
<script language=vbscript></script>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?