//声明: 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;