[novahudonoser]

КОМРАДЫ! Подскажите пожалуйста реализацию скрипта: "с возможностью обновления программы"
пример:
установщик перед началом распаковки новых файлов - проверяет не только их наличие в системе но и их состояние
в часности, та программа которую пользователь пытается обновить - уже запущена, следовательно скрипт должен отправить приложению мессагу что бы та благополучно закрылась
и только потом уже копировал файлы с заменой.

собственно интересует реализация:
1. проверяем, запущена программа или нет
2. если запущена то закрываем её

полагаю что где то рядом с [Setup]: CloseApplications
но как юзать не догнал (

[nik1967]

novahudonoser, шапка - Ссылки на примеры скриптов: - Запущен ли процесс (WMI)/Запущен ли процесс - Закрытие процесса - изучай, применяй.

[novahudonoser]

пример закрытия приложения не компилится (
http://joxi.ru/y_XWUhjKTJBsG5SWhto

[novahudonoser]

кстати Сборник скриптов в формате chm не пашет http://joxi.ru/fvvWUhjKTJBtGxme7BI

[saurn]

пример закрытия приложения не компилится ( »

У вас не установлен препроцессор

[PerfectLove]

Помогите сделать второй чекбокс для бекапа.

Код:

[_Code] 
var 
MyTask: TCheckBox; 
 
function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFileA@kernel32.dll stdcall'; 
 
procedure CurStepChanged(CurStep: TSetupStep); 
var 
FindFiles: TFindRec; 
i: integer; 
MyFiles: array of string; 
MyDir, BackDir: string; 
begin 
  if CurStep=ssInstall then begin 
    if MyTask.Checked then begin 
      MyFiles:=['*']; // указать файлы или маски нужные для бакупа через запятую. при указании маски '*' бакупятся все файлы с вложенными папками 
      MyDir:=ExpandConstant('{app}'+'\'); //папка откуда бакупить 
      BackDir:=ExpandConstant('{app}'+'\Backup\'); // папка куда бакупить 
      for i:=0 to GetArrayLength(MyFiles)-1 do 
      begin 
        if FindFirst(MyDir+MyFiles[i], FindFiles) then begin 
          repeat 
            if not DirExists(BackDir) then begin 
              CreateDir(BackDir); 
            end; 
            MoveFile(MyDir+FindFiles.Name, BackDir+FindFiles.Name); 
          until not FindNext(FindFiles); 
          FindClose(FindFiles); 
        end; 
      end; 
    end; 
  end; 
end; 
 
procedure InitializeWizard(); 
begin 
  MyTask:=TCheckBox.Create(WizardForm); 
  with MyTask do 
  begin 
    Parent:=WizardForm.SelectDirPage; 
    Caption:='Create Backup'; 
    Left:=ScaleX(0); 
    Top:=ScaleY(100); 
    Width:=ScaleX(400); 
    Height:=ScaleY(15); 
    TabOrder:=0; 
    Checked:=True; 
  end; 
end;

[saurn]

Помогите сделать второй чекбокс для бекапа. »

Не уловил суть. Просто второй чекбокс? Пожалуйста, здесь массив чекбоксов с двумя элементами. Действие назначено только для чекбокса с индексом 0(arrayChkBox[0]):

Пример

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"


function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFile{#A}@kernel32.dll stdcall';


var
    arrayChkBox: array of TCheckBox;


procedure CreateChkBox();
var
    i, Len: Integer;
begin
    SetArrayLength(arrayChkBox, 2);
    Len := GetArrayLength(arrayChkBox) - 1;
    
    for i := 0 to Len do
        begin
            arrayChkBox[i] := TCheckBox.Create(nil);
            with arrayChkBox[i] do
            begin
                Parent := WizardForm.SelectDirPage;
                SetBounds(ScaleX(0), ScaleY(115 + i*20), ScaleX(400), ScaleY(15));
                Checked := True;

                case i of
                    0: Caption := 'Create Backup';
                    Len: Caption := 'Create Backup 2';
                end;
            end;
        end;
end;


procedure InitializeWizard();
begin
    CreateChkBox();
end;


procedure CurStepChanged(CurStep: TSetupStep);
var
    FindFiles: TFindRec;
    i: Integer;
    MyFiles: array of string;
    MyDir, BackDir: string;
begin
    case CurStep of
        ssInstall:
        begin
            if arrayChkBox[0].Checked then
            begin
                MyFiles := ['*'];
                MyDir := ExpandConstant('{app}' + '\');
                BackDir := ExpandConstant('{app}' + '\Backup\');
                for i := 0 to GetArrayLength(MyFiles) - 1 do
                begin
                    if FindFirst(MyDir+MyFiles[i], FindFiles) then
                    begin
                        repeat
                            if not DirExists(BackDir) then
                            begin
                                CreateDir(BackDir);
                            end;
                            MoveFile(MyDir + FindFiles.Name, BackDir + FindFiles.Name);
                        until not FindNext(FindFiles);
                    FindClose(FindFiles);
                    end;
                end;
            end;
        end;
    end;
end;

И пример попроще, без массива. Действие назначено только для чекбокса MyTask:

Пример

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"


function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFile{#A}@kernel32.dll stdcall';


var
    MyTask, MyTask2: TCheckBox;


procedure CreateChkBox();
begin
    MyTask := TCheckBox.Create(nil);
    with MyTask do
    begin
        Parent := WizardForm.SelectDirPage;
        SetBounds(ScaleX(0), ScaleY(115), ScaleX(400), ScaleY(15));
        Caption := 'Create Backup';
        Checked := True;
    end;
    
    MyTask2 := TCheckBox.Create(nil);
    with MyTask2 do
    begin
        Parent := WizardForm.SelectDirPage;
        SetBounds(ScaleX(0), ScaleY(MyTask.Top + 20), ScaleX(400), ScaleY(15));
        Caption := 'Create Backup2';
        Checked := True;
    end;
end;


procedure InitializeWizard();
begin
    CreateChkBox();
end;


procedure CurStepChanged(CurStep: TSetupStep);
var
    FindFiles: TFindRec;
    i: Integer;
    MyFiles: array of string;
    MyDir, BackDir: string;
begin
    case CurStep of
        ssInstall:
        begin
            if MyTask.Checked then
            begin
                MyFiles := ['*'];
                MyDir := ExpandConstant('{app}' + '\');
                BackDir := ExpandConstant('{app}' + '\Backup\');
                for i := 0 to GetArrayLength(MyFiles) - 1 do
                begin
                    if FindFirst(MyDir+MyFiles[i], FindFiles) then
                    begin
                        repeat
                            if not DirExists(BackDir) then
                            begin
                                CreateDir(BackDir);
                            end;
                            MoveFile(MyDir + FindFiles.Name, BackDir + FindFiles.Name);
                        until not FindNext(FindFiles);
                    FindClose(FindFiles);
                    end;
                end;
            end;
        end;
    end;
end;

P. S.
На форуме полно примеров, как создать кастомный чекбокс.

[PerfectLove]

Не уловил суть. »

Виноват, мой косяк что не уточнил. На данный момент первый чекбокс делает бекап всей папки. Хочу добавить второй чекбокс чтобы делать бекап только нескольких файлов а не всей папки.

[saurn]

На данный момент первый чекбокс делает бекап всей папки. Хочу добавить второй чекбокс чтобы делать бекап только нескольких файлов а не всей папки. »

Пример

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program\Fonts
OutputDir=.


[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}; Flags: external overwritereadonly ignoreversion;


[Code]
#define A = (Defined UNICODE) ? "W" : "A"


function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFile{#A}@kernel32.dll stdcall';


var
    arrayChk: array of TCheckBox;


function ChkChecked(const Index: Integer): Boolean;
var
    Len: Integer;
begin
    Len := GetArrayLength(arrayChk) - 1;

    if Index > Len then Exit;
    Result := arrayChk[Index].Checked;
end;


procedure CreateBackup();
var
    FindFiles: TFindRec;
    i, Len: Integer;
    MyFiles: array of string;
    MyDir, BackDir: string;
begin
    Len := GetArrayLength(arrayChk) - 1;
    if (ChkChecked(0) and ChkChecked(Len)) then Exit; //Если выбраны оба чекбокса резервная копия создана не будет
    if ChkChecked(0) then MyFiles := ['*']; //Резервное копирование папки
    if ChkChecked(Len) then MyFiles := ['ariali.ttf', 'tahoma.ttf', 'verdana.ttf']; //Резервное копирование определенных файлов
    MyDir := ExpandConstant('{app}' + '\');
    BackDir := ExpandConstant('{app}' + '\Backup\');

    for i := 0 to GetArrayLength(MyFiles) - 1 do
    begin
        if FindFirst(MyDir + MyFiles[i], FindFiles) then
        begin
            repeat
                if not DirExists(BackDir) then
                begin
                    CreateDir(BackDir);
                end;
                MoveFile(MyDir + FindFiles.Name, BackDir + FindFiles.Name);
            until not FindNext(FindFiles);

            FindClose(FindFiles);
        end;
    end;
end;


procedure CreateChk();
var
    i, Len: Integer;
begin
    SetArrayLength(arrayChk, 2);
    Len := GetArrayLength(arrayChk) - 1;

    for i := 0 to Len do
    begin
        arrayChk[i] := TCheckBox.Create(nil);
        with arrayChk[i] do
        begin
            Parent := WizardForm.SelectDirPage;
            SetBounds(ScaleX(0), ScaleY(115 + i*20), ScaleX(400), ScaleY(15));

            case i of
                0: Caption := 'Создать резервную копию папки';
                Len: Caption := 'Создать резервную копию основных файлов';
            end;
        end;
    end;
end;


procedure InitializeWizard();
begin
    CreateChk();
end;


procedure CurStepChanged(CurStep: TSetupStep);
var
    Len: Integer;
begin
    Len := GetArrayLength(arrayChk) - 1;

    case CurStep of
        ssInstall: if (ChkChecked(0) or ChkChecked(Len)) then CreateBackup();
    end;
end;

[nik1967]

кстати Сборник скриптов в формате chm не пашет »

писали уже наверно 100500 раз - правой кнопкой по файлу - свойства - разблокировать.