[Dinvin4ester]

http://sendfile.su/995934 ребята,можно-ли сюда добавить музыку и сделать чтоб инсталлятор был на русском и на англ,ну как бы сделать переключение.
Спасибо.

[Dodakaedr]

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

Вот держите Ваш скрипт вам осталось только перевести текст на английский в секции [CustomMessages] и дописать остальные строчки в процедуре "ChangeLang()" (я там уже пару строк написал для примера). Но с кнопками Далее, Назад, Отмена я вам не помогу. Обратитесь к специалистам по ботве, или может сами решите...

[El Sanchez]

нужно, что бы препроцессор нашел все файлы в заданной папке и забил их в директиву. »

Fanat1990, держите пример. Для отладки раскомментируйте строку с pragma error, увидите результирующую строку.

Код:

#define FileHandle
#define FindResult
#define Resources

#sub ProcessFoundFile
  #define FileName FindGetFileName(FileHandle)
  #define public Resources Resources + FileName + ":""Files\" + FileName + """|"
#endsub

#for {FileHandle = FindResult = FindFirst("Files\*.*", 0); FindResult; FindResult = FindNext(FileHandle)} ProcessFoundFile

#if FileHandle
  #expr FileClose(FileHandle)
  #expr Delete(Resources, Len(Resources), 1)
#endif

;#pragma error Resources

[Setup]
RawDataResource={#Resources}

Возможно ли сделать такой установщик без использования библиотеки IsDone »

Kashtan007, можно хоть ракеты в космос запускать.

[Fanat1990]

El Sanchez, спасибо, то что нужно. Скажите, а как правильно прописать несколько директорий? К примеру файлы находятся в папках Files1 и Files2

[El Sanchez]

а как правильно прописать несколько директорий? К примеру файлы находятся в папках Files1 и Files2 »

Fanat1990, пробуйте:

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

Код:

#define PathList "Files|Files2"
#define FileHandle
#define FindResult
#define Resources ""

#define ResourcesEntry(str *Result, str ResName, str ResPath) \
    (Len(ResName) && Len(ResPath)) ? \
    Result = Result + ResName + ":""" + ResPath + "\" + ResName + """|" : \
    Result

#sub ParseList
    #define public Mask \
        (Local[0] = Pos("|", PathList)) ? \
        Copy(PathList, 1, Local[0]-1) + "\*.*" : \
        PathList + "\*.*"
    #for {FileHandle = FindResult = FindFirst(Mask, 0); FindResult; FindResult = FindNext(FileHandle)} \
        ResourcesEntry(Resources, FindGetFileName(FileHandle), ExtractFilePath(Mask))
#endsub

#for {Len(PathList); Len(PathList); (Pos("|", PathList) ? Delete(PathList, 1, Pos("|", PathList)) : Delete(PathList, 1, Len(PathList)))} ParseList

#if FileHandle
  #expr FileClose(FileHandle)
  #expr Delete(Resources, Len(Resources), 1)
#endif

;#pragma error Resources

[Setup]
RawDataResource={#Resources}

[habib2302]

Всем привет. Помогите мне решить проблему. Мне давали код на закрепление ярлыков в панеле задач и в меню пуск 2 в1. при выборе этих двух заданий (Tasks), то закрепляется только на панеле, а в меню нет. вот скрипт
https://yadi.sk/d/mVOJwGQZVqMQw

[El Sanchez]

Мне давали код на закрепление ярлыков в панеле задач и в меню пуск 2 в1 »

2 в 1 не есть хорошо, ибо для закрепления ярлыка в меню Пуск код другой, а не та каша из булевых параметров, что вы привели. Разделите по функциям и используйте их отдельно:

PinToTaskbar

Код:

function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to executable file
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar
var
    hInst: THandle;
    buf: array [0..255] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }

    { String resources }
    if IsPin then
    begin
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
        begin
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;
        res := 5386;        { Pin to Tas&kbar }
    end else res := 5387;   { Unpin from Tas&kbar }

    { Load string resource }
    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 Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');
            colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
            for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
            begin
                colVerbs.Item[i].DoIt;
                Result := True;
                Break;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

PinToStartMenu

Код:

function PinToStartMenu(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to exe- or lnk-file
// IsPin......: False - unpin from StartMenu, True - pin to StartMenu
var
    hInst: THandle;
    buf: array [0..259] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if not FileExists(szFilename) then Exit;
    if GetWindowsVersion > $06020000 then Exit; { Window 8 and above }

    { Windows 7 }
    if (GetWindowsVersion >= $06010000) and boolean(SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0)) then
    begin
        while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
        if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\') + ExtractFileName(strLnk)) then Exit;
    end;

    { String resources }
    if IsPin then
        res := 5381     { Pin to Start Men&u }
    else
        res := 5382;    { Unpin from Start Men&u }

    { Load string resource }
    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 Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');

            { below Windows 7 }
            if GetWindowsVersion < $06010000 then
            begin
                objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).InvokeVerb(strVerb);
                Result := True;
            end;

            { Windows 7 }
            if GetWindowsVersion >= $06010000 then
            begin
                colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
                for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
                begin
                    colVerbs.Item[i].DoIt;
                    Result := True;
                    Break;
                end;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

[habib2302]

El Sanchez, Выдает ошибку

[YURSHAT]

habib2302, компилятор говорит, что вы передаете неправильное количество параметров. В функции у вас два параметра, а вы передаете 3. Уберите ненужный булевый параметр.

Код:

      if IsTaskSelected('icons\taskbaricon') then
        PinToTaskbar(ExpandConstant('{app}\{#MyAppExeName}'), True);
      if IsTaskSelected('icons\startmenuicon') then
        PinToStartMenu(ExpandConstant('{app}\{#MyAppExeName}'), True);

[habib2302]

YURSHAT, как я понимаю должно быть так?

Код:

Procedure CurPageChanged(CurPageID: Integer);
Begin
  Case CurPageID of
     wpFinished:
        begin
      if IsTaskSelected('icons\taskbaricon') then
        PinToTaskbar(ExpandConstant('{app}\{#MyAppExeName}'), True);
      if IsTaskSelected('icons\startmenuicon') then
        PinToStartMenu(ExpandConstant('{app}\{#MyAppExeName}'), True);
    end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  instPath: string;
begin
    case CurUninstallStep of
      usUninstall:
      begin
      PinToTaskbar(ExpandConstant('{app}\{#MyAppExeName}'), False);
      PinToStartMenu(ExpandConstant('{app}\{#MyAppExeName}'), False);
      end;
    end;
end;