[saurn]

by_gangster, в скрипте не заметно строк связанных с переносом, только копирование.

[Mailchik]

by_gangster,

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
#ifdef UNICODE
 type
  PChar = PAnsiChar;
#endif

const
 MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
 external 'MoveFileExA@kernel32.dll stdcall';

procedure CurPageChanged(CurPageID : integer);
 begin
  case CurPageID of
   wpSelectDir: begin
    MoveFileEx(ExpandConstant('{src}\test.iss'), ExpandConstant('{src}\test2.iss'),
     MOVEFILE_REPLACE_EXISTING);
   end;
  end;
end;

[by_gangster]

Mailchik, И что это ?

[saurn]

Mailchik, И что это ? »

Перемещение файлов это

Код:

[Code]
#ifdef UNICODE
 type
  PChar = PAnsiChar;
#endif

const
 MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
 external 'MoveFileExA@kernel32.dll stdcall';

procedure InitializeWizard();
begin
 itd_init;
 itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar'));
 itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
 case CurStep of
   ssInstall: MoveFileEx(ExpandConstant('{src}\1.rar'), ExpandConstant('{app}\1.rar'), MOVEFILE_REPLACE_EXISTING);
 end;
end;

[by_gangster]

saurn, не работает... он просто скачивает и ложит рядом с инсталлом

[saurn]

by_gangster, скрипт можно полностью увидеть?

[by_gangster]

saurn, Конечно !

Код:

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=example1
Compression=lzma
SolidCompression=true
CreateAppDir=true
ShowLanguageDialog=yes

[Languages]
Name: english; MessagesFile: compiler:Default.isl

#include ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Downloader','ScriptPath','');

[_Code]
#ifdef UNICODE
 type
  PChar = PAnsiChar;
#endif

const
 MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
 external 'MoveFileExA@kernel32.dll stdcall';

procedure InitializeWizard();
begin
 itd_init;
 itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar'));
 itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
 case CurStep of
   ssInstall: MoveFileEx(ExpandConstant('{src}\1.rar'), ExpandConstant('{app}\1.rar'), MOVEFILE_REPLACE_EXISTING);
 end;
end;

[habib2302]

saurn,
дай лучше полный скрипт по закреплению ярлыка в панели задач семерки.а то я немогу разобраться куда что

[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-а

[saurn]

habib2302, я в своем скрипте сам разобратся не могу. Мой вопрос http://forum.oszone.net/post-2148420-416.html еще актуален))
Ну а по тому скрипту, вот:

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

Код:

[Tasks]
Name: quicklaunchiconforseven; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; MinVersion: 0,6.1

[Code]
function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryExW@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadStringW@user32.dll stdcall';

// thank for code to "El Sanchez" from forum.oszone.net
procedure PinToTaskbar(Filename: String; IsPin: Boolean);
var
  hInst: THandle;
  buf: array [0..255] of char;
  i, Res: Integer;
  strVerb, sVBSFile: String;
  objShell, colVerbs, oFile: Variant;
begin
  if (GetWindowsVersion shr 24 < 6) or ((GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF < 1)) then Exit; // Windows 7 check

  if not FileExists(Filename) then Exit;

  if IsPin then Res := 5386 else Res := 5387;
  begin
    hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
    if hInst <> 0 then
    try
      for i := 0 to LoadString(hInst, Res, buf[0], 255)-1 do strVerb := strVerb + Buf[i];
      try
        objShell := CreateOleObject('Shell.Application');
      except
        ShowExceptionMessage;
        Exit;
      end;
      oFile    := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename));
      colVerbs := oFile.Verbs;

      if IsWin64 and (Pos (ExpandConstant ('{pf64}\'), Filename) = 1) then begin
        sVBSFile := GenerateUniqueName (GetTempDir, 'mpc_be.vbs');
        SaveStringToFile (sVBSFile, \
          'Set oShell=CreateObject("Shell.Application")'  + #13 + \
          'Set oVerbs=oShell.NameSpace("' + ExtractFileDir (Filename) + '").ParseName("' + ExtractFileName (Filename) + '").Verbs' + #13 + \
          'For Each oVerb In oVerbs'                      + #13 + \
          '  If (oVerb="' + strVerb + '") Then'            + #13 + \
          '    oVerb.DoIt'                                + #13 + \
          '    Exit For'                                  + #13 + \
          '  End If'                                      + #13 + \
          'Next'                                , False);

        exec( ExpandConstant ('{win}\Sysnative\cscript.exe'), '"' + sVBSFile + '" /B', '', SW_HIDE, ewWaitUntilTerminated, i);
        DeleteFile (sVBSFile);
      end else begin
        for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then begin
          if (IsPin and oFile.IsLink) then
            DeleteFile (ExpandConstant ('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName (Filename));

          colVerbs.Item[i].DoIt;
          Break;
        end;
      end;
    finally
      FreeDLL(hInst);
    end;
  end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssPostInstall: if IsTaskSelected('quicklaunchiconforseven') then PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), True);
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall: PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), False);
  end;
end;

Хотя уважаемый Johny777 прав, в шапке есть.