//声明:GetTempPath(nBufferLength: DWORD; {缓冲区大小}lpBuffer: PChar {缓冲区}): DWORD;{返回实际长度}
//举例:vararr: array[0..MAX_PATH] of Char;num: DWORD;beginnum := GetTempPath(MAX_PATH, arr);ShowMessage(arr); {C:\DOCUME~1\wy\LOCALS~1\Temp\}ShowMessage(IntToStr(num)); {29}end;