Vista系统下用delphi开发工具怎么得到计算机名

Question

在Vista系统下，通过注册表或调用Getcomputername函数均无法得到计算机名，那么如何才能得到？请高手指教。急急急.....谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  hostname:pchar;
  size:Cardinal;
begin
  getmem(hostname,256);
  if not assigned(hostname) then Exit;  try
    if getcomputername(hostname,size) then
      self.Caption := strpas(hostname);
  finally
    freemem(hostname);
  end;
end;delphi6+vista测试没问题,请楼主验证.