[LinkOFF]

Доброй ночи. Подскажите: как сделать так, чтобы после установки заносились ключи в реестр и с последующим запуском инсталляции было сообщение "Программа уже установлена." и выскакивал запрос на деинсталляцию?

[Johny777]

LinkOFF, фапай код:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

AppId=The_Best_AppId

[  code]
function InitializeSetup(): Boolean;
var
  AppPath, UninsPath: string;
  ResultCode: Integer;
begin
  AppPath := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,InstallLocation|}'));
  UninsPath := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,UninstallString|}'));

  if (AppPath <> '') then
  begin
    Result := MsgBox('Программа установлена' +#13#10+ 'Удалить?', mbError, MB_YESNO) = IDNO;
    if not Result then Exec(UninsPath, '', '' , SW_SHOW, ewNoWait, ResultCode);
  end else Result := True;
end;

поставь где-нибудь El Sanchez-у спасибо, тк дёрнул значения переменных из его кода авторана халфы!

[LinkOFF]

Johny777, а почему пишет "unknown identifier 'Result'

а все решил проблему

[LinkOFF]

Johny777, не не встает

[Robby]

Есть инсталлятор который устанавливает программу, к программе идет xml файл настроек. В файле настроек в конце установки нужно прописать пути к нескольким папкам. Проблема кроется в русских буквах, и заключается в следующем: программа работает с кодировкой символов CP1252 (ISO 8859-1) при этом проблем с русскими буквами она не имеет, но в файле настроек путь должен выглядеть вот так C:\Documents and Settings\Admin\Ìîè äîêóìåíòû\ а не так C:\Documents and Settings\Admin\Мои документы\. Вопрос в следующем как перекодировать CP1251 в CP1252? В общем нужна функция которая на входе получает строку в кодировке CP1251 и возвращает ее в кодировке CP1252.

[insombia]

как сделать чтобы исдон распаковывал файлы через секцию run? где-то видел такое

[LagunaFAN]

Всем добрый день! Имею проблему Для своих нужно хочется реализовать следующее:

2 типа инсталляции - обычная установка и установка в стим. С обычной установкой все понятно. А вот с установкой в стим затык

Допустим, есть 2 установщика - setup.exe (обычная установка) и steamsetup.exe (установка в стим).

Steamsetup.exe имеет свой путь установки непосредственно в стим. Хочется, чтобы на стадии инсталляции он запускал setup.exe, а тот распаковывал файлы по тому пути, который ему сообщит steamsetup.exe .

Подскажите, пожалуйста, как можно реализовать такое?

Ребят, я слаб в паскале, поэтому дико прошу помощи! Заранее благодарю!

[Respin]

как сделать чтобы исдон распаковывал файлы через секцию run? »

Файлы чего именно?

Допустим, есть 2 установщика - setup.exe (обычная установка) и steamsetup.exe (установка в стим). Steamsetup.exe имеет свой путь установки непосредственно в стим. Хочется, чтобы на стадии инсталляции он запускал setup.exe, а тот распаковывал файлы по тому пути, который ему сообщит steamsetup.exe . »

А по какому пути распаковывается Steamsetup.exe?
Не проще ли сделать один установщик и для... и для того?

[LagunaFAN]

А по какому пути распаковывается Steamsetup.exe? Не проще ли сделать один установщик и для... и для того? »

Например, по такому C:\Steam\steamapps\common\unknown game

А насчет запихнуть все в один установщик... Быть может это и проще, но я незнаю как

[Respin]

Например, по такому C:\Steam\steamapps\common\unknown game »

Вы уже всё распланировали (что будет два установщика (один из которых будет искать Steam + путь установки)). И всё же говорите примерно...
Ну значит, примерно, как-то так:

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

Два в одном.

Код:

[Setup]
AppName=unknown game
AppVerName=unknown ver game
AppVersion=unknown game version
DefaultDirName={pf}\unknown game
DefaultGroupName=unknown game
PrivilegesRequired=lowest

[_Code]
procedure InitializeWizard();
begin
if RegKeyExists(HKLM, 'Software\Valve\Steam') then
begin
 WizardForm.DirEdit.Text:= ExpandConstant('{reg:HKLM\Software\Valve\Steam,InstallPath}\steamapps\common\unknown game');
 WizardForm.DirBrowseButton.Hide;
end;
end;