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;