[Johny777]

by_gangster, вот самодостаточный пример скачивания файла с последующим перемещением в нужную директорию

читать дальше »

Код:

//procedure MoveFile(const SourceFile, DestFile: String);
//var
//    oFS: Variant;
//begin
//    if not FileExists(SourceFile) then Exit;
//    if FileExists(DestFile) then Exit;
//    if not DirExists(ExtractFileDir(DestFile)) then
//      if not ForceDirectories(ExtractFileDir(DestFile)) then Exit;
//
//    oFS := CreateOleObject('Scripting.FileSystemObject');
//    try
//        oFS.MoveFile(SourceFile, DestFile);
//    except
//
//    end;
//end;

const
    S_OK = $00000000;
    MOVEFILE_REPLACE_EXISTING = $00000001;

function URLDownloadToFile(Caller: IUnknown; URL, FileName: String; Reserved: DWORD; StatusCB: Longint): Longint; external 'URLDownloadToFileA@Urlmon.dll stdcall';
function MoveFileEx(lpExistingFileName, lpNewFileName: String; dwFlags: DWORD): BOOL; external 'MoveFileExA@kernel32.dll stdcall';
                                                                                                  
function DownloadFile(const SourceFile, DestFile: String): Boolean;
begin
    try
        Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, 0) = S_OK;
    except
        Result := False;
    end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    if CurStep = ssInstall then
      if DownloadFile('http://mse.dlservice.microsoft.com/download/7/6/0/760B9188-4468-4FAD-909E-4D16FE49AF47/ruRU/x86/mseinstall.ee', 'C:\file.exe') then
        if not MoveFileEx('C:\file.exe', 'C:\Test\file.exe', MOVEFILE_REPLACE_EXISTING) then
        MsgBox('Ошибка перемещения файла:' + #13#10 + SysErrorMessage(DLLGetLastError), mbError, MB_OK); // Debug
end;

я б на твоём месте сразу качал куда надо без перемещения
судя по прототипу функции itd_addfile (у меня также, только ф-я по другому называется) это не проблема

========================================================

дай лучше полный скрипт по закреплению ярлыка в панели задач семерки »

habib2302, в шапку посмотри, в соответствующий пример El Sanchez-а