WinInet загрузить файл во временной файл , использовать, потом удалить

[Человек_Борща]

Привет всем!

Интересует следующий вопрос!
Как загрузить файл , как временной(чтоб во временной папке был) или типа *.tmp что-ли=)

Потом использовать его.
По завершению программы удалить?

Вот написал функцию загрузки...

function ThttpThread.HTTPGetFile(const FileURL,FileSaveDest:string;ShowProgress:Boolean):Boolean;
const
  BufferSize=1024;  //Буфер данных
var
  hSession,hURL:HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen:LongWord;
  F:file;
  pAppName:string;
begin
  Result:=False;
  pAppName:='ArhangeLFilesUpdater';
  hSession:=InternetOpen(PChar(pAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  try
  hURL:=InternetOpenUrl(hSession,PChar(FileURL),nil,0,0,0);
  if (hURL<>nil) then
  begin
  try
  DeleteUrlCacheEntry(PChar(FileURL));
  AssignFile(F,FileSaveDest);
  Rewrite(F,1);
  repeat
    InternetReadFile(hURL,@Buffer, SizeOf(Buffer),BufferLen);
    BlockWrite(F,Buffer,BufferLen);
    if (ShowProgress) then
    begin
    LT:=LT+BufferLen;
    SendMessage(MainForm.Handle,PROGRESS,0,LT+BufferLen);
    end;
    until
    BufferLen= 0;
    CloseFile(F);
    Result:=True;
    finally
      InternetCloseHandle(hURL);
      end;
      end;
     finally
     InternetCloseHandle(hSession);
  end;
  LT:=0;
  SendMessage(MainForm.Handle,PROGRESS,0,0);
end;

Как не сохранять файл где-нибуть а на время работы программы зделать его временным?
После завершения exe удалить файл?

Какой флаг использовать?

или может как получить временную папку?

[Человек_Борща]

Народ , подскажет кто-нибуть?

[ZaRDaK]

вроде бы за папку темп отвечает одноименная системная переменная %TEMP%
Юзать так:

function GetTempFolder: string;
var buf: PChar;
begin
buf:= StrAlloc(MAX_PATH);
if GetEnvironmentVariable('Temp', buf, MAX_PATH)<> 0 then
Result:= buf else
Result:= 'N/A';
StrDispose(buf);
end;

[Пепел Феникса]

GetTempPath

[GunSmoker]

См. также.

[Человек_Борща]

Спасибо что ответили:
вот ещё вариант:

function GetTempDir : String;
var
 Buffer: array[0..1023] of Char;
begin
 SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));
end;