[Rekit_403]

Доброй ночи ребята.
Как реализовать подкачку модов из сети в установщике?
Т.е. моды, которые много весят будут докачивать с различных файлообменников.
Есть ли какой-то пример, как реализовать данное чудо?
Заранее благодарю всех кто поможет.

[Nordek]

Есть ли какой-то пример, как реализовать данное чудо? »

Загрузка файла из Интернет
InnoTools Downloader

[audiofeel]

подскажите, кто знает как "вызвать" это сообщение в левом верхнем углу в конце успешного выполнения чего либо, не кастомно а "вызвать", выпросить у Windows ????

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

[Tco 03]

с твоим вариантом получилось со стандартным прогрессбаром а надо прогрессбары ISDone »

А ISDone прогресс бар - это что? Я дал пример, а как его прикрутить к своему скрипту - это уже Ваша задача.

[Kashtan007]

Здравствуйте, есть вопрос к El Sanchez.
Страницами раньше вы помогли мне с бекапом и удалением компонентов. Тык
Так вот я только обнаружил проблему...
Удалением модов происходит после установки компонентов.
Т.е. сначала производится бекап, потом установка компонетов, а потом оно удаляет и старые компоненты и те которые только что установились.
Как изменить этот порядок?
Чтобы удаление происходило перед установкой новых компонетов?
Заранее спасибо за ответ!

[El Sanchez]

Удалением модов происходит после установки компонентов. Т.е. сначала производится бекап, потом установка компонетов, а потом оно удаляет и старые компоненты и те которые только что установились. Как изменить этот порядок? Чтобы удаление происходило перед установкой новых компонетов? »

Kashtan007,

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

Код:

[Setup]
AppName=test2
AppVerName=test2
DefaultDirName=D:\test

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[CustomMessages]
ru.DeleteOldMods=Удалить все старые моды
ru.CreateBackupOldMods=Сохранить бекап старых модов
ru.DeletingOldMods=Удаление старых модов...
ru.RestoringOldMods=Восстановление старых модов...

[Files]
Source: {app}\res_mods\*; DestDir: {app}\ModPack\BackUp\res_mods; Flags: external createallsubdirs recursesubdirs skipifsourcedoesntexist; AfterInstall: DeleteFiles(ExpandConstant('{app}\res_mods\*'), True); Check: IsOldMods('CreateBackupOldMods')
Source: {app}\path.file; DestDir: {app}\ModPack\OriginalFiles; Flags: external skipifsourcedoesntexist; AfterInstall: DeleteFiles(ExpandConstant('{app}\path.file'), False)

[UninstallRun]
Filename: {cmd}; Parameters: "/c xcopy /ecihry ""{app}\ModPack\BackUp\res_mods"" ""{app}\res_mods\"""; StatusMsg: {cm:DeletingOldMods}; Flags: runhidden; Check: IsOldMods('CreateBackupOldMods')
Filename: {cmd}; Parameters: "/c xcopy /ecihry ""{app}\ModPack\OriginalFiles\path.file"" ""{app}\"""; Flags: runhidden

[code]
var
    OldModsListBox: TNewCheckListBox;

///////////////////////////////////////////////
function IsOldMods(const Msg: String): Boolean;
begin
    with OldModsListBox do
        Result := Checked[Items.IndexOf(CustomMessage(Msg))]
end;

//////////////////////////////
procedure CreateSelectDirPage;
var
    rt: TRect;
begin
    OldModsListBox := TNewCheckListBox.Create(WizardForm);
    with OldModsListBox do
    begin
        Parent := WizardForm.SelectDirPage;
        Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + ScaleY(10);
        Width := Parent.ClientWidth;
        BorderStyle := bsNone;
        ParentColor := True;
        ShowLines := False;
        WantTabs := True;
        AddCheckBox(CustomMessage('DeleteOldMods'), '', 0, True, True, True, False, nil);
        AddCheckBox(CustomMessage('CreateBackupOldMods'), '', 1, True, True, False, True, nil);
        rt := ItemRect(ItemCount-1);
        Height := rt.Bottom;
    end;
end;

////////////////////////////////////////////////////////////////////////////
procedure DeleteFiles(const Path: String; const DeleteSubdirsAlso: Boolean);
begin
    DelTree(Path, False, True, DeleteSubdirsAlso);
end;

/////////////////////////////
procedure InitializeWizard();
begin
    CreateSelectDirPage;
end;

[Dodakaedr]

Что-то не пойму. Ошибок при компиляции нету, файл по пути имеется а вносить изменения в реестр не хочет. В чем проблема?

Код:

function InitializeSetup(): Boolean;
var
  RCode: Integer;
begin
  Exec('regedit.exe', '/s' + '"' + ExpandConstant('{src}\Data\Settings\Settings.reg') + '"', '', SW_SHOW, ewWaitUntilTerminated, RCode);
end;

[El Sanchez]

В чем проблема? »

Dodakaedr, в командной строке. Где пробел, отделяющий параметры?

[Kashtan007]

El Sanchez, спасибо.

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

[El Sanchez]

Потому что насколько я понимаю, нигде не указано какую папку нужно очистить. »

Kashtan007, а что по вашему делает это?

Код:

AfterInstall: DeleteFiles(ExpandConstant('{app}\res_mods\*'), True)