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;