摘要：1-得到短文件名
function getshortfilename(const filename : string) : string;
var
atmp: array[0..255] of char;
begin
if getshortpathname(pchar(filename),atmp,sizeof(atmp)-1)=0 then
result:= filename ......
摘要：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......
实现高速文件拷贝上一页 ...
byteswritten : word;
br, bw : longint; 【程序编程相关:
Convert access viol】 【推荐阅读:
[Delphi] 无法从崩溃地址查到出错】
timer1,timer2 : longint; 【扩展信息:
如何用Delphi实现WINDOWS X】
ticks : ^longint;
begin
ticks := ptr(seg0040, $006c);
if paramcount < 2 then begin
writeln(usage:, paramstr(0),
);
halt;
end;
assign(infile, paramstr(1));
assign(outfile, paramstr(2));
writeln;
writeln(copying , paramstr(1), to , paramstr(2));
reset(infile, 1);
rewrite(outfile, 1);
bufcnt := 0;
sizeoffile := filesize(infile);
total := 0;
while (maxavail>8192) and (bufcnt
buflen[indexw] then begin ...
下一页 摘要：netscape浏览器，显示出你指定的www地址的主页。下面这个程序能
够完成这一功能。
programnetscape；
usesddeman；
proceduregotourl（surl：string）；
var
dde：tddeclientconv；
begin
dde：κtddeclientconv．create（nil）；
withddedo
beg......
