delphi 获取系统临时文件夹路径

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  path:array[0..255] of Char;
begin
  GetTempPath(255,@path);
  ShowMessage(path);
end;