本文整理自网络，侵删。
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 mailurlmaybeinvalid 检测邮箱地址有效性
Delphi fdconnection取得excel工作表名
Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；
更多相关阅读请进入《Delphi》频道 >>
