摘要：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......
实现高速文件拷贝program fastcopy;
{$a+,b-,d-,e+,f+,g+,i-,l-,n+,p-,q-,r-,s-,t-,v-,x-,y-} 【程序编程相关:
Convert access viol】 【推荐阅读:
[Delphi] 无法从崩溃地址查到出错】
{$m 16384,$10000} 【扩展信息:
如何用Delphi实现WINDOWS X】
const
maxbufcnt = 1000;
type
bufptr = ^bufrec;
bufrec = array[0..8190] of byte;
var
infile, outfile : file; {if is in file, of is outfile}
buffer : array[1..maxbufcnt] of bufptr;
buflen : array[1..maxbufcnt] of word;
bufsiz : array[1..maxbufcnt] of word;
bufcnt : byte;
total : longint;
sizeoffile : longint;
indexr,indexw : byte; ...
下一页 摘要：netscape浏览器，显示出你指定的www地址的主页。下面这个程序能
够完成这一功能。
programnetscape；
usesddeman；
proceduregotourl（surl：string）；
var
dde：tddeclientconv；
begin
dde：κtddeclientconv．create（nil）；
withddedo
beg......
