[habib2302]

Помогите решить проблему

[Nordek]

зарегестрированной »

На примере ACDSee 5 Pro:

Код:

[HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems\ACDSee Pro\50\InTouch2]
"LicenseKey"="XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX"
"Trial"=dword:00000000
"KeyCount"=dword:00000001

Вместо "XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX" - Ваш регистрационный ключ.

Код:

[HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems\ACDSee Pro\50\LClient]
"md"=hex:***********

Вместо звёздочек конечное содержимое.

Не показывать Quick Start Guide:

Код:

[HKEY_CURRENT_USER\Software\ACD Systems\ACDSee Pro\50]
"ShowStartupWizard"=dword:00000000

[Nordek]

Помогите решить проблему »

habib2302, Не ленитесь сюда приводить текстовый вид: Содержимое [Icons] в месте ошибки.

Код:

[Icons]
Name: {group}\{cm:UninstallProgram,Alcohol 120%25}; Filename: {uninstallexe}

[МИШАНЧИК]

Dodakaedr, подскажите пожалуйста, а как сделать:
1. чтоб разрядность отображалась и в SetupWindowTitle
2. убрать слово моя программа setup в описании инсталятора создаваемого инно, или заменить его на программа и т.п.?

[Dodakaedr]

1.

Все хорошо, только теперь еще Welcx... прописывается в SetupWindowTitle »

удалите строку WizardForm.Caption := WizardForm.WelcomeLabel1.Caption; »

2.

Код:

[Setup]
VersionInfoDescription=бла-бла

[МИШАНЧИК]

WizardForm.Caption := WizardForm.WelcomeLabel1.Caption; »

тогда полностью копируется строка WelcomeLabel1.Caption, а можно как-то задать туда другую надпись?

[ZVSRus]

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

Код:

Source: C:\Installer\Roaming\ACD Systems\ImageDB\*; DestDir: {userappdata}\ACD Systems\ImageDB; Flags: ignoreversion recursesubdirs createallsubdirs; Check: RusLang and InstallerCheck
Source: C:\Installer\CommonAppData\ACD Systems\*; DestDir: {commonappdata}\ACD Systems; Flags: ignoreversion recursesubdirs createallsubdirs; Check: RusLang and InstallerCheck

[Dodakaedr]

а можно как-то задать туда другую надпись? »

А что вам мешает добавить её?

Скрытый текст

Код:

[setup]
appname=App
appversion=1.1
UninstallDisplayName={code:GetUnName}
DefaultDirName={sd}\Apps

[CustomMessages]
Welcx32=Установка {#SetupSetting("AppName")} x32
Welcx64=Установка {#SetupSetting("AppName")} x64
UnName32=Удалить {#SetupSetting("AppName")} x32
UnName64=Удалить {#SetupSetting("AppName")} x64
Title32={#SetupSetting("AppName")} x32
Title64={#SetupSetting("AppName")} x64


[Code]
function GetUnName(uname: string): string;
begin
  if IsWin64 then uname := CustomMessage('UnName64') else uname := CustomMessage('UnName32');
  Result := uname;
end;

procedure InitializeWizard();
begin
  if IsWin64 then
    begin
      WizardForm.WelcomeLabel1.Caption := CustomMessage('welcx64');
      WizardForm.Caption := CustomMessage('Title64');
    end
    else
    begin
      WizardForm.WelcomeLabel1.Caption := CustomMessage('welcx32');
      WizardForm.Caption := CustomMessage('Title32');
    end;
end;

Какой Flags нужно подставить »

никакой

чтобы появлялись они только после первого запуска программы »

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

[ZVSRus]

Dodakaedr, Есть программа (Ваша) Windows Player 3.0.0.0 RePack Portable by Dodakaedr вместо страницы финиша появляется окно.

Код:

if MsgBox

Как сделать как на картинке.

[МИШАНЧИК]

Dodakaedr, подскажите пожалуйста. Пытался заменить окно "о прграмме" этим скриптом:

скрипт

[Files]
Source: compiler:CallbackCtrl.dll; Flags: dontcopy

[code]
type
TWFProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;

function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function WrapWFProc(Callback: TWFProc; ParamCount: Integer): Longword; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall';

var
OldProc:Longint;

procedure AboutSetupClick;
begin
//здесь обрабатываем нажатие на пункт меню "О программе ..."
MsgBox('bla-bla-bla', mbInformation, MB_OK);
end;

function WFWndProc(h:HWND;Msg,wParam,lParam:Longint):Longint;
begin
if (Msg=$112) and (wParam=9999) then begin
Result:=0;
AboutSetupClick;
end else begin
if Msg=$2 then SetWindowLong(WizardForm.Handle,-4,OldProc);
Result:=CallWindowProc(OldProc,h,Msg,wParam,lParam);
end;
end;

procedure InitializeWizard;
begin
OldProc:=SetWindowLong(WizardForm.Handle,-4,WrapWFProc(@WFWndProc,4));
end;

и на windows 7 х86 при отказе от дальнейшей установки(скрипт скомпилирован в 7х64) и закрытии инсталятора, выдает ошибку: