获取计算机名称的函数

function GetCompName: string;
var
  lsComputerName: PChar;
  liSize: Cardinal;
begin
  liSize := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(lsComputerName, liSize);
  GetComputerName(lsComputerName, liSize);   // 获得计算机名称
  Result := lsComputerName;
end;  
阅读更多
文章标签: function string
上一篇注意、提示、错误通用对话框函数
下一篇启动服务函数
想对作者说点什么? 我来说一句

获取Javascript函数名称

2013年04月10日 12KB 下载

获取计算机名称和工作组

2009年09月15日 1.79MB 下载

NET获取计算机名称IP地址

2011年01月13日 72KB 下载

没有更多推荐了,返回首页

关闭
关闭