C:\Users\ADMINI~1\AppData\Local\Temp\
//GetTempPath获得临时文件目录(Temp文件夹)
function TempPath:String;
var
tmp:array [0..MAX_PATH] of
Char;
begin
GetTempPath(MAX_PATH,tmp);
Result:= tmp;
end;
procedure TForm1.Button1Click(Sender:
TObject);
begin
Edit1.Text
:= TempPath;
end;获得临时文件目录(Temp文件夹),布布扣,bubuko.com
原文：http://www.cnblogs.com/xe2011/p/3876081.html