本文整理自网络，侵删。
Delphi常用获取系统信息的函数单元
function SubString(sValue: string): string; //拷贝字符串
function ReplaceString(sValue: string): string; //删除字符串
function GetIdeDiskSerialNumber: string; //获得本机的硬盘ID号
function LocalIP: string; //获得本机的ip地址
function GetLocalHost: string; //获取计算机名称
function GetCurrentUserName: string; //获取当前计算机用户
function GetWindowsVersion: string; //获取系统版本号
function GetMemory: string; //GlobalMemoryStatus函数获取内存使用信息
function GetDiskID(disk:PWidechar):string;//获取硬盘序列号 ，disk为盘符
附件下载：/Upfile/201058/2010050873447297.rar 相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
