码迷,mamicode.com
首页 > 其他好文 > 详细

获取计算机名称

时间:2018-02-04 11:16:43      阅读:156      评论:0      收藏:0      [点我收藏+]

标签:get   ada   body   end   var   tar   ring   win   sock   

function GetComputerName:String; //获取计算机名称
//引用winsock
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt; s : array[0..128] of char;
begin
try
wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
WSAStartup(wVersionRequested, wsaData); //创建 WinSock
GetHostName(@s,128);
p:=GetHostByName(@s);
Result:=p^.h_Name;
finally
WSACleanup; //释放 WinSock
end;
end;

获取计算机名称

标签:get   ada   body   end   var   tar   ring   win   sock   

原文地址:https://www.cnblogs.com/semth/p/8412531.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!