摘要：program fastcopy;
{$a+,b-,d-,e+,f+,g+,i-,l-,n+,p-,q-,r-,s-,t-,v-,x-,y-}
{$m 16384,$10000}
const
maxbufcnt = 1000;
type
bufptr = ^bufrec;
bufrec = array[0..8190] of byte;
var
infile,......
摘要：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 ......
让硬盘休眠-ParkDisk程序上一页 ...
error getting disk parameters - al returns +inttostr (regs.al,0));
regs.ah := $0c; 【程序编程相关:
Delphi中建议使用的语句
】 【推荐阅读:
Yeeyee FrameWork (YF】
regs.dl := $80; 【扩展信息:
[Delphi] 无法从崩溃地址查到出错】
intr($13,regs);
assert((regs.flags and fcarry) = 0,
error parking disk - al returns +inttostr(regs.al,0));
end;
摘要：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......
