[by_gangster]

Johny777, Я так и пытался делать в строчке itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar')); src изменил на app, но выскакивает ошибка...

P.S есть ли скрипт который сразу в указанную папку скачает?

[Johny777]

saurn,

Мой вопрос http://forum.oszone.net/post-2148420-416.html еще актуален)) »

из шапки взял, из той же функции закрепления ярлыка в панели задач:

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

Код:

function ThereIsFile(const FileName: String): Boolean;
var
    oFS: Variant;
begin
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        Result := oFS.FileExists(FileName);
    except
        //ShowExceptionMessage;
    end;
end;

procedure InitializeWizard();
begin
    if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + 'Mozilla Firefox.lnk') then MsgBox('OK', mbInformation, MB_OK);
    //if ThereIsFile(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + 'Mozilla Firefox.lnk') then MsgBox('OK', mbInformation, MB_OK);
end;

PS: у тебя тоже вроде правильный путь был, но ни FileExists(...) ни альтернативная ThereIsFile(...)так не считали (аномалия ! ), но сейчас вроде работает и это главное!

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

by_gangster,

P.S есть ли скрипт который сразу в указанную папку скачает? »

в примере что я тебе дал
function DownloadFile(const SourceFile, DestFile: String): Boolean;

и в шапке ещё пример El Sanchez-а

[saurn]

Johny777, дак по этому же принципу и проверял - ноль эмоций. Даже, если ярлык присутствует все равно вызов ShellExec проходит. В шапке еще есть второй пример закрепления ярлыка от El Sanchez, но у меня с ним траблы кое-какие(с скриптом не связаные) потому остановился на этом примере. Но, например, если запустить переустановку, то уже созданный ярлык удаляется.

[Johny777]

saurn, насколько я помню код El Sanchez-а порт того самого VBS скрипта, какие траблы у тебя?
function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
первый входной параметр - путь к файлу, к которому нужно закрепить ярлык, второй - булев значение - закрепить/удалить ярлык

[habib2302]

короче по поводу закрепления ярлыка в панели задач семерки задавайте вопросы автору Aleksoid1978
кстати.в inno setup есть скрипт

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[ code]
const
  LOAD_LIBRARY_AS_DATAFILE = $2;

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';

//Filename: full path to executable file
//IsPin: False - unpin from TaskBar, True - pin to TaskBar
function PinToTaskbarWin7(Filename: String; IsPin: Boolean): Boolean;
var
  hInst: THandle;
  buf: array [0..255] of char;
  i, Res: Integer;
  strVerb: String;
  objShell, colVerbs: Variant;
begin
  if not FileExists(Filename) then Exit;
  if IsPin then Res := 5386 else Res := 5387;
  if (GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF = 1) then 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;
      colVerbs := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename)).Verbs;
      for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then begin
        colVerbs.Item[i].DoIt;
        Result := True;
        Break;
      end;
      finally
        FreeDLL(hInst);
    end;
  end;
end;

procedure InitializeWizard();
begin
  PinToTaskbarWin7('c:\windows\notepad.exe', True);
end;

вот он и закрепляет иконку,но можно этот скрипт доработать

[by_gangster]

Johny777, А в примере от El Sanchez, можно сделать что бы окно выбора не высвечивалось ?

[habib2302]

люди.я незнаю как вам сказать.короче.как назначить иконку для ярлыка в этом скрипте Закрепить ярлык на панели задач в Windows 7 (вариант №1)

[by_gangster]

habib2302, Я не совсем понял, если иконка инсталла то

Код:

[_setup]
IconFilename: "{app}\myicon.ico"

[saurn]

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

В качестве иконки ярлыка берется иконка исполняемого файла.

[habib2302]

by_gangster, для инсталла я знаю
обрати внимание на выделенный жирным текст "как назначить иконку для ярлыка в этом скрипте"
например вот так

Код:

IconFilename: {app}\ico.ico;