Hola,
Si no quieres instalar los componentes que menciona
Troi, pero, lo que necesitas es lo que él presume, puedes utilizar esta función:
Código Delphi
[-]
function DirectorioWindows : string;
var
buffer: array[0..MAX_PATH] of Char;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
Result := IncludeTrailingPathDelimiter(buffer);
end;