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

Автор: viktor9
Дата сообщения: 25.08.2007 12:45

Chuvakstepan
Всеравно остаеться это
http://www.kiselev6.narod.ru/baners/2222.jpg

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 12:54

Victor_Dobrov
ОГРОМНЕЙШЕЕ СПАСИБО!!!

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 12:54

viktor9
надо удалить ВСЮ секцию Tasks,
А именно, что-то типа этого:
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 13:06

Unc1e
http://www.rapidshare.ru/381678
Позволил себе смелость добавить фишку, чтобы при нажатии на стоп, кнопка паузы превращалась в кнопку проигрывания

Автор: viktor9
Дата сообщения: 25.08.2007 13:33

Chuvakstepan
Спасибо получилось еще вопрос можно както сделать чтобы на задний фон поставить картинку на весь экран

Автор: Unc1e
Дата сообщения: 25.08.2007 13:38

iTASmania_Inc

Цитата:

Позволил себе смелость добавить фишку

Так даже лучше, Большое спасибо!

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 13:41

viktor9
Скачай руководство по расширенным возможностям Inno Setup 5 [не для чайников] от Kindly.
Ссылки в шапке.

Добавлено:
2ALL
Кстати, Kindly в своём руководстве говорит, что при вставке фонового изображения стандартным образом можно увидеть рисуемую форму, а никто не пробовал добавлять в [Setup] вот это:
WindowVisible=yes
WindowShowCaption=no
WindowStartMaximized=no
WindowResizable=no
Лично я никакой формы проскакивающей не вижу, может, торможу?

Автор: viktor9
Дата сообщения: 25.08.2007 16:03

iTASmania_Inc
Чтото я там ненашел как сделать фонову картинку

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 16:10

viktor9

Цитата:

Чтото я там ненашел как сделать фонову картинку

Издеваешься?

Сделать фоновую картинку:
[more=стандартным образом]
[Setup]
WindowVisible=yes
;и по желанию
WindowResizable=no

[Files]
Source: "C:\My_Image.bmp"; DestDir: "{tmp}"; Flags: dontcopy

[Code]
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('My_Image.bmp'); //My_Image.bmp - указываемое изображение в секции [Files]
s:=ExpandConstant('{tmp}')+'\My_Image.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
end;
[/more]
[more=через системную библиотеку]
[Setup]
WindowVisible=no

[Files]
Source: "C:\background.bmp"; DestDir: "{tmp}"; Flags: dontcopy

[Code]
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('background.bmp');
s:=ExpandConstant('{tmp}')+'\background.bmp';
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
end;
[/more]
Скачай версию 5.1 (см. шапку) - вторая и третья строки сверху!

Автор: viktor9
Дата сообщения: 25.08.2007 16:47

iTASmania_Inc
Чтото ругаеться на это в обоих случаях

Код: procedure InitializeWizard();

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 16:52

viktor9
Скинь весь код - по-моему, ты просто дублируешь эту процедуру.

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 17:07

Надо уже FAQ составлять для совмещения процедур

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 17:21

Chuvakstepan
Пожалуй, можно с такого начать:
1) Я вот не дублировал процедур, просто то, что внутри каждой было скопировал, а все равно ошибка.
Пример:
procedure InitializeWizard();
var
i: Integer;
begin
...
end;
var:
n: Integer;
begin
...
end;

Автор: viktor9
Дата сообщения: 25.08.2007 17:25

[more]
#define WelcomeImagePath AddBackslash(SourcePath) + "Files\"
;Путь к картинке на странице приветствия, размер которой 582 X 72
#define WelcomeImageName "welcome.bmp"
;Имя картинки
#define FinishedImagePath AddBackslash(SourcePath) + "Files\"
;Путь к картинке на странице завершения, размер которой 582 X 72
#define FinishedImageName "finished.bmp"
;Имя картинки
#define FinishedImage (FinishedImagePath) + (FinishedImageName)
#define WelcomeImage (WelcomeImagePath) + (WelcomeImageName)
#include "Files\gis_code.iss"

[_TopOfScript]
; This is a Innoscript generate with ScriptMaker version 5.1.6.9

[_Project]
ProjectNr=1.1.1.0
ProjectName=
ProjectExeFileName=
ProjectMainFileName=D:\Диск\Докукменты\222.iss
ProjectAuthor=Copyright © 2007 Вик
ProjectCreateDate=23.08.2007
ProjectAccessDate=25.08.2007 8:56:28

[_ISPP]
#Pragma Option -v+
#Pragma VerboseLevel 9 ;Macro and functions successfull call acknowledgements
#Pragma SpanSymbol "\"
#Define AppVersion "1.1.1.0" ;Здесь номер версии программы
#define AppID ""
#define AppCopyright "Copyright © 2007 Вик"

[_EndOfScript]
; © HiSoft2000 http://www.Hisoft2000.de Mail: HiSoft2000@HiSoft2000.de © 2002-2005
; Visual dBase, dB2K, dBase SE and dBase Plus © dataBased Intelligence.Inc Homepage: http://www.databi.com/
; dQuery for Delphi,C++,dBASE PLUS © dataBased Intelligence.Inc see also Homepage: http://www.dQuery.com/
[Setup]
AppName=Counter-Strike 1.6
AppVerName=Counter-Strike 1.6
AppPublisher=Вик
AppPublisherURL=http://192.168.77.48/
AppSupportURL=http://192.168.77.48/
DefaultDirName={pf}\Valve
DefaultGroupName=Counter-Strike 1.6
InfoBeforeFile=D:\Program Files\mIRC\download\Эта_программа_установит_Counter.rtf
InfoAfterFile=D:\Program Files\mIRC\download\Эта_программа_установит_Counter.rtf
OutputDir=D:\Диск\Докукменты
OutputBaseFilename=Counter-Strike 1.6
SetupIconFile=D:\Games\valve.ico
SolidCompression=false
WizardImageFile=Files\WizModernImage.bmp
WizardSmallImageFile=Files\WizModernSmallImage.bmp
WizardImageStretch=false
DisableProgramGroupPage=true
DisableFinishedPage=true
AppCopyright={#AppCopyright}
VersionInfoVersion=1.1.1.0
VersionInfoTextVersion=1.1.1.0
CreateUninstallRegKey=true
ShowUndisplayableLanguages=false
WizardImageBackColor=clLime
UpdateUninstallLogAppName=true
WindowVisible=no
UninstallDisplayIcon=c:\Program Files\Counter Strike - Source\unins000.exe
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Counter-Strike 1.6
;и по желанию
WindowResizable=no

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

[CustomMessages]
BeveledOnClick=http://192.168.77.48/

[Messages]
BeveledLabel=Собрал Вик

[Files]
Source: ..\..\Games\hl.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\My_Image.bmp; DestDir: {tmp}; Flags: dontcopy
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Registry]
Root: HKU; SubKey: S-1-5-21-1214440339-1202660629-1801674531-1003\Software\Valve\Half-Life\Settings; ValueType: string; ValueName: ValveKey; ValueData: 5RP2E-EPH3K-BR3LG-KMGTE-FN8PY
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Arial,0; ValueData: Arial,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Courier New,0; ValueData: Courier New,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Verdana,0; ValueData: Verdana,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Times New Roman,0; ValueData: Times New Roman,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Tahoma,0; ValueData: Tahoma,204
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1250; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1251; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1252; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1253; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1254; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1255; ValueData: c_1251.nls
[Icons]
Name: {group}\Counter-Strike 1.6; Filename: {app}\hl.exe; Parameters: -nomaster -game cstrike; IconFileName: {app}\valve.ico
Name: {group}\Посетить сайт Вик; Filename: http://192.168.77.48/; IconFileName: {app}\codename.ico
Name: {group}\{cm:UninstallProgram,Counter-Strike 1.6}; Filename: {uninstallexe}; IconFileName: c:\Program Files\Counter Strike - Source\unins000.exe
Name: {commondesktop}\Counter-Strike 1.6; Filename: {app}\hl.exe; Parameters: -nomaster -game cstrike; IconFileName: {app}\valve.ico
Name: {commondesktop}\Античит PlusNET; Filename: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe; IconFileName: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe
Name: {commondesktop}\Античит Норма; Filename: {app}\Norma_AntiCheat\myAC.exe; IconFileName: {app}\Norma_AntiCheat\myAC.exe
Name: {group}\Античит PlusNET; Filename: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe; IconFileName: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe
Name: {group}\Античит Норма; Filename: {app}\Norma_AntiCheat\myAC.exe; IconFileName: {app}\Norma_AntiCheat\myAC.exe
Name: {commondesktop}\Посетить сайт Вик; Filename: http://192.168.77.48/; IconFileName: {app}\codename.ico

[Run]
Filename: {app}\Russian.exe; Description: {cm:LaunchProgram,русификатор}; Flags: nowait postinstall skipifsilent

[Code]
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('My_Image.bmp');
s:=ExpandConstant('{tmp}')+'\My_Image.bmp';
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
InitializeSkin;
end;
[/more]
Отредактировал проблема осталась

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 17:30

viktor9
1) замени строчку procedure InitializeWizard(): Boolean; на procedure InitializeWizard();
2) добавь строчку InitializeSkin; после MainForm.Visible:=True;
3) читай шапку

Цитата:

(Примечание для всех участников
Длинные куски кода помещайте под тегом [more], дабы дать возможность знатокам Inno Setup прочитать сам вопрос, а не пролистывать бесконечно длинные листинги скриптов в посте.)

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 17:32

Chuvakstepan
Это ещё не всё:
Картинка в инсталле - My_Image.bmp
Извлекает - background.bmp, странно?

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 17:38

iTASmania_Inc
очень!

Могу добавить следующее:
4) Замени Source: C:\My_Image.bmp; DestDir: {tmp}; Flags: dontcopy на Source: C:\background.bmp; DestDir: {tmp}; Flags: dontcopy
Файл картинки следует кидать на диск C: под именем background.bmp

Автор: viktor9
Дата сообщения: 25.08.2007 17:40

отредактировал скрипт всеравно проблема таже

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 17:44

Chuvakstepan
И это ещё не всё - он использует твой скин, а в нем есть скрипт, отвечающий за наложение скина, так вот там эта процедура уже прописана.

viktor9
Скинь все файлы (картинки и скрипты) скина куда-нить, а то так можно долго ошибки находить

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 17:50

iTASmania_Inc
процедура не прописана, initializewizard только в главном скрипте запуска (InitializeSkin - единственная строчка, которую он и прописал уже)
Ошибок у меня не было, когда я компилил это

а Grey Inno Setup (мой скин) можно качать у меня на сайте

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 17:52

Chuvakstepan
Тогда я наверное версией скина ошибся (1.04). Нелегко додумывать на том, чего нет, ИМХО.

Автор: viktor9
Дата сообщения: 25.08.2007 18:12

Да без скина заработало

[more]

[_TopOfScript]
; This is a Innoscript generate with ScriptMaker version 5.1.6.9

[_Project]
ProjectNr=1.1.1.0
ProjectName=
ProjectExeFileName=
ProjectMainFileName=D:\Диск\Докукменты\222.iss
ProjectAuthor=Copyright © 2007 Вик
ProjectCreateDate=23.08.2007
ProjectAccessDate=25.08.2007 8:56:28

[_ISPP]
#Pragma Option -v+
#Pragma VerboseLevel 9 ;Macro and functions successfull call acknowledgements
#Pragma SpanSymbol "\"
#Define AppVersion "1.1.1.0" ;Здесь номер версии программы
#define AppID ""
#define AppCopyright "Copyright © 2007 Вик"

[_EndOfScript]
; © HiSoft2000 http://www.Hisoft2000.de Mail: HiSoft2000@HiSoft2000.de © 2002-2005
; Visual dBase, dB2K, dBase SE and dBase Plus © dataBased Intelligence.Inc Homepage: http://www.databi.com/
; dQuery for Delphi,C++,dBASE PLUS © dataBased Intelligence.Inc see also Homepage: http://www.dQuery.com/
[Setup]
AppName=Counter-Strike 1.6
AppVerName=Counter-Strike 1.6
AppPublisher=Вик
AppPublisherURL=http://192.168.77.48/
AppSupportURL=http://192.168.77.48/
DefaultDirName={pf}\Valve
DefaultGroupName=Counter-Strike 1.6
InfoBeforeFile=D:\Program Files\mIRC\download\Эта_программа_установит_Counter.rtf
InfoAfterFile=D:\Program Files\mIRC\download\Эта_программа_установит_Counter.rtf
OutputDir=D:\Диск\Докукменты
OutputBaseFilename=Counter-Strike 1.6
SetupIconFile=D:\Games\valve.ico
SolidCompression=false
WizardImageFile=Files\WizModernImage.bmp
WizardSmallImageFile=Files\WizModernSmallImage.bmp
WizardImageStretch=false
DisableProgramGroupPage=true
DisableFinishedPage=true
AppCopyright={#AppCopyright}
VersionInfoVersion=1.1.1.0
VersionInfoTextVersion=1.1.1.0
CreateUninstallRegKey=true
ShowUndisplayableLanguages=false
WizardImageBackColor=clLime
UpdateUninstallLogAppName=true
WindowVisible=no
UninstallDisplayIcon=c:\Program Files\Counter Strike - Source\unins000.exe
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Counter-Strike 1.6
;и по желанию
WindowResizable=no

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

[CustomMessages]
BeveledOnClick=http://192.168.77.48/

[Messages]
BeveledLabel=Собрал Вик

[Files]
Source: ..\..\Games\hl.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\My_Image.bmp; DestDir: {tmp}; Flags: dontcopy
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Registry]
Root: HKU; SubKey: S-1-5-21-1214440339-1202660629-1801674531-1003\Software\Valve\Half-Life\Settings; ValueType: string; ValueName: ValveKey; ValueData: 5RP2E-EPH3K-BR3LG-KMGTE-FN8PY
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Arial,0; ValueData: Arial,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Courier New,0; ValueData: Courier New,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Verdana,0; ValueData: Verdana,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Times New Roman,0; ValueData: Times New Roman,204
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes; ValueType: string; ValueName: Tahoma,0; ValueData: Tahoma,204
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1250; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1251; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1252; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1253; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1254; ValueData: c_1251.nls
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Control\Nls\CodePage; ValueType: string; ValueName: 1255; ValueData: c_1251.nls
[Icons]
Name: {group}\Counter-Strike 1.6; Filename: {app}\hl.exe; Parameters: -nomaster -game cstrike; IconFileName: {app}\valve.ico
Name: {group}\Посетить сайт Вик; Filename: http://192.168.77.48/; IconFileName: {app}\codename.ico
Name: {group}\{cm:UninstallProgram,Counter-Strike 1.6}; Filename: {uninstallexe}; IconFileName: c:\Program Files\Counter Strike - Source\unins000.exe
Name: {commondesktop}\Counter-Strike 1.6; Filename: {app}\hl.exe; Parameters: -nomaster -game cstrike; IconFileName: {app}\valve.ico
Name: {commondesktop}\Античит PlusNET; Filename: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe; IconFileName: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe
Name: {commondesktop}\Античит Норма; Filename: {app}\Norma_AntiCheat\myAC.exe; IconFileName: {app}\Norma_AntiCheat\myAC.exe
Name: {group}\Античит PlusNET; Filename: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe; IconFileName: {app}\Plusnet_AntiCheat\AntiCheat_v3.4.4.exe
Name: {group}\Античит Норма; Filename: {app}\Norma_AntiCheat\myAC.exe; IconFileName: {app}\Norma_AntiCheat\myAC.exe
Name: {commondesktop}\Посетить сайт Вик; Filename: http://192.168.77.48/; IconFileName: {app}\codename.ico

[Run]
Filename: {app}\Russian.exe; Description: {cm:LaunchProgram,русификатор}; Flags: nowait postinstall skipifsilent

[Code]
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('My_Image.bmp');
s:=ExpandConstant('{tmp}')+'\My_Image.bmp';
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
end;
[/more]

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 18:14

viktor9
В смысле? Если это адресовано мне и со скином инсталл не работает, так пришли файлы, о чём ранее просил.

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 18:18

Помойму, я понял в чём причина
Ты удалил WelcomeLabel1 в [CustomMessages], поэтому скин не заработал

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 18:22

Chuvakstepan
Пересмотри скин внимательно!
gis_code.iss уже содержит процедуру InitializeWizard. Поэтому viktor9 удалил его, оставив только главный скрипт с фоновой картинкой, которая заработала БЕЗ InitializeSkin (его кстати, не нашёл)

Добавлено:

Цитата:

какая именно ошибка, если конспирация такая

Очевидно это так, потому что свой МОД контры он будет продавать большим людям за боьшие деньги.

Автор: viktor9
Дата сообщения: 25.08.2007 18:27

iTASmania_Inc
Не понял про что ты, если про то что я хочу сделать то это не секрет. Я делаю полностью русскую кс меню, радио команды, патчь. Что бы 1 раз установить а не кучу всего ставить.

А как вы делаете скины вручную или спомощу какой-то проги????

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 18:29

viktor9
Вручную!

Пишем код.

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 18:29

Извиняюсь, туплю
Вот резко обновил скин

Автор: iTASmania_Inc
Дата сообщения: 25.08.2007 18:31

viktor9
http://data.cod.ru/1105821130
А тут скины от Samprona, может пригодяться.

Автор: Chuvakstepan
Дата сообщения: 25.08.2007 18:32

InitializeSkin теперь строчка, которую надо просто добавить в InitializeWizard
viktor9
твой скрипт, который здесь теперь вполне работоспособен, только добавь

Цитата:

[CustomMessages]
WelcomeLabel1=Вас приветствует Мастер установки

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButtons
end;

Добавлено:
ОСТОРОЖНО!!! такими кусками реестра Windows просто убить можно!!!!!!!!
Вот я попался

чё делать, у меня Windows Vista, боюсь перезагружать

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Предыдущая тема: Mail.ru агент - вход не выполнен

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