摘要: function NBGetAdapterAddress(a: integer): String; //a指定多个网卡适配器中的哪一个0,1,2... Var NCB:TNCB; //NetBios控制块 ADAPTER:TADAPTERSTATUS; //取网卡状态 LANAENUM:TLANAENUM; //Netbios lana intIdx:Integer; //Temporar... 阅读全文
posted @ 2010-01-31 23:41 oKmAn.Org 阅读(262) 评论(0) 推荐(0) 编辑
摘要: function LocalIP: String;type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: Integer; GInitData: TWSAData;b... 阅读全文
posted @ 2010-01-31 23:39 oKmAn.Org 阅读(330) 评论(0) 推荐(0) 编辑
摘要: 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。   一、创建和释放TRegistry对象   1.创建TRegistry对象。为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create;   2.释放TRegistry对象。对注册表操作结束后,应释放TRegistry对象所占内存:ARegistry.Destroy。... 阅读全文
posted @ 2010-01-31 03:12 oKmAn.Org 阅读(556) 评论(1) 推荐(0) 编辑