关于如何编程得到windows的临时目录路径名---求助(20分)

系统通常都有默然的临时目录，如：在Win2000和登录用户为fr时，临时目录为D:/Documents and Settings/fr/Local Settings/Temp ,如何对不同系统及用户名编程提取呢？

GetTempPath<br><br>{获得Windows目录}<br>function GetWinDir: string;<br>var<br>&nbsp; dir: array[0..MAX_PATH] of Char;<br>begin<br>&nbsp; GetWindowsDirectory(dir, MAX_PATH);<br>&nbsp; Result := StrPas(dir);<br>end;<br><br>{获取系统目录}<br>function SystemDir: string;<br>var<br>&nbsp; dir: array[0..MAX_PATH] of Char;<br>begin<br>&nbsp; GetSystemDirectory(dir, MAX_PATH);<br>&nbsp; Result := StrPas(dir);<br>end;<br><br>{获取系统Temp目录}<br>function GetTempDir: string;<br>var<br>&nbsp; Buffer: array[0..MAX_PATH] of Char;<br>begin<br>&nbsp; GetTempPath(SizeOf(Buffer) - 1, Buffer);<br>&nbsp; Result := StrPas(Buffer);<br>end;

var<br>&nbsp; achar;<br><br>&nbsp; getmem(a,255);<br>&nbsp; gettemppath(255,a);<br>&nbsp; showmessage(strpas(a));<br>&nbsp; freemem(a);

使用这个过程：<br>getdit(d:byte;var s:string);<br>其中d的取值可为（0，1，2，3..）<br>分别代表（默认，A,B,C..)。