Как получить путь к папке Temp

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Функция GetTempWindows возвращает путь к системной временной папке Temp.

    Код:
    function GetTempWindows: string;
    var
      lng: DWORD;
      thePath: string;
    begin
      SetLength(thePath, MAX_PATH) ;
      lng := GetTempPath(MAX_PATH, PChar(thePath)) ;
      SetLength(thePath, lng) ;
      result:= thePath;
    end;
    Пример использования:

    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage(GetTempWindows);
    end;