获得临时文件目录(Temp文件夹)

C:UsersADMINI~1AppDataLocalTemp

 

//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;

来自为知笔记(Wiz)