博客展示了一个查找计算机的函数 `findcomputer` 的实现代码。该函数接收计算机名作为参数，使用 WinSock 相关操作，通过 `gethostbyname` 函数根据计算机名获取主机信息，若获取失败则返回 `false`，最后清理 WinSock 资源。
uses
... WinSock;
function TForm1.findcomputer(computername: string): boolean;
var wsadata:twsadata;
hostent:phostent;
begin
result:=true;
wsastartup(2,wsadata);
hostent:=gethostbyname(pchar(computername));
if hostent=nil then result:=false;
wsacleanup;
end;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
