我们平时写Delphi程序的时候经常要获取一些系统信息,比如当前的机器名称、用户名、当前应用程序的路径、系统环境变量、逻辑盘符、某些特殊文件夹的位置、本机的IP地址、外网的IP地址、网卡的物理地址(MAC)、Internet连接状态等等。今天我把以前的这些代码整理并封装在一个单元里面,分享给大家。原始单元名称为System.Environment.pas,命名参考了.Net里面的System.Environment类,同时根据Delphi的特性做了一些调整和扩充。DEMO截图:
源代码下载及帮助见:http://www.zuobaoquan.com/2009/04/26/delphi-system-environment-pas/