Compago

function GetTempDir: string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  GetTempPath(SizeOf(Buffer) - 1, Buffer);
  Result := StrPas(Buffer);
end;

function GetTempPath: string;
var
  TmpDir: PChar;
begin
  TmpDir := StrAlloc(MAX_PATH);
  GetTempPath(TmpDir, MAX_PATH);
  Result := string(TmpDir);
  if Result[Length(Result)] <> '\' then
    Result := Result + '\';
  StrDispose(TmpDir);
end;

function GetTempPath(var S: String): Boolean;
var
  Len: Integer;
begin
  Len := Windows.GetTempPath(0, nil);
  if Len > 0 then
  begin
    SetLength(S, Len);
    Len := Windows.GetTempPath(Len, PChar(S));
    SetLength(S, Len);
    Result := Len > 0;
  end else
    Result := False;
end;