Diretório Temporário no Windows


Para se obter o diretório temporário no Windows, utilize a seguinte função:

 function GetTempDir: string;

  function FormatPath(Path: string): string;
  const
    DirSep: Char = {$IFDEF Unix}'/'{$ELSE}'\'{$ENDIF};
  var
    P: integer;
    SC: Char;
  begin
    if ord(DirSep) = ord('/') then
      SC := '\'
    else
      SC := '/';

    repeat
      P := Pos(SC, Path);
      if P > 0 then
        Path[P] := DirSep;
    until P = 0;

    Result := Path;
  end;

var
  Buffer: Array [0 .. 144] of Char;
Begin
  GetTempPath(144, Buffer);
  Result := FormatPath(StrPas(Buffer));
end;


delphi · ‎tempdir · ‎windows

Última atualização: 14/11/2017 às 17:41


  • Buscar