摘要：1. 求星期公式
星期=[5+a(实际天数)] mod 7
2. 干支计算公式
六十甲子干支序号，从1->59->0。
六十甲子干支序号=[23+a(实际天数)] mod 60
3. 二十八宿计算公式
二十八宿序号=[23+a(实际天数)] mod 28
4. 实际天数a的计算
a=b(基本天数)+c(闰日天数)
b=(计算年-1)*365+(要计算到年的月日天数)
例：1984......
摘要：netscape浏览器，显示出你指定的www地址的主页。下面这个程序能
够完成这一功能。
programnetscape；
usesddeman；
proceduregotourl（surl：string）；
var
dde：tddeclientconv；
begin
dde：κtddeclientconv．create（nil）；
withddedo
beg......
常用文件目录操作上一页 ...
dosfiletime : dword;
lastaccessedtime : tdatetime; 【程序编程相关:
如何通过程序实现网卡的启用和禁止功能? 】 【推荐阅读:
如何用Delphi实现WINDOWS X】
finddata : twin32finddata; 【扩展信息:
hdsi2.0 sql注入部分抓包分析语】
begin
filehandle := findfirstfile(anyfile.fil, finddata);
if filehandle <> invalid_handle_value then
begin
windows.findclose(handle);
if (finddata.dwfileattributes and file_attribute_directory) = 0 then
begin
filetimetolocalfiletime(finddata.ftlastwritetime, localfiletime);
filetimetodosdatetime(localfiletime,
longrec(dosfiletime).hi,longrec(dosfiletime).lo);
lastaccessedtime := filedatetodatetime(dosfiletime);
label1.caption := datetimetostr(lastaccessedtime);
end;
end;
end;
得到目录大小
function tfilebrowser.dirsize(dir:string):integer;
var
searchrec : tsearchrec;
separator : string;
begin
if copy(dir,length(dir),1)=\ then
separator :=
else
separator := \;
if findfirst(dir+separator+*.*,faanyfile,searchrec) = 0 then
begin ...
下一页 摘要：作者:未名码头
在所开以的应用软件中,有时我们对某些文件进行拷贝（如对数据库进行备份、制作
安装程序），但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。为此
，我曾利用delphi编制了可提供文件拷贝过程的动态连接库copy.dll,其输出过程为
copyfile。由于dll具有简化编程、运行速度快等诸多优点，且不受编程语言的限制，
用delphi编写的copf.dll同......
