- 博客(4)
- 资源 (3)
- 收藏
- 关注
原创 HEXToStr StrToHEX
function TransChar(AChar: Char): Integer;begin if AChar in ['0'..'9'] then Result := Ord(AChar) - Ord('0') else Result := 10 +
2011-10-14 13:06:45 3941
转载 贴一份用delphi修改注册表改网卡MAC地址的代码
//提示:此代码需要use Registry, Common; function WriteMAC(model:integer):integer; var reg:TRegistry; begin reg:=TRegistry.Create; //创建注册表对象 reg.
2011-10-12 22:17:45 2983
转载 mac 获取
1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall;
2011-10-12 22:13:51 884 2
转载 delphi中临界操作方法
var FLock:TRTLCriticalSection; //定义临界区域begin InitializeCriticalSection(FLock); //初始化临界区域 EnterCriticalSection(FLock); //进入临界区
2011-10-12 01:36:37 1228
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人