获取系统临时目录

uses

Winapi.Windows;

// 根据系统的环境变量获取系统临时目录

function GetWinTempPath: string;
var
  tmpdir: array [0 .. 255] of char;
begin
  GetTempPath(255,@tmpdir);
  Result :=StrPas(Tmpdir);
  if copy(Result,length(Result),1)<>'\' then
    Result:=Result+'\';
end;