Ru-Board.club
← Вернуться в раздел «Программы»

» Inno Setup (создание инсталяционных пакетов)

Автор: SotM
Дата сообщения: 21.05.2008 21:38
cepbl4
Ты же вроде это писал где-то раньше.
Выложи свой код, только не забудь занусуть его в тэг more
Автор: Sampron
Дата сообщения: 21.05.2008 22:14
EagleSH
Есть [more=код]
[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\AppName

[Files]
Source: 640.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 800.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 1024.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 1152.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 1280.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 1600.bmp; DestDir: {tmp}; Flags: dontcopy

[_Code]
function GetDC(HWND: DWord): DWord;
external 'GetDC@user32.dll stdcall';

function GetDeviceCaps(DC: DWord; Index: Integer): Integer;
external 'GetDeviceCaps@gdi32.dll stdcall';

function ReleaseDC(HWND: DWord;DC: DWord): Integer;
external 'ReleaseDC@user32.dll stdcall';

function ShowWindow(hWnd: DWord; nCmdShow: Integer): boolean;
external 'ShowWindow@user32.dll stdcall';

function SetWindowLong(hWnd: DWord; nIndex: Integer; dwNewLong: Longint): Longint;
external 'SetWindowLongA@user32.dll stdcall';

procedure InitializeWizard();
var
bgImage : TBitmapImage;
bgImageName: String;
width: integer;
dc: DWord;

begin
bgImage:=TBitmapImage.Create(MainForm)
bgImage.Align:=alClient
bgImage.Stretch:=True
bgImage.Parent:=MainForm

dc:=GetDC(MainForm.Handle)
width:=GetDeviceCaps(dc,8)
ReleaseDC(MainForm.Handle,dc)

if width <=640 then
bgImageName:='640.bmp'

else if width<=800 then
bgImageName:='800.bmp'

else if width<=1024 then
bgImageName:='1024.bmp'

else if width<=1152 then
bgImageName:='1152.bmp'

else if width<=1280 then
bgImageName:='1280.bmp'

else
bgImageName:='1600.bmp'

ExtractTemporaryFile(bgImageName)
bgImage.bitmap.LoadFromFile(expandConstant('{tmp}\'+bgImageName))

SetWindowLong(MainForm.Handle,-16,$80000000)
ShowWindow(Mainform.Handle,SW_SHOWMAXIMIZED)
end;
[/more] где размер фонового рисунка зависит от разрешения экрана.
Автор: EagleSH
Дата сообщения: 21.05.2008 23:58
Sampron
спс.

подскажи еще плиз, как поставить свой smallimage (своих размеров) и по ходу normalimage

по смалл нашёл

Код:
Вот ещё одна интересная реализация рисунка в верхней панели окна мастера:

[Setup]
WizardSmallImageFile=C:\SmallImage.bmp
;Здесь использован рисунок с размерами 497х58

[code]
procedure InitializeWizard();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 58; ///Размер рисунка
Width := 497; ///
end;
with PageNameLabel do begin
Width := Width - 497; ///Поставьте здесь значения на 0 если хотите вернуть текст
Left := Left + 497; ///
end;
with PageDescriptionLabel do begin
Width := Width - 497; ///Поставьте здесь значения на 0 если хотите вернуть текст
Left := Left + 497; ///
end;
end;
end;
Автор: Sampron
Дата сообщения: 22.05.2008 00:11
EagleSH
WizardForm.WizardSmallBitmapImage.Left:=0
WizardForm.WizardBitmapImage.Left:=0
WizardForm.WizardBitmapImage2.Left:=0
и т.д.
Автор: Victor_Dobrov
Дата сообщения: 22.05.2008 05:10
SotM

Цитата:
Сейчас решил воспользоваться Corona'ой. Возникли несколько вопросов:
1. Почему в начале не появляется диалог выбора языка?
2. Wizard как-то медленно прорисовывается, это так и должно быть?!
3. Нельзя ли выключить все эти рюшечки и использовать классический скин?

1) Найди в Corona_kernel.iss строку #expr SetSetupSetting("ShowLanguageDialog", "auto")... и удали.
2) Я гонял инсталлятор с Короной на Pentium-100, прорисовка была приемлемой и почти незаметной.
3) Ну так не используй скин или вместо него включай Inno Setup Upgrade (ссылка в шапке)
Автор: PolluxVonTXII
Дата сообщения: 22.05.2008 05:57
... вопрос снят, разобрался
Автор: abasov
Дата сообщения: 22.05.2008 07:09
Возможно ли сравнивать версию установки с предыдущей, т.е. например если версия текущей отличается от file://fs/Public/setup.exe, то предложить установку новой версии?
Автор: Chanka
Дата сообщения: 22.05.2008 08:06
Люди помогите, пожалуйста.
Надо создать чек бокс на странице wpWelcome. Если он будет отмечен, то должны пропускаться все страницы установки и сразу должна идти установка.
Автор: SotM
Дата сообщения: 22.05.2008 09:12

Цитата:
1) Найди в Corona_kernel.iss строку #expr SetSetupSetting("ShowLanguageDialog", "auto")... и удали.

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


Цитата:
2) Я гонял инсталлятор с Короной на Pentium-100, прорисовка была приемлемой и почти незаметной.

На работе: Celeron 1.1 Ghz, RAM 384 Mb, Video Integrated 32 Mb
Дома: AMD2 X2 4200, RAM 2 Gb, Video 256 Mb Geforce 8600 GT
Так вот, на них очень даже заметно при переходе на каждую страницу как прорисовываются отдельные элементы страницы.


Цитата:
3) Ну так не используй скин или вместо него включай Inno Setup Upgrade (ссылка в шапке)

Я смотрел код и вроде бы не заметил в "Inno Setup Upgrade" присутствия таймера, который появляется при установке.
Или его просто "вырезать" из самой Короны для своих нужд?
Автор: geranik
Дата сообщения: 22.05.2008 09:24
abasov По файлу примерно так:

Код:
var
Version: String;
begin
GetVersionNumbersString('//fs/Public/setup.exe', Version);
begin
if Version <> '1' then //сравнение
begin Result:=true;
end else begin
MsgBox('одинаковые.', mberror, mb_Ok)
Result:=false;
end;
end;
end;
Автор: AlexDJ666
Дата сообщения: 22.05.2008 10:26
Sampron, Victor_Dobrov, Genri и другие мега-гуру, обратите, пожалуйста, на мою проблему внимание. Для вас-то это, наверняка минутное дело А я уже больше недели мучаюсь
Автор: Genri
Дата сообщения: 22.05.2008 11:46
AlexDJ666
Используй параметр Check:
Для примера:

Source: Addons\Rus\Talents\*; DestDir: {app}/Interface/Addons; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Checked101

...файлы из Addons\Rus\Talents будут установлены только если отмечен чекбокс Check101
Автор: Victor_Dobrov
Дата сообщения: 22.05.2008 12:02
SotM

Цитата:
На работе: Celeron 1.1 Ghz, RAM 384 Mb, Video Integrated 32 Mb
Дома: AMD2 X2 4200, RAM 2 Gb, Video 256 Mb Geforce 8600 GT
Так вот, на них очень даже заметно при переходе на каждую страницу как прорисовываются отдельные элементы страницы.

1) уберу лишнее и сделаю пояснения в скрипте. (также в новой сборке будут значительные дополнения)
2) задержки могут быть при стандартных видеодрайверах Microsoft. Инсталляторы гонял довольно много на различном железе, при открытии страницы wpInstalling иногда заметна прорисовка кнопок 'Прервать' и 'Компактно', в остальном всё нормально. И вообще, графические функции InnoSetup не обязаны использовать последний DirectX.
3) ключевое слово в названии Skin, но вы можете менять скрипт как угодно, ведь он выложен в общий доступ.

AlexDJ666 надо убирать лишнее из скрипта и выкладывать то, что можно сразу скомпилить, тогда и ответы будут.
Автор: abasov
Дата сообщения: 22.05.2008 13:13
geranik

Цитата:
abasov По файлу примерно так:

Код:

var
Version: String;
begin
GetVersionNumbersString('//fs/Public/setup.exe', Version);
begin
if Version <> '1' then //сравнение
begin Result:=true;
end else begin
MsgBox('одинаковые.', mberror, mb_Ok)
Result:=false;
end;
end;
end;


Вставляю в function InitializeSetup(): Boolean;
не работает.., работает if Version < '1' then //сравнение

Автор: Gekkon1976
Дата сообщения: 22.05.2008 13:44
Подскажите кто знает как можно обойтись без перезагрузки системы, при регистрации в реестре данных параметров.
(просто после инсталляции при попытке запустить установленную программу выдает ошибку, после перезагрузки запускаетс. Немогу понять какие параметры обновляются после перегрузки системы.)
[more]
[Registry]
Root: HKLM; Subkey: "SOFTWARE\Classes\*\shellex\ContextMenuHandlers\ImageConverter3"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{C6643EC0-49AC-4c15-A455-04104DB900A9}"
Root: HKLM; Subkey: "SOFTWARE\Classes\AppID\{{DED6671A-1B9B-46bc-A6B0-1909D712501C}"; Flags: uninsdeletekey; ValueType: string; ValueData: "ICScsiSV"
Root: HKLM; Subkey: "SOFTWARE\Classes\AppID\{{DED6671A-1B9B-46bc-A6B0-1909D712501C}"; ValueType: string; ValueName: "LocalService"; ValueData: "ICScsiSV"
Root: HKLM; Subkey: "SOFTWARE\Classes\AppID\{{DED6671A-1B9B-46bc-A6B0-1909D712501C}"; ValueType: string; ValueName: "ServiceParameters"; ValueData: "-Service"
Root: HKLM; Subkey: "SOFTWARE\Classes\AppID\ICScsiSV.EXE"; ValueType: string; ValueName: "AppID"; ValueData: "{{DED6671A-1B9B-46bc-A6B0-1909D712501C}"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}\InProcServer32"; Flags: uninsdeletekey; ValueType: string; ValueData: "C:\PROGRA~1\Sony\IMAGEC~1\ICSCSI~1.DLL"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}\InProcServer32"; ValueType: string; ValueName: "ThreadingModel"; ValueData: "Both"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}"; Flags: uninsdeletekey; ValueType: string; ValueData: "PSFactoryBuffer"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}\LocalServer32"; Flags: uninsdeletekey; ValueType: string; ValueData: "C:\Program Files\Sony\Image Converter 3\ICScsiSV.exe"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}\ProgID"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcScsiSv.IcScsiPathThrough.1"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}\TypeLib"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{FA5420BF-7058-46fe-AA98-2FD03C866836}"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}\VersionIndependentProgID"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcScsiSv.IcScsiPathThrough"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}"; Flags: uninsdeletekey; ValueType: string; ValueData: "ICScsiPathThrough Class"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}"; ValueType: string; ValueName: "AppID"; ValueData: "{{DED6671A-1B9B-46bc-A6B0-1909D712501C}"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}\Implemented Categories\{{FCB0C2A3-9747-4c95-9d02-820AFEDEF13F}"; Flags: uninsdeletekey; ValueType: string; ValueData: "Media Status Sink"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}\InprocServer32"; Flags: uninsdeletekey; ValueType: string; ValueData: "C:\PROGRA~1\Sony\IMAGEC~1\ICMCEM~1.DLL"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}\InprocServer32"; ValueType: string; ValueName: "ThreadingModel"; ValueData: "Apartment"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}\ProgID"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcMCEMonitor.StatusSink.1"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}\TypeLib"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}\VersionIndependentProgID"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcMCEMonitor.StatusSink"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{760911EE-83A4-4E1E-9524-587462E7A8E0}"; Flags: uninsdeletekey; ValueType: string; ValueData: "StatusSink Class"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{C6643EC0-49AC-4c15-A455-04104DB900A9}\InprocServer32"; Flags: uninsdeletekey; ValueType: string; ValueData: "C:\PROGRA~1\Sony\IMAGEC~1\CtxMenu.dll"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{C6643EC0-49AC-4c15-A455-04104DB900A9}\InprocServer32"; ValueType: string; ValueName: "ThreadingModel"; ValueData: "Apartment"
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{C6643EC0-49AC-4c15-A455-04104DB900A9}"; Flags: uninsdeletekey; ValueType: string; ValueData: "Image Converter context menu"
Root: HKLM; Subkey: "SOFTWARE\Classes\Component Categories\{{FCB0C2A3-9747-4c95-9d02-820AFEDEF13F}"; ValueType: string; ValueName: "410"; ValueData: "Media Status Sink"
Root: HKLM; Subkey: "SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\ImageConverter3"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{C6643EC0-49AC-4c15-A455-04104DB900A9}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\ImageConverter3"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{C6643EC0-49AC-4c15-A455-04104DB900A9}"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcMCEMonitor.StatusSink\CLSID"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{760911EE-83A4-4E1E-9524-587462E7A8E0}"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcMCEMonitor.StatusSink\CurVer"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcMCEMonitor.StatusSink.1"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcMCEMonitor.StatusSink"; Flags: uninsdeletekey; ValueType: string; ValueData: "StatusSink Class"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcMCEMonitor.StatusSink.1\CLSID"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{760911EE-83A4-4E1E-9524-587462E7A8E0}"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcMCEMonitor.StatusSink.1"; Flags: uninsdeletekey; ValueType: string; ValueData: "StatusSink Class"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcScsiSv.IcScsiPathThrough\CLSID"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcScsiSv.IcScsiPathThrough\CurVer"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcScsiSv.IcScsiPathThrough.1"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcScsiSv.IcScsiPathThrough"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcScsiPathThrough Class"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcScsiSv.IcScsiPathThrough.1\CLSID"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{717F63A3-4294-4ed6-851E-2A20A8FE8F31}"
Root: HKLM; Subkey: "SOFTWARE\Classes\IcScsiSv.IcScsiPathThrough.1"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcScsiPathThrough Class"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{075FC453-F236-41DA-B90D-9FBB8BBDC101}\ProxyStubClsid"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{00020424-0000-0000-C000-000000000046}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{075FC453-F236-41DA-B90D-9FBB8BBDC101}\ProxyStubClsid32"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{00020424-0000-0000-C000-000000000046}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{075FC453-F236-41DA-B90D-9FBB8BBDC101}\TypeLib"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{075FC453-F236-41DA-B90D-9FBB8BBDC101}\TypeLib"; ValueType: string; ValueName: "Version"; ValueData: "1.0"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{075FC453-F236-41DA-B90D-9FBB8BBDC101}"; Flags: uninsdeletekey; ValueType: string; ValueData: "IMediaStatusSink"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}\NumMethods"; Flags: uninsdeletekey; ValueType: string; ValueData: "12"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}\ProxyStubClsid32"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{1230CAE5-32C9-49BB-AC53-D7067FEC16A6}"; Flags: uninsdeletekey; ValueType: string; ValueData: "IScsiPathThrough"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{A70D81F2-C9D2-4053-AF0E-CDEA39BDD1AD}\ProxyStubClsid"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{00020424-0000-0000-C000-000000000046}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{A70D81F2-C9D2-4053-AF0E-CDEA39BDD1AD}\ProxyStubClsid32"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{00020424-0000-0000-C000-000000000046}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{A70D81F2-C9D2-4053-AF0E-CDEA39BDD1AD}\TypeLib"; Flags: uninsdeletekey; ValueType: string; ValueData: "{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{A70D81F2-C9D2-4053-AF0E-CDEA39BDD1AD}\TypeLib"; ValueType: string; ValueName: "Version"; ValueData: "1.0"
Root: HKLM; Subkey: "SOFTWARE\Classes\Interface\{{A70D81F2-C9D2-4053-AF0E-CDEA39BDD1AD}"; Flags: uninsdeletekey; ValueType: string; ValueData: "IMediaStatusSession"
Root: HKLM; Subkey: "SOFTWARE\Classes\TypeLib\{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}\1.0\0\win32"; Flags: uninsdeletekey; ValueType: string; ValueData: "C:\PROGRA~1\Sony\IMAGEC~1\ICMCEM~1.DLL"
Root: HKLM; Subkey: "SOFTWARE\Classes\TypeLib\{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}\1.0\FLAGS"; Flags: uninsdeletekey; ValueType: string; ValueData: "0"
Root: HKLM; Subkey: "SOFTWARE\Classes\TypeLib\{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}\1.0\HELPDIR"; Flags: uninsdeletekey; ValueType: string; ValueData: "C:\PROGRA~1\Sony\IMAGEC~1\"
Root: HKLM; Subkey: "SOFTWARE\Classes\TypeLib\{{65BE4F7E-3AAA-414A-850B-6AEA935D7770}\1.0"; Flags: uninsdeletekey; ValueType: string; ValueData: "IcMCEMonitor 1.0 Type Library"
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Cryptography\RNG"; ValueType: binary; ValueName: "Seed"; ValueData: "01 87 F2 4A 46 2C 13 1D 4C 39 D7 BF 80 0D 76 CD 83 30 97 C5 27 EC D5 B6 37 A4 3D AC 38 0B DB 24 7F 00 5F CD 7B 01 C3 E5 05 0E 80 E7 A7 74 D9 AF 9E 8C 33 D1 C0 7A B9 FD C6 D7 97 66 2B 5C CA 1F C8 91 50 6E BF 2B 0A CF 14 FF 86 32 AC DC 2B 40"
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved"; ValueType: string; ValueName: "{{C6643EC0-49AC-4c15-A455-04104DB900A9}"; ValueData: "Image Converter context menu extension"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV\Security"; ValueType: binary; ValueName: "Security"; ValueData: "01 00 14 80 90 00 00 00 9C 00 00 00 14 00 00 00 30 00 00 00 02 00 1C 00 01 00 00 00 02 80 14 00 FF 01 0F 00 01 01 00 00 00 00 00 01 00 00 00 00 02 00 60 00 04 00 00 00 00 00 14 00 FD 01 02 00 01 01 00 00 00 00 00 05 12 00 00 00 00 00 18 00 FF 01 0F 00 01 02 00 00 00 00 00 05 20 00 00 00 20 02 00 00 00 00 14 00 8D 01 02 00 01 01 00 00 00 00 00 05 0B 00 00 00 00 00 18 00 FD 01 02 00 01 02 00 00 00 00 00 05 20 00 00 00 23 02 00 00 01 01 00 00 00 00 00 05 12 00 00 00 01 01 00 00 00 00 00 05 12 00 00 00"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: binary; ValueName: "DependOnGroup"; ValueData: "00"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: binary; ValueName: "DependOnService"; ValueData: "52 50 43 53 53 00 00"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: string; ValueName: "DisplayName"; ValueData: "Image Converter SCSI Service"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: dword; ValueName: "ErrorControl"; ValueData: "00000001"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: binary; ValueName: "ImagePath"; ValueData: "43 3A 5C 50 72 6F 67 72 61 6D 20 46 69 6C 65 73 5C 53 6F 6E 79 5C 49 6D 61 67 65 20 43 6F 6E 76 65 72 74 65 72 20 33 5C 49 43 53 63 73 69 53 56 2E 65 78 65 00"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: string; ValueName: "ObjectName"; ValueData: "LocalSystem"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: dword; ValueName: "Start"; ValueData: "00000003"
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Services\ICScsiSV"; ValueType: dword; ValueName: "Type"; ValueData: "00000010"
[/more]
Автор: SotM
Дата сообщения: 22.05.2008 14:57
Gekkon1976
Для начала отредактируй свой пост и засунуть весь код под тэг 'more'.
Во-вторых, не совсем понятен твой вопрос.
Автор: AlexDJ666
Дата сообщения: 22.05.2008 16:02
Genri, и все? Так просто? А я-то куда уже только ни лез...
Автор: geranik
Дата сообщения: 22.05.2008 21:21
abasov Надеюсь не техническая ошибка, знак не равно должен работать. При полном совпадении (например 1.0.253.1100) должно быть сообщение.
И Вопрос
Можно ли каким нибудь способом, может внешним заменить слово в файле?
надо приписать к слову, знак =, для похожести на ini.
Автор: juvaforza
Дата сообщения: 23.05.2008 15:38
Похоже, нашелся порядочный человек, подруживший innounp с is 5.2.3, за что ему можно сказать большое спасибо.

Добавлено:
В самом низу страницы
Автор: Diawer
Дата сообщения: 23.05.2008 18:36
Подскажите, как в этом [more=Коде]
procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.Top:=0
WizardForm.WizardSmallBitmapImage.Left:=347
WizardForm.WizardSmallBitmapImage.Width:=150
WizardForm.WizardSmallBitmapImage.Height:=58
WizardForm.PageNameLabel.Width:=300
WizardForm.PageDescriptionLabel.Width:=300
end;[/more]
который изменяет размер WizardSmallImage, изменить расположение текста,
у меня картинка находиться справа, а нужно слева, сдвинуть её не поблема,
а текст не могу.
Автор: Sampron
Дата сообщения: 23.05.2008 19:03
Diawer
Есть такое свойство Left, добавь его к PageNameLabel и PageDescriptionLabel и выставляй как тебе нужно.
Автор: serg_aka_lain
Дата сообщения: 23.05.2008 19:07
Diawer

Или вот готовый пример [more]
procedure InitializeWizard();
begin
with WizardForm do
begin
with MainPanel do
begin
PageNameLabel.Left := ScaleX(152);
PageNameLabel.Width := ScaleX(342);
PageDescriptionLabel.Left := ScaleX(157);
PageDescriptionLabel.Width := ScaleX(337);
with WizardSmallBitmapImage do
begin
Left := ScaleX(0);
Width := ScaleX(150);
Height := MainPanel.Height - ScaleY(2);
end;
end;
end;
end;
[/more]

Автор: Diawer
Дата сообщения: 23.05.2008 19:24
Вопрос снят.
Автор: EagleSH
Дата сообщения: 23.05.2008 19:25
господа, неужто никому не интересно увеличить объём словаря? или без разраба инно тут нечего ловить?
Автор: juvaforza
Дата сообщения: 23.05.2008 21:26
Inno Setup Unpacker 0.20

Цитата:
Supports IS up to version 5.2.3
Several bugs fixed.

Скачать
Автор: boss911
Дата сообщения: 23.05.2008 22:18
Ребята, срочно нужна помощь, пожалуйста!

Год назад, мне помогли написать секцию код для скрипта, чтобы была музычка пару фишек, а главное это скин Slate. Мне нужно было, чтобы диалог анинисталлера был похож на диалог инсталлятора. Тогда мне посоветовали, взять Setup.e32, открыть его редактором ресурсов, найти ресурс TUNINSTPROGRESSFORM и заменить на текст, который мне дали на основе главного скина.

Год спустя, то есть сейчас, заглядываю в Setup.e32 и не вижу там ресурса TUNINSTPROGRESSFORM, есть только похожие названия, но попробовал туда вставить этот самый текст, но диалог не изменяется, а также кричит, что мол TButton не найден.

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

Sampron, если я не ошибаюсь, то это был тем человеком, который мне помогал слепить секцию код для скрипта. Уповаю на тебя, плиз.
Автор: serg_aka_lain
Дата сообщения: 23.05.2008 22:36
boss911
Используй ту версию Inno, которая была год назад, в текущей версии Inno
есть процедура "InitializeUninstallProgressForm" через секцию Code, скрипт под эту версию надо переписывать.
Автор: Sampron
Дата сообщения: 23.05.2008 22:52
boss911

Цитата:
заглядываю в Setup.e32 и не вижу там ресурса TUNINSTPROGRESSFORM

Наверно не внимательно смотрел, сейчас он называется TUNINSTALLPROGRESSFORM, а вообще как подметил serg_aka_lain начиная с версии 5.2.3 это можно сделать через код.
Автор: boss911
Дата сообщения: 24.05.2008 00:02

Цитата:
Наверно не внимательно смотрел, сейчас он называется TUNINSTALLPROGRESSFORM

Это я видел, попробовал туда внести, при деинсталляции выбивает "Clas TButton нот фаунд".


Цитата:
а вообще как подметил serg_aka_lain начиная с версии 5.2.3 это можно сделать через код.

Будь добр, помоги как в тот раз, я в этом вообще не секу. Если что, я могу выложить секцию код для тебя, чтобы ты ее подправил, а возможно, уже есть новая версия скина Slate, графику только я бы свою хотел оставить.
Автор: Sampron
Дата сообщения: 24.05.2008 01:04
boss911

Цитата:
Это я видел, попробовал туда внести, при деинсталляции выбивает "Clas TButton нот фаунд".

Потому-что начиная с версии 5.2.3 в стандартных формах класс TButton заменён на TNewButton, не заметил?

Страницы: 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667

Предыдущая тема: Поиск в WinDjView


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.