如何获得用户的计算机名称(0分)

如何获得用户的计算机名称,请问用那条语句??谢谢

nbtstat -A ip地址

有点搞不懂先生的先生的意思,你这条语句应该如何写法啊??请再指教

procedure TForm1.Button1Click(Sender: TObject) ;
var
ComputerName: PChar;
size: DWord;
begin
GetMem(ComputerName,255) ;
size:=255;
// 获取计算机名称
if GetComputerName(ComputerName,size)=False then
begin
MessageBox(Handle, '获取计算机名称失败。' , '错误' , MB_OK+MB_ICONERROR);
FreeMem(ComputerName);
Exit;
end;
Edit1.Text:=ComputerName;
FreeMem(ComputerName) ;
end;

如果我将这条语句改成插入到表的一个字段里,如何改写代码啊,谢谢