请问如何获得本机名称和服务器名称。

用ado连接（应该和这个没关系）。。

• · 推荐参考文章：
• TCPDump BGP解码例程拒绝服务漏洞
• Tcpdump RSVP解码例程拒绝服务漏洞
• Tcpdump ISIS解码例程拒绝服务漏洞
• Tcpdump LDP解码例程拒绝服务漏洞
• Cisco 600系列路由器WEB管理服务未明远程拒绝服务漏洞
• Sun Solaris tcsh ls-F命令未明本地权限提升漏洞
• IBM AIX diag未明权限提升漏洞
• IBM AIX enq本地格式串处理漏洞
• Botan Es_Unix本地权限提升漏洞
• Sun Solaris LPStat未明本地权限提升漏洞

· 网友精彩回答：

function   getcomputerusername:   ansistring;  
  var  
        cnamebuffer   :   pchar;  
      fl_loaded   :   boolean;  
      clen   :   ^dword;  
      begin  
          getmem(cnamebuffer,255);  
          new(clen);  
          clen^:=   255;  
          fl_loaded   :=   getcomputername(cnamebuffer,clen^);  
          if   fl_loaded   then  
              result:=   strpas(cnamebuffer)  
          else  
              result:=   unkown;  
          freemem(cnamebuffer,255);  
          dispose(clen);  
  end;