Como saber la ubicacion de la carpeta Windows

[Khronos]

Hola,

Código Delphi [-]
function GetWindowsTempFolder : String;
      var
         pcSystemDirectory : PChar;
         dwSDSize          : DWORD;
              begin
              dwSDSize := MAX_PATH + 1;
              GetMem( pcSystemDirectory, dwSDSize );
                    try
              if GetSystemDirectory( pcSystemDirectory, dwSDSize ) <> 0 then
                   Result := pcSystemDirectory + '\temp\';
                   finally
                   FreeMem( pcSystemDirectory );
                end;
              end;