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;