关闭

获取计算机名称的函数

177人阅读 评论(0) 收藏 举报
function GetCompName: string;
var
  lsComputerName: PChar;
  liSize: Cardinal;
begin
  liSize := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(lsComputerName, liSize);
  GetComputerName(lsComputerName, liSize);   // 获得计算机名称
  Result := lsComputerName;
end;  
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9151次
    • 积分:219
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:6篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论