Delphi 获取本地电脑名称/IP/MAC Address

//电脑名称
function GetBiosName:string;
var
cName:array[0…255] of char
oWSAData:TWSAData;
IsSocketup:Boolean;
begin
IsSocketup:=False;
if not IsSocketup then begin
IsSocketup:= WSAStartup($0101,oWASData )=0;
end;
result:=‘’;

end;