比较这两段代码，那段代码比较好，谈谈见解。

                            
   
   //代码一   
   var   
         HostName:String;   
         Size:DWord;   
   begin   
         SetLength(HostName,64);   
         if   not   GetComputerName(PChar(HostName),Size)   then   
               ShowMessage('Something   error!');   
         HostName:=Copy(HostName,1,Pos(#0,HostName)-1);   
         //HostName是以＃0结尾的，去掉＃0以后的东东   
         ShowMessage(HostName);   
   end;   
      
   //代码二   
   var   
            CNameBuffer   :   PChar;   
         fl_loaded   :   Boolean;   
         CLen   :   ^DWord;   
         ComputerName:String;   
   begin   
      
               GetMem(CNameBuffer,255);   
               New(CLen);   
               CLen^:=   255;   
      
               fl_loaded   :=   GetComputerName(CNameBuffer,CLen^);   
      
               if   fl_loaded   then   
                     ComputerName   :=   StrPas(CNameBuffer)   
               else   
                     ComputerName   :=   'Unkown';   
      
               FreeMem(CNameBuffer,255);   
               Dispose(CLen);   
               ShowMessage(ComputerName);   
   end;