1.用此方式winexec(pchar('command.com /c hostname>c:\temp.txt'),sw_hide); 可抓取到机器名，但只能在win2k或以上的版本使用，在win98上没有反应 2.api函数getcomputername只能在的delphi5.0版本上使用，在delphi6.0上运行出问题 怎样处理？拜托帮邦我？谢谢！

如果你D6 有裝Indy 的話 那麼試試下列方法,使用Indy Client/Server UDP 或是TCP 等相關元件皆可    

procedure TForm1.Button1Click(Sender: TObject);
begin
    Self.Caption :=IdUDPClient1.LocalName  ;
end;

發表人 - ddy 於 2003/02/21 01:58:00