[alert30]

А поаккуратней нельзя? »

Могу сделать по-аккуратнее, но это займет много времени.

[saurn]

Подскажите как попроще сделать апдейт и анинстал? »

Апдейт, сам по себе, обычный установщик, со спецефическими функциями, как, например: автоопределение папки с установленной программой, версии и т.д.. А вот анинстал чего? Если нужно удалять только апдейт, тогда при его установке нужно описывать создание резервной копии старых файлов, а при удалении востановление этих файлов, соответственно.

[diman_21Ru]

Всем привет можно ли как у Jove в мод-паке сделать выбираешь папку с игрой если найдет ярлык игры то моды ставятся именно туда , зарание спасибо

[saurn]

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

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
AppendDefaultDirName=no
OutputDir=...


[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: overwritereadonly ignoreversion;


[Code]
function SearchFile(const Path: String; const Name: String): Boolean;
var
    DefaultPath: String;
begin
    DefaultPath := ExpandConstant('{#SetupSetting("DefaultDirName")}');
    Result := FileExists(AddBackslash(Path) + Name);
    case Result of
        True: WizardForm.DirEdit.Text := Path;
        False:
        begin
            Result := (WizardForm.DirEdit.Text = DefaultPath);
            if Result then Exit;
            case MsgBox('В данной папке отсутствуют файлы игры. Путь установки будет сброшен на значение по умолчанию.', mbError, MB_OK) of
                1: WizardForm.DirEdit.Text := DefaultPath;
            end;
        end;
    end;
end;


procedure DirEditOnChange(Sender: TObject);
begin
    SearchFile(WizardDirValue(), 'MyProg.exe');
end;


procedure InitializeWizard();
begin
    WizardForm.DirEdit.OnChange := @DirEditOnChange;
end;

[diman_21Ru]

saurn ,что то не получилось (

[saurn]

что то не получилось ( »

Конечно, ведь это просто пример. Имя файла, который нужно найти вы, наверняка, не указали.

Код:

procedure DirEditOnChange(Sender: TObject);
begin
    SearchFile(WizardDirValue(), //Путь к папке, в которой производится поиск файла. В данном случае путь берется из DirEdit.
    'MyProg.exe'); //Имя файла, который ищем.
end;

[diman_21Ru]

ок попробую

[diman_21Ru]

вообще не как не получается кто сможет в скрипт добавить !

[dr.alexa2000@vk]

Есть код, в котором при деинсталляции удаляется папка с сохранениями:

Код:

procedure DeleteSavedGames(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep=usUninstall then
  if DirExists(ExpandConstant('{userdocs}')+'\Assassin's Creed Revelations' then
  if MsgBox(ExpandConstant('{cm:DeleteSave}'), mbInformation, MB_YESNO) = idYes then
  DelTree(ExpandConstant('{userdocs}')+'\Assassin's Creed Revelations', True, True, True)
end;

Но т.к. папка Assassin's Creed Revelations содержит знак ' (кавычку), то inno setup не понимает что надо удалить эту папку.
Как исправить?

[Ivan_009]

diman_21Ru, Путь надо указать пример запуск игры после установки

Код:

var
RunEXE: TNewButton;

procedure LaunchButtonOnClick(Sender: TObject);
var
ErrorCode: integer;
begin
Exec(ExpandConstant('{app}') + '\MyProg.exe',' ', ExpandConstant('{app}'), SW_HIDE, ewNoWait, ErrorCode);
SendMessage(WizardForm.NextButton.handle, $F5, 0, 0);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpFinished then begin
RunEXE := TNewButton.Create(WizardForm);
with RunEXE do
begin
Name := 'RunEXE';
Parent := WizardForm;
Left := ScaleX(104);
Top := ScaleY(328);
Width := ScaleX(120);
Height := ScaleY(23);
Caption := ' ';
OnClick:= @LaunchButtonOnClick;
end;
end;
end;

Как сделать свернуть и закрыть через лейбл.Зарание спасибо...