Как получить путь к папке Temp

Функция GetTempWindows возвращает путь к системной временной папке Temp.

Код:

function GetTempWindows: string;
var
  lng: DWORD;
  thePath: string;
begin
  SetLength(thePath, MAX_PATH) ;
  lng := GetTempPath(MAX_PATH, PChar(thePath)) ;
  SetLength(thePath, lng) ;
  result:= thePath;
end;

Пример использования:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetTempWindows);
end;