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