2007年05月_nhczp

12月 11月 10月 09月 08月 07月 06月 05月 04月 03月 01月

原创 CreateFileMapping函数

HANDLE CreateFileMapping( HANDLE hFile, //物理文件句柄 LPSECURITY_ATTRIBUTES lpAttributes, //安全设置 DWORD flProtect, //保护设置 DWORD dwMaximumSizeHigh, //高

2007-05-31 11:16:00 1696

原创 Delphi 函数大全3

首部 function Languages: TLanguages; $[SysUtils.pas功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考 type SysUtils.TLanguages例子 ///////Begin Languagesprocedure TForm1.Button1Click(Sender: TObject);var I: Integer;b

2007-05-28 17:17:00 1035

原创 Delphi7函数大全2

首部 procedure FreeAndNil(var Obj); $[SysUtils.pas功能释放对象Obj并赋为空说明如果对象已经释放资源将触发异常参考 type System.TObject例子///////Begin FreeAndNilprocedure TForm1.Button1Click(Sender: TObject);var Temp: TObject;b

2007-05-28 17:15:00 1698

转载 Delphi 函数大全1

首部 function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas功能返回字符串S转换成浮点数说明字符串非浮点数表达时则返回默认值Default参考 function SysUtils.TextToFloat例子 var E: Extended; begin E :

2007-05-28 17:12:00 1722

原创通过IP取MAC地址

uses WinSock;Function sendarp(ipaddr:ulong; temp:dword; ulmacaddr:pointer; ulmacaddrleng:pointer) : DWord; StdCall; External Iphlpapi.dll Name SendA

2007-05-28 14:16:00 1244

原创 Delphi Sleep时间不准解决方案

在点阵移动时Sleep,时间不准,导至不同的机器不同的系统显示出来的速度,停留时间都不一样,导到效果很差.比如模访LED显示，LCD显示。以下是我写的延时函数.这个比较准.procedure Delay(dwMilliseconds:DWORD); // LongintvariStart,iStop:DWORD;begin iStart := GetTickCount;

2007-05-23 17:35:00 4879 1

原创微软的真正敌人

4月20日，在台下2000多人的关注下，比尔.盖茨在北大的百年讲坛上，正和六位“青年才俊”合影，变故突生，一个西装革履的人冲上讲台，手中举着一张白纸，上面写着“Free Software Open Source”，然后大声叫着“自由、开源”。据说这人是王开源.原来还是CSDN的人.不明白为什么要这样做?实上，在盖茨的敌手名单里，像“抗议者”这样的开源组织不在少数，但是，对盖茨而言，最具杀伤力

2007-05-03 00:48:00 843