Delphi 如何获取本地计算机名和IP地址
2018-07-31 · 百度认证:云南新华电脑职业培训学校官方账号
云南新华电脑学校
云南新华电脑学校是经云南省教育厅批准成立的省（部）级重点计算机专业学校，采用三元化管理模式，教学设备先进，师资雄厚学生毕业即就业，学院引进了电商企业入驻，创建心为电商创业园区，实现在校即创业
向TA提问
关注
![]()
展开全部
uses Windows;
function GetHostName:String;
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size: Cardinal;
begin
result:='';
Size := MAX_COMPUTERNAME_LENGTH+1;
GetComputerName(ComputerName, Size);
Result:=StrPas(ComputerName);
end;
function GetHostName:String;
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size: Cardinal;
begin
result:='';
Size := MAX_COMPUTERNAME_LENGTH+1;
GetComputerName(ComputerName, Size);
Result:=StrPas(ComputerName);
end;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
51IDC
2024-12-01 广告
独立IP服务器是专为满足高端网络需求而设计的服务器解决方案。它提供的、不可共享的IP地址，确保您的网站、应用或服务享有更高的安全性、稳定性和可靠性。独立IP服务器能有效避免共享IP可能带来的潜在风险，如IP被封禁等问题，为您提供更优质的网络...
点击进入详情页
本回答由51IDC提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
