Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Функция 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;

 

Добавить комментарий


Защитный код
Обновить