用于得到局域网中的计算机名。但却不行，难道在Uses还要加上什么吗？

[tongki]

找到以前的贴子，用于得到局域网中的计算机名。

但是本人不知是在什么去做，请问需要放置什么控件在FORM上？
PITEMIDLIST和BROWSEINFO等运行时都说未标识，是不是需要在USES行上再加什么单词？

procedure TFLINK.BROWClick(Sender: TObject);
var
ppidl: PITEMIDLIST;
bi: BROWSEINFO;
ret: Array[0..MAX_PATH - 1] of Char;
begin
SHGetSpecialFolderLocation(
application.Handle,
CSIDL_NETWORK,
ppidl);
bi.hwndOwner := Handle;
bi.pidlRoot := ppidl;
bi.pszDisplayName := ret;
bi.lpszTitle := 'NetWork';
bi.ulFlags := BIF_BROWSEFORCOMPUTER ;
bi.lpfn := nil;
SHBrowseForfolder(bi);
lxtext.text:=ret;
end;

[tongki]

请高手指教！

[tongki]

请高手来指教！！

[naughtyboy]

uses shellapi

[tongki]

uses 行上加上shellapi了，但还是提示PITEMIDLIST和BROWSEINFO等运行时都说未标识。 另外请问FORM上放什么控件？

[Billy_Chen28]

Function GetNameByIP(MIP:string; var Name:string):boolean;
var
PHt:PHostEnt;
WSData: TWSAData;
i:Word;
j:integer;
k:u_long;
begin
result:=false;
i:=MAKEWORD(1,1);
if WSAStartup(i,WSData)<>0 then exit;
k:=inet_addr(PChar(MIP));
PHt:=gethostbyaddr(@k,4,PF_INET);
if PHt=nil then begin
j:=WSAGetLastError;
Name:='Error:'+inttostr(j-WSABASEERR);
end else begin
Name:=PHt.h_name;
result:=true;
end;
WSACleanup;
end;

[Billy_Chen28]

Function GetNameByIP(MIP:string; var Name:string):boolean;
var
PHt:PHostEnt;
WSData: TWSAData;
i:Word;
j:integer;
k:u_long;
begin
result:=false;
i:=MAKEWORD(1,1);
if WSAStartup(i,WSData)<>0 then exit;
k:=inet_addr(PChar(MIP));
PHt:=gethostbyaddr(@k,4,PF_INET);
if PHt=nil then begin
j:=WSAGetLastError;
Name:='Error:'+inttostr(j-WSABASEERR);
end else begin
Name:=PHt.h_name;
result:=true;
end;
WSACleanup;
end;

[naughtyboy]

我这里没有delphi
如果不行,你再试一试shlobj

[tongki]

多谢 naughtyboy(淘气男孩)和 cg1120(代码最优化－§雨后看见彩虹……§) ；

加上shlobj搞定