Скачаивание файла с сервера на компьютер пользователя

[SKS]

Доброго времени суток!
Моя программа позволяет проверить версию и если появилась новая версия, предлагает скачать.
Программа скачивает на диск С:, но вот столкнулся с проблемой, а именно: у некоторых пользователей диск С: отсутствует и система стоит на другом диске.
Подскажите как реализовать так чтобы файл скачивался на системный диск, если можно то желательно на рабочий стол.
Вот мой код скачивая файла:

procedure TForm1.N6Click(Sender: TObject);
var
LoadStream : TMemoryStream;
begin
LoadStream := TMemoryStream.Create();
idHTTP1.Get('http://мой сайт/файл.zip', LoadStream);
LoadStream.SaveToFile('C:/архив.zip');
LoadStream.Free;
  Application.MessageBox('Файл скачан!'+#13#10+'Расположение на диске С:','Обновление скачано',MB_OK);
end;

[indexx]

Uses ActiveX, ShlObj;
...
function GetDeskTopPath : string;
var
  SpecialDir: PItemIdList;
begin
    SetLength(result, MAX_PATH);
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, SpecialDir);
    SHGetPathFromIDList(SpecialDir, PChar(Result));
    SetLength(result, lStrLen(PChar(Result)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(GetDeskTopPath);
end;

[FaTaL]

Или так:

uses
  Windows, ShlObj;
...............................................
function GetUserDesktopDir : string;
var
  c   : array [0..MAX_PATH] of char;
  dir : string;
begin
  SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, c);
  dir := c;
  result := dir + '\';
end;

[min@y™]

попробуй ещё поюзать переменную окружения. сам не пробовал, но интересно.

LoadStream.SaveToFile('%USERPROFILE%\Desktop\архив.zip');

[SKS]

min@y™ пробовал ваш код в различных вариациях - не помогло =) путь неверный.
FaTaL с вашим кодом малость не понял.
indexx ваш пример наталкнул на верный путь, попробую реализовать.
Всем спасибо! Кину + на весы за идеи.

[indexx]

indexx ваш пример наталкнул на верный путь, попробую реализовать.

Хм... А в таком виде, как я привёл, код не работает? Любопытно узнать какую строку отдаёт функция.

[newerow1989]

А переменная idHTTP1 какого типа?

[min@y™]

А переменная idHTTP1 какого типа?

Вероятно, idHTTP1 : TidHTTP;

[newerow1989]

А в каком модуле тип TidHTTP (или что писать после uses)?

[min@y™]

А в каком модуле тип TidHTTP (или что писать после uses)?

Я, похоже, сёдня дежурный по поиску.