摘要：procedure tform1.getversioninfo;
const
n_info = 10;
infostr : array [1..n_info] of string =
(companyname, filedescription, fileversion, internalname,
legalcopyright, legaltrademarks, original......
摘要： 本 文 将 向 大 家 介 绍 怎 样 编 写自 己 的 信 箱 监 视 程 序， 程 序 将 直 接 调 用winsock 函 数 来 进 行网 络 通 信。 除 了 具 备winsock 编 程 知 识 之 外， 还 必 须 了 解pop3 协 议。 下 面 是 对pop3 的 一 个 粗 略 的 介 绍， 读 者 可 以 参 看rfc 1225 更 为 详 细 地 了 解 该 协 议。 ......
得到CPU速度，单位MHzfunction getcpuspeed: comp;
{ function to return the cpu clock speed only.} 【程序编程相关:
Yeeyee FrameWork (YF】 【推荐阅读:
[red]如何使用Delphi设计强大】
{ usage: messagedlg(format(%.1f mhz, [getcpuspeed]), 【扩展信息:
Delphi中建议使用的语句
】
mtconfirmation, [mbok], 0); }
var
t: dword;
mhi, mlo, nhi, nlo: dword;
t0, t1, chi, clo, shr32: comp;
begin
shr32 := 65536;
shr32 := shr32 * 65536;
t := gettickcount;
while t = gettickcount do begin end;
asm
db 0fh
db 031h ...
下一页 摘要：用于function中
const
scrolllock = 1;
numlock = 2;
capslock = 4;
var
status: byte;
pntk: ^byte;
begin
pntk := ptr($40, $97); {directly point in
memory}
status := byte(pntk^); {read the status}
......
