[dec]

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;