Delphi 获取系统路径(C:\Windows\System32)

use shellapi

 

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      adr: array[0..MAX_PATH] of Char;  
  begin  
      GetSystemDirectory(adr,MAX_PATH);   //获取SYSTEM路径
 //GetWindowsDirectory(adr,MAX_PATH);   //获取WINDOWSM路径
      ShowMessage(adr);   //显示C:\Windows\System32
  end;