Скрипты Inno Setup. Помощь и советы [часть 6]

diman_21Ru · Отправлено: **21:12, 04-02-2014** | #**2121**

не могу не как добавить в свой скрипт функцию от Цитата innot20: а возможно ли это вывести при выборе папки установки? »Конечно. читать дальше »

saurn · Конфигурация компьютера

Цитата sergey3695:

на 7 и 8 все норм. а на xp отображается другая иконка. »

А через LoadIcon?

diman_21Ru · Отправлено: **21:56, 04-02-2014** | #**2123**

А как тут указать путь чтобы папку видел без разделов т.е это для бекапа папки res_mods Source: C:\Windows\Fonts\*; DestDir: {app}\res-mods; Flags: external overwritereadonly ignoreversion;

sergey3695 · Отправлено: **22:45, 04-02-2014** | #**2124**

saurn, все норм спасибо. Я не знал как LoadIcon использовать в inno, скорее как прописать функцию.

saurn · Конфигурация компьютера

Цитата diman_21Ru:

C:\Windows\Fonts\*; DestDir: {app}\res-mods; Flags: external overwritereadonly ignoreversion; »

Причем здесь папка шрифтов, я же сказал: это для примера.
Source: путь к папке с устанавливаемыми файлами (здесь указываете местоположение файлов, которые будут устанавливатся)
DestDir: папка, в которую будут установленны файлы
Справку читайте.

PerfectLove · Отправлено: **02:37, 05-02-2014** | #**2126**

Цитата Nordek:

Как сменить цвет текста »
« скрыть
Код:
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(100 + i*24), ScaleX(400), ScaleY(15));
Color := clRed;
case i of
0: Caption := 'Backup res_mods folder';
Len: Caption := 'Backup xvm folder only';
end;
end; »

Я так и сам делал, но результата никакого. Текст как был чёрным так и остается.

saurn · Конфигурация компьютера

Цитата PerfectLove:

Я так и сам делал, но результата никакого. Текст как был чёрным так и остается. »

Код:

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


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


var
    arrayChk: array of TCheckBox;
    arrayLbl: array of TLabel;


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
    FindDir: TFindRec;
    i, Len: Integer;
    Dir: array of string;
    MyDir, BackDir: string;
begin
    Len := GetArrayLength(arrayChk) - 1;
    if (ChkChecked(0) and ChkChecked(Len)) then Exit; //Если выбраны оба чекбокса резервная копия создана не будет
    if ChkChecked(0) then Dir := ['*']; //Резервное копирование папки
    if ChkChecked(Len) then Dir := ['xvm']; //Резервное копирование определенных файлов
    MyDir:=ExpandConstant('{app}\res_mods'+'\');
    BackDir:=ExpandConstant('{app}'+'\Backup\');
    for i:=0 to GetArrayLength(Dir)-1 do
    begin
        if FindFirst(MyDir + Dir[i], FindDir) then
        begin
        if FindFirst(MyDir+Dir[i], FindDir) then begin
          repeat
            if not DirExists(BackDir) then begin
              CreateDir(BackDir);
            end;
            MoveDir(MyDir+FindDir.Name, BackDir+FindDir.Name);
          until not FindNext(FindDir);
          FindClose(FindDir);
        end;
      end;
    end;
  end;


procedure CreateCustomControls();
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(100 + i*24), ScaleX(15), ScaleY(15));
        end;
    end;
    
    SetArrayLength(arrayLbl, 2);
    Len := GetArrayLength(arrayLbl) - 1;

    for i := 0 to Len do
    begin
        arrayLbl[i] := TLabel.Create(nil);
        with arrayLbl[i] do
        begin
            Parent := WizardForm.SelectDirPage;
            SetBounds(ScaleX(18), ScaleY(101 + i*24), ScaleX(WizardForm.DirEdit.Width), ScaleY(15));
            Font.Color := $008000;
            case i of
                0: Caption := 'Backup res_mods folder';
                Len: Caption := 'Backup xvm folder only';
            end;
        end;
    end;
end;


procedure InitializeWizard();
begin
    CreateCustomControls();
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;

Nordek · Конфигурация компьютера

Цитата PerfectLove:

Я так и сам делал, но результата никакого. »

Ну так и у меня твой скрипт не сработал - вообще ничего невидно.
Нужно вставлять корректный скрипт - который после компиляции на выходе будет работать.
Уметь правильно работать с тегом [code].
Помочь - это одно дело, а переделывать и что-то там искать - это другое - чувствуешь разницу?
Перед тем как выложить, нужно предварительно проверить на работоспособность - без этого никак.
Если вам вопрошающим лень рабочий вариант предоставить, то какого тем кто вам помогает?

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

diman_21Ru · Отправлено: **11:21, 05-02-2014** | #**2129**

Всем привет помогите пожалуйста с одним вопросом не как не могу сделать backup папки res-mods и вывести галочку в компоненты ниже в скрине указал , зарание спасибо

Ivan_009 · Конфигурация компьютера

Как прописать только сколько Требуется места для установки и Занимаемое место после установки.
Зарание спасибо... (Если можно дайте пожалуйста пример)