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;