delphi 获取临时文件夹路径

//声明:GetTempPath(  nBufferLength: DWORD; {缓冲区大小}  lpBuffer: PChar       {缓冲区}): DWORD;               {返回实际长度}

//举例:var  arr: array[0..MAX_PATH] of Char;  num: DWORD;begin  num := GetTempPath(MAX_PATH, arr);  ShowMessage(arr);           {C:\DOCUME~1\wy\LOCALS~1\Temp\}  ShowMessage(IntToStr(num)); {29}end;