[NZeee]

Привет всем. Захотел сделать инсталляция игры, но с Inno Setup работаю в первый раз. Какой код нужно добавить в скрипт, чтобы при установки шло извлечение архива .arc (в нём запакована игра)? Заранее спасибо

[zzzombie89]

svensoft, спасибо за помощь . . . я думал дело в скрипте . . .

NZeee, посмотри на сайте FreeArc . . . скачай скрипт для Inno с него . . . ну и сам FreeArc 0.60 -> http://freearc.org/ru/default.aspx

[alex2010]

а как сделать так, как у RG Механики?(если можно только код для вставки изображения)

[Tukash]

кто подскажет вот такой код: при запуске setup.exe программа устанавливалась, а при повторном запуске setup.exe , запускался деинсталлятор

[vint56]

Tukash, вот код на повторный запуск

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

function InitializeSetup(): Boolean;
var
ResultCode: Integer;
s, ResultStr:string;
begin
Result:=True;
If not RegKeyExists(HKLM, 'SOFTWARE\MY_PROGRAM')
then
begin
MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok);
Result:=False;
end
else
begin
MsgBox('Программа MY_PROGRAM успешно обнаружена.' #13#13 'Установка полностью автоматическая.', mbInformation, mb_Ok);
begin
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My_Program_v1.0_is1', 'UninstallString', ResultStr)
then
begin
If ResultStr<>''
then
begin
ResultStr:=RemoveQuotes(ResultStr);
if MsgBox('Программа установки обнаружила уже установленную программу ранней версии.' #13#13 'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes
then
if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
then
MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
end;
end;
end;

[Habetdin]

Tukash,

Код:

[code]
function InitializeSetup(): Boolean;
var
    UnStr: String;
    ErrorCode: Integer;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\<тут вставляем значение AppName>_is1', 'UninstallString', UnStr) then
  begin
    If UnStr <> '' then
    begin
        UnStr := RemoveQuotes(UnStr);
        Exec(UnStr, '/silent', '', SW_Show, ewWaitUntilTerminated, ErrorCode);
    end;
  end;
  Result:= True;
end;

vint56, а при первом запуске:

MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok); »

?

[Tukash]

Habetdin
vint56
спасибо ребята! правда со скриптом винта были проблемы...

[Akella2007]

Никак, для этого нужна действительная цифровая подпись издателя. Издатели программного обеспечения »

Я догадывался, что нужна цифровая подпись. По ссылке информация для простого юзера, а не для разработчика.

[SuperDan]

првет, ВСЕМ!
извините если этот вопрос уже был, он, как сделать WizardImageFile 310х310 pics! охота по шире...

[YURSHAT]

как сделать WizardImageFile 310х310 pics! охота по шире... »

Код:

Procedure InitializeWizard();
begin
  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(310);
  end;