procedure RealizeLength(var s:string);
         begin
          setlength(s,strlen(pchar(s)));   //这段里里面的s,strlen两个是什么意思的
          end;
          var
           s:string;
            begin
             setlength(s.256);  
              GetwindowsDirectory(p(s),256);
              Realizelrngth(s); 
              end;  
 
 请大家给个详细的注释,