获得计算机名称

2011-06-08 10:54:07 作者:闹猴在线 来源:闹猴在线 浏览次数:0 网友评论 0


{获得计算机名称
}
var
 ComputerName : pchar;
 Size : Cardinal;
 Ret : Boolean;
begin
 Size:=Max_ComputerName_Length+1;
 GetMem(ComputerName,Size);
 Ret :=GetComputerName(ComputerName,Size);
 if Ret then
   Result:=Strpas(ComputerName)
 else
   Result:='No Name';
 FreeMem(ComputerName);
end;

 


[错误报告] [推荐] [收藏] [打印] [关闭] [返回顶部]

  • 验证码:

最新图片文章

最新文章

赞助商推荐