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

[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;

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

[diman_21Ru]

Ivan_009, попрежнему моды ставятся в любую папку (

[saurn]

Но т.к. папка Assassin's Creed Revelations содержит знак ' (кавычку), то inno setup не понимает что надо удалить эту папку. Как исправить?»
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=...


[CustomMessages]
CM_DEL_SAVE=Удалить также сохранения игры и профили игроков, находящиеся в следующем расположении:%n%n


[Code]
#define SaveDir "Assassin''s Creed Revelations"


function DeleteSavedGames(): Boolean;
var
SavingFolderPath: String;
begin
SavingFolderPath := ExpandConstant('{userdocs}\{#SaveDir}');
Result := DirExists(SavingFolderPath);
if not Result then Exit;
case MsgBox(CustomMessage('CM_DEL_SAVE') + AddQuotes(SavingFolderPath), mbConfirmation, MB_YESNO) of
6: DelTree(SavingFolderPath, True, True, True);
end;
end;


procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usPostUninstall: DeleteSavedGames();
end;
end;

[Nightwishh]

Всем добрый вечер. Хочу спросить:
1) Можно ли сделать объект WizardForm.InfoBeforeMemo без заднего фона (т.е. прозрачным) (без ботвы) и если нет, то какой объект можно взять вместо него у которого есть прозрачность и скроллбар?
2) Чем отличается SendMessage(WizardForm.CancelButton.Handle, $00F5, 0, 0); от WizardForm.Close и что лучше?
3) С чем связана ошибка Память не может быть read. Появляется она один раз после установки когда нажимаешь на кнопку заершить и больше она не появляется, хоть сто раз устанавливай.
Спасибо!!!

[diman_21Ru]

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

[Tco 03]

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

[dr.alexa2000@vk]

saurn
Не получилось, прикрепил весь скрипт к сообщению,исправьте,пожалуйста...
Ваш код я вставил на 1420 строке.

[saurn]

Не получилось »
Процедура CurUninstallStepChanged была объявлена дважды. Скрипт во вложении.

[Ivan_009]

Почему шрифт отображается на разных системах поразному? Как добиться идентичности отображения...
P.S Шрифт был использован "Trebuchet MS" тест на Win 7 и Win XP...

[diman_21Ru]

ответьте пожалуйста на мой вопрос кто знает , очень нужна 'та функция что писал выше, зарание спасибо

[Ivan_009]

diman_21Ru, Через реестр так:

[Setup]
AppName=MyApp
AppverName=MyApp
DefaultDirName={pf}\MyApp

[Registry]
Root: HKLM; Subkey: SOFTWARE\MyApp; ValueName: InstallPath; ValueType: string; ValueData: {app}; Flags: uninsdeletekey

[code]
function InitializeSetup(): Boolean;
begin
Result:= True;
if RegValueExists(HKLM, 'SOFTWARE\MyApp', 'InstallPath') then begin
MsgBox('Копия данной программы уже установлена! Установка будет прекращена', mbConfirmation, MB_OK);
Result:= False;
end;
end;