得到系统Windows目录(实践后发觉是最好的)

function GetWinDir:String;
var  
      ps:   Pchar;  
  begin  
      GetMem(ps,255);  
      getwindowsdirectory(ps,255);  
      Result   :=   StrPas(ps);  
      FreeMem(ps);  
  end; 

一个简单的功能，用几种方式可以实现，实践后发觉这个是最好的：）