获得临时文件目录(Temp文件夹)
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;