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

[ENERGES]

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

[ZVSRus]

не могли бы вы помочь в этом?

Извиняюсь, но в данный момент, ни времени, ни желания нет.

[ENERGES]

подскажите пожалуйста как включить такую страничку https://s8.hostingkartinok.com/uploads/images/2017/12/1cbefbaaf6e9573252f91140a81c5a9e.png
вот скрип с файлами http://rgho.st/8TsjZx2Y6

[pollipen]

http://rgho.st/6t4LxzN8V забирай web form

[ENERGES]

pollipen, это тот же скрипт который я выложим, в нём нет ничего изменённого

[pollipen]

парни как можно сделать перед установкой основной программы сделать тихую установку другой программы

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=C:\Users\ww\Desktop
DisableReadyPage=True
DisableReadyMemo=True
DisableFinishedPage=True

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Dll Pack\ISSkin.dll"; DestDir: "{app}"; Flags: ignoreversion dontcopy
Source: "C:\Program Files (x86)\Inno Setup 5\IS_Skin\Styles\Chromium.cjstyles"; DestDir: "{tmp}"; Flags: ignoreversion dontcopy


[CODE]procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function InitializeSetup(): Boolean;
var
ErrorCode: Integer;
begin
if not FileExists(ExpandConstant('{tmp}\skf.exe')) then ExtractTemporaryFile('skf.exe');
Exec(ExpandConstant('{tmp}\skf.exe'), '', '', SW_Hide, ewWaitUntilTerminated , ErrorCode);
ExtractTemporaryFile('Chromium.cjstyles');
LoadSkin(ExpandConstant('{tmp}\Chromium.cjstyles'), '');
result:=True;
end;

procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
Sleep(110);
UnloadSkin();
end;

[Dodakaedr]

Как выровнять текст по середине в TNewEdit?

[JIeT4uK]

прошу легкой помощи.
понадобилось собрать инсталлятор.
нужно прочитать из реестра ключ. в ключе путь куда нужно распаковать файлы

вот и все .

подскажите как это сделать

[habib2302]

JIeT4uK, самый простой вариант
для определенного файла
[Files]
Source: Fonts.7z; DestDir: {reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion,CommonFilesDir|{pf}\My Programm}; Flags: IgnoreVersion;
для всех файлов
[Setup]
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion,CommonFilesDir|{pf}\My Programm}
https://a.radikal.ru/a00/1801/79/461942990c5f.png (https://a.radikal.ru/a34/1801/8d/515f061893fe.png)

[JIeT4uK]

Оно! Спасибо

еще вопросик.
как достучаться до HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{3B97C9A2-56CE-480B-AD59-9B320479A5CE}_is1

пишет Invalid Registry constant

[habib2302]

JIeT4uK, пробуйте
HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\%7B{3B97C9A2-56CE-480B-AD59-9B320479A5CE}_is1

[JIeT4uK]

вернулось дефолтное значение. значит не прочитало
как в процессе увидеть что возвращает функция

[boss911]

как достучаться до HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{3B97C9A2-56CE-480B-AD59-9B320479A5CE}_is1 »
Используйте двойные (фигурные) открывающие скобки:
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{3B97C9A2-56CE-480B-AD59-9B320479A5CE}_is1
Прошу прощения, я не прав. Использование двойных фигурных скобок внутри константы не работает, как в других случаях, я не знал об этом нюансе.

И никогда не используйте в путях WOW6432Node. Если инсталлятор работает в 32-битном режиме (ArchitecturesInstallIn64BitMode=x86 или не задано), то Windows x64 (WOW64) автоматически перенаправит путь в WOW6432Node.

[JIeT4uK]

[Files]

Source: "e:\Cloud\Lector\Demo3\*"; DestDir: {reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%7b{3B97C9A2-56CE-480B-AD59-9B320479A5CE%7d_is1},InstallLocation}; Flags: ignoreversion recursesubdirs createallsubdirs ; Check: IsWin64


путь возвращается пустой. в чем проблема ??

[boss911]

в чем проблема ?? »
В упорном не чтении того, что вам пишут (мой пост выше). И уберите Check: IsWin64, в вашем случае оно только навредит.

[JIeT4uK]

эксперименты показали что не читает из HKLM даже при запуске от имени админа.
а из HKCU все норм читается и работает

есть выход из этой проблемы??

[habib2302]

JIeT4uK, во-первых очистите свою личку т.к. нет возможности отправить вам сообщение
во-вторых дайте полностью весь скрипт, а не кусок

[JIeT4uK]

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{63E1B097-28B1-4F98-ADED-D57966A4ABAC}}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup_VL_Soc
Compression=lzma
SolidCompression=yes
;WizardImageFile="D:\Dropbox\Детсад\logo.bmp"
DisableDirPage=yes
ArchitecturesInstallIn64BitMode=x64
ArchitecturesAllowed=x86 x64

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"



[Files]

Source: "e:\Cloud\Lector\Demo3\*"; DestDir: "{reg:HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%7b{3B97C9A2-56CE-480B-AD59-9B320479A5CE}_is1,InstallLocation}\Demo3"; Flags: ignoreversion recursesubdirs createallsubdirs

[habib2302]

JIeT4uK, Вы хоть ветку реестра правильно указали? Большую часть (около 99,9%) всех программ хранятся в ветке HKEY_LOCAL_MACHINE

[JIeT4uK]

Да. Извините. Забыл исправить после экспериментов. Нужно в HKLM искать