[Johny777]

tr011_tmn, удаление самого каталога вместе с содержимым подойдёт?

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

Код:

const
    FOLDER_NAME = 'Redist';

var
    DeleteRedistCheckBox: TCheckBox;

// Force - Boolean value that is true if folders with the read-only attribute set are to be deleted; false (default) if they are not.
procedure DeleteFolder(const FolderPath: String; const Force: Boolean);
var
    oFS: Variant;
begin
    if not DirExists(FolderPath) then Exit;
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        oFS.DeleteFolder(RemoveBackslash(FolderPath), Force);
    except
        ShowExceptionMessage();
    end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    if CurStep = ssPostInstall then
      if DeleteRedistCheckBox.Checked then DeleteFolder(AddBackslash(ExpandConstant('{app}')) + FOLDER_NAME, True);
      // или DelTree(AddBackslash(ExpandConstant('{app}')) + FOLDER_NAME, True, True, True);
end;


procedure InitializeWizard();
begin
    DeleteRedistCheckBox := TCheckBox.Create(WizardForm.InstallingPage);
    with DeleteRedistCheckBox do
    begin
        Parent := WizardForm.InstallingPage;
        SetBounds(ScaleX(100), ScaleY(100), ScaleX(100), ScaleY(16));
        Caption := 'Delete Redist Folder';
    end;
end;

[vint56]

Johny777 у тебя случаем нет примера Переименование файлов не по маске а по определенному названию vo_ russian.spk на vo_english.spk в зависимости от выбранного компонента

[tr011_tmn]

tr011_tmn, удаление самого каталога вместе с содержимым подойдёт? »

глянул, если верно понял то {app} не будет трогаться при удалении FOLDER_NAME = 'Redist';. Все верно?

[Johny777]

vint56,

у тебя случаем нет примера Переименование файлов не по маске а по определенному названию vo_ russian.spk на vo_english.spk в зависимости от выбранного компонента »

Не было пока ты не спросил вот тебе процедура

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

Код:

[Components]
Name: en; Description: Russian to English; Flags: exclusive
Name: ru; Description: English to Russian; Flags: exclusive

;[Files]
;Source: Folder\*; DestDir: {app}; Flags: recursesubdirs createallsubdirs onlyifdoesntexist


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

function MoveFile(lpExistingFileName, lpNewFileName: String): BOOL; external 'MoveFile{#A}@kernel32.dll stdcall';

procedure RenameFileChunks(const RootFolder, SourceFileChunk, DestFileChunk: String; const Recurse: Boolean);
var
    NewSearchPath, TempFileName: String;
    FindRec: TFindRec;
begin
    NewSearchPath := AddBackslash(RemoveBackslash(RootFolder));

    if FindFirst(NewSearchPath + '*.*', FindRec) then
    try
        repeat
        
            if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
            begin

                if Pos(SourceFileChunk, FindRec.Name) <> 0 then
                begin
                    TempFileName := FindRec.Name;
                    StringChange(TempFileName, SourceFileChunk, DestFileChunk);
                    MoveFile(NewSearchPath + FindRec.Name, NewSearchPath + TempFileName);
                end;
            end else
            if (FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY) and (FindRec.Name <> '.') and (FindRec.Name <> '..') then
              if Recurse then RenameFileChunks(NewSearchPath + FindRec.Name, SourceFileChunk, DestFileChunk, Recurse);
                  
        until not FindNext(FindRec);
    finally
        FindClose(FindRec);
    end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
var
    AppPath: String;
begin
    if CurStep = ssPostInstall then
    begin
        AppPath := ExpandConstant('{app}');
        MsgBox('Сейчас переименую', mbInformation, MB_OK);
        if IsComponentSelected('ru') then
          RenameFileChunks(AppPath, 'english', 'russian', True)
        
        if IsComponentSelected('en') then
          RenameFileChunks(AppPath, 'russian', 'english', True);
    end;
end;

прототип: procedure RenameFileChunks(const RootFolder, SourceFileChunk, DestFileChunk: String; const Recurse: Boolean);

где:
RootFolder - исходная папка с файлами и папками, где нужно переименовывать
SourceFileChunk - часть в имени файла которую нужно переименовать, в данном случае 'russian' в vo_ russian.spk
DestFileChunk - часть в имени файла в которую нужно переименовать - 'english'
Recurse - булев значение. Если True то будет искать в подкаталогах RootFolder-а, в противном случае только в RootFolder

вызываешь процедуру например на этапе ssPostInstall для соответсвующих компонентов, если они выбраны ( IsComponentSelected(...) ... )

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

tr011_tmn,

Все верно? »

верно, слетит только папка Redist с её содержимым

[vint56]

Johny777 а что {app} константа не работает
procedure InitializeWizard;
begin
RenameFileChunks('C:\Program Files (x86)\ISDone', 'english', 'russian', True); только если так
end;

[volga163@vk]

Здравствуйте. Возможно ли сделать такую фишку:

Если существует файл config.ini в папке, куда ставится программа, но нет определённой ветки в реестре, установщик заменяет файл config.ini и создаёт ветку с определённым значением и наоборот.
Если существует и то, и то, то установка ничего из них не трогает.
Если нет ни того, ни того, то установка создаёт и ветку, и файл.

Голову сломал, ничего на ум не приходит.

[Johny777]

vint56,

а что {app} константа не работает »

она работает и всё остальное кроме встроенной RenameFile, которая по непонятным мне причинам в данном случае НЕ работает (моё доверие к встроенным функциям упало ещё на одно деление )

заместо её используй WinApi функцию MoveFile, которой можно переименовывать файлы

обновил предыдущий код
всё понятное дело перед этим проверил у себя на безошибочную работу



volga163@vk, создать ветку в реестре? что-то я не пойму. Может ключ. И где? в каком разделе? Какие значения туда внести? Как ключ называется? Подробнее насчёт реестра скажи
а лучше всего выложи содержание .reg файла

[vint56]

Johny777 Большое спасибо

[Shkutu]

Здравствуйте!
В моем скрипте создаются и используются кастомные формочки. Сам инсталляор должен быть двуязычным (рус + англ). Текст на стандартных формах при выборе определенного языка на этот язык переводится, а текст на кастомных формах - очевидно, нет. Может, кто подскажет, как корректно реализовать двуязычность для кастомных форм? Это в скрипте создания форм надо мониторить язык как-то и в зависимости от языка выводить разные сообщения? Или это нужно как-то править языковые (.isl) файлы?
В работе с inno новичок, буду благодарна за помощь

[volga163@vk]

Подробнее насчёт реестра скажи »

Проверяем наличие этой ветки: HKCU\Control Panel\MyApp\Test\, значение типа expandsz, с текстом "ID" и именем ID. Вот как на картинке:

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

http://ybex.com/index.php?c=start&m=...g5iodwn8c23ly2