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

Chuvakstepan

Всеравно неработает из обновленым может я неправильно состыковал скины
[more]
; Script generated by the Мастер Inno Setup .
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#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=yes
UninstallDisplayIcon=c:\Program Files\Counter Strike - Source\unins000.exe
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Counter-Strike 1.6
;и по желанию


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

[CustomMessages]
BeveledOnClick=http://192.168.77.48/
;Ссылка, на которую переходит пользователь при нажатии на BeveledLabel
WelcomeLabel1=Вас приветствует Мастер установки

[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]
procedure InitializeWizard();
begin
InitializeSkin
end;

procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButtons
end;


{Created by Chuvakstepan Inc. 2007
Version of gis_code.iss - 1.045}

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]

viktor9
[more=Правильная склейка]
; Script generated by the Мастер Inno Setup .
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#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=yes
UninstallDisplayIcon=c:\Program Files\Counter Strike - Source\unins000.exe
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Counter-Strike 1.6
;и по желанию


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

[CustomMessages]
BeveledOnClick=http://192.168.77.48/
;Ссылка, на которую переходит пользователь при нажатии на BeveledLabel
WelcomeLabel1=Вас приветствует Мастер установки

[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]
procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButtons
end;

{Created by Chuvakstepan Inc. 2007
Version of gis_code.iss - 1.045}

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]

viktor9
Удали

Цитата:

procedure InitializeWizard();
begin
InitializeSkin
end;

и добавь строчку InitializeSkin после MainForm.Visible:=True;

iTASmania_Inc, не ну просто двойной удар

Corona Skin & Check System Requirements - обновил (клавиша A(ф) - показ истории).
Звуковые карты определяются через API и перечисляются в таблице. При подсчёте объёма папок выводится сообщение. Из двух видеокарт в таблице показывается та, что установлена последней. На Висте должно работать также быстро, как на ХР. Если это не так, отпишите...

Chuvakstepan
а можно это исправить
http://www.kiselev6.narod.ru/baners/4444.jpg
чтобы было так
http://www.kiselev6.narod.ru/baners/5555.jpg

viktor9
убери WizardForm.Position:=poScreenCenter;

Твоя секция Registry сделала так, что я боюсь перезагружаться

Уважаемые пользователи Windows Vista, Дайте пожалуйста стандартные значения
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage

Блин я наверное достану всех из своими вопросами
Chuvakstepan
теперь там вообще текст не показывает пустое окно

Chuvakstepan - [more=держи для свежеустановленной Vista 32 bit]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes]
"Arabic Transparent"="Arial"
"Arabic Transparent Bold"="Arial Bold"
"Arabic Transparent,0"="Arial,178"
"Arabic Transparent Bold,0"="Arial Bold,178"
"Helvetica"="Arial"
"Arial Baltic,186"="Arial,186"
"Arial CE,238"="Arial,238"
"Arial CYR,204"="Arial,204"
"Arial Greek,161"="Arial,161"
"Arial TUR,162"="Arial,162"
"Courier New Baltic,186"="Courier New,186"
"Courier New CE,238"="Courier New,238"
"Courier New CYR,204"="Courier New,204"
"Courier New Greek,161"="Courier New,161"
"Courier New TUR,162"="Courier New,162"
"Times"="Times New Roman"
"Times New Roman Baltic,186"="Times New Roman,186"
"Times New Roman CE,238"="Times New Roman,238"
"Times New Roman CYR,204"="Times New Roman,204"
"Times New Roman Greek,161"="Times New Roman,161"
"Times New Roman TUR,162"="Times New Roman,162"
"MS Shell Dlg 2"="Tahoma"
"MS Shell Dlg"="Microsoft Sans Serif"
"Helv"="MS Sans Serif"
"Tms Rmn"="MS Serif"
"David Transparent"="David"
"Miriam Transparent"="Miriam"
"Fixed Miriam Transparent"="Miriam Fixed"
"Rod Transparent"="Rod"
"FangSong_GB2312"="FangSong"
"KaiTi_GB2312"="KaiTi"
"System,0"="System,204"
"Fixedsys,0"="Fixedsys,204"
"Small Fonts,0"="Small Fonts,204"
"MS Serif,0"="MS Serif,204"
"MS Sans Serif,0"="MS Sans Serif,204"
"Courier,0"="Courier New,204"
"Arial Cyr,0"="Arial,204"
"Courier New Cyr,0"="Courier New,204"
"Times New Roman Cyr,0"="Times New Roman,204"
"Helv,0"="MS Sans Serif,204"
"Tms Rmn,0"="MS Serif,204"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"ACP"="1251"
"OEMCP"="866"
"MACCP"="10007"
"OEMHAL"="vgaoem.fon"
"10008"="c_10008.nls"
"936"="c_936.nls"
"500"="c_500.nls"
"52936"="c_is2022.dll"
"54936"="c_g18030.dll"
"20936"="c_20936.nls"
"50227"="c_is2022.dll"
"10006"="c_10006.nls"
"1253"="c_1253.nls"
"737"="c_737.nls"
"869"="c_869.nls"
"20273"="c_20273.nls"
"28597"="C_28597.NLS"
"20423"="c_20423.nls"
"875"="c_875.nls"
"10081"="c_10081.nls"
"1254"="c_1254.nls"
"857"="c_857.nls"
"20905"="c_20905.nls"
"28593"="c_28593.nls"
"1026"="c_1026.nls"
"10007"="c_10007.nls"
"1251"="c_1251.nls"
"866"="c_866.nls"
"855"="c_855.nls"
"20880"="c_20880.nls"
"28595"="C_28595.NLS"
"20866"="c_20866.nls"
"21866"="c_21866.nls"
"21025"="c_21025.nls"
"57002"="c_iscii.dll"
"57003"="c_iscii.dll"
"57004"="c_iscii.dll"
"57005"="c_iscii.dll"
"57006"="c_iscii.dll"
"57007"="c_iscii.dll"
"57008"="c_iscii.dll"
"57009"="c_iscii.dll"
"57010"="c_iscii.dll"
"57011"="c_iscii.dll"
"10003"="c_10003.nls"
"949"="c_949.nls"
"1361"="c_1361.nls"
"20833"="c_20833.nls"
"20949"="c_20949.nls"
"50225"="c_is2022.dll"
"51949"="c_20949.nls"
"10005"="c_10005.nls"
"1255"="c_1255.nls"
"862"="c_862.nls"
"28598"="c_28598.nls"
"38598"="c_28598.nls"
"20424"="c_20424.nls"
"10029"="c_10029.nls"
"775"="c_775.nls"
"1257"="c_1257.nls"
"28594"="C_28594.NLS"
"28603"="c_28603.nls"
"10001"="c_10001.nls"
"932"="c_932.nls"
"20290"="c_20290.nls"
"20932"="c_20932.nls"
"50220"="c_is2022.dll"
"50221"="c_is2022.dll"
"50222"="c_is2022.dll"
"21027"="c_21027.nls"
"10000"="c_10000.nls"
"1258"="c_1258.nls"
"10004"="c_10004.nls"
"1256"="c_1256.nls"
"720"="c_720.nls"
"708"="c_708.nls"
"864"="c_864.nls"
"20420"="c_20420.nls"
"28596"="C_28596.NLS"
"10002"="c_10002.nls"
"950"="c_950.nls"
"20000"="c_20000.nls"
"20001"="c_20001.nls"
"20002"="c_20002.nls"
"20003"="c_20003.nls"
"20004"="c_20004.nls"
"20005"="c_20005.nls"
"20261"="c_20261.nls"
"50229"="c_is2022.dll"
"10010"="c_10010.nls"
"10017"="c_10017.nls"
"10082"="c_10082.nls"
"1250"="c_1250.nls"
"852"="c_852.nls"
"28592"="C_28592.NLS"
"10021"="c_10021.nls"
"874"="c_874.nls"
"20838"="c_20838.nls"
"437"="c_437.nls"
"850"="c_850.nls"
"858"="c_858.nls"
"1252"="c_1252.nls"
"37"="c_037.nls"
"20285"="c_20285.nls"
"28591"="C_28591.NLS"
"20127"="c_20127.nls"
"20269"="c_20269.nls"
"20105"="c_20105.nls"
"20106"="c_20106.nls"
"20107"="c_20107.nls"
"20108"="c_20108.nls"
"865"="c_865.nls"
"863"="c_863.nls"
"861"="c_861.nls"
"860"="c_860.nls"
"10079"="c_10079.nls"
"1047"="c_1047.nls"
"1140"="c_1140.nls"
"1141"="c_1141.nls"
"1142"="c_1142.nls"
"1143"="c_1143.nls"
"1144"="c_1144.nls"
"1145"="c_1145.nls"
"1146"="c_1146.nls"
"1147"="c_1147.nls"
"1148"="c_1148.nls"
"1149"="c_1149.nls"
"20277"="c_20277.nls"
"20278"="c_20278.nls"
"20280"="c_20280.nls"
"20284"="c_20284.nls"
"20297"="c_20297.nls"
"20871"="c_20871.nls"
"20924"="c_20924.nls"
"28599"="c_28599.nls"
"28605"="c_28605.nls"
"870"="c_870.nls"
[/more] и учти, что текущий CurrentControlSet может быть и таким: ControlSet001.
Извиняюсь за оффтоп...

Victor_Dobrov
Спасибо! Теперь можно рестартиться

viktor9
Удали у себя секцию Registry, потому что у пользователя может быть Vista или Win98
Первая строчка в нём вообще не записывается в реестр

viktor9
[more=Вот так надо сделать]
; Script generated by the Мастер Inno Setup .
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#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=yes
WindowResizable=no
UninstallDisplayIcon=c:\Program Files\Counter Strike - Source\unins000.exe
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Counter-Strike 1.6

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

[CustomMessages]
BeveledOnClick=http://192.168.77.48/
;Ссылка, на которую переходит пользователь при нажатии на BeveledLabel
WelcomeLabel1=Вас приветствует Мастер установки

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

[Files]
Source: ..\..\Games\hl.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\My_Image.bmp; DestDir: {tmp}; Flags: dontcopy
Source: D:\Program Files\mIRC\download\Эта_программа_установит_Counter.rtf; 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]
procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButtons
end;

{Created by Chuvakstepan Inc. 2007
Version of gis_code.iss - 1.045}

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

procedure InitializeWizard();
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
RTFString: 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;
ExtractTemporaryFile('Эта_программа_установит_Counter.rtf')
LoadStringFromFile(ExpandConstant('{tmp}\Эта_программа_установит_Counter.rtf'), RTFString)
WizardForm.InfoBeforeMemo.RTFText := RTFString
InitializeSkin
end;
[/more]


Добавлено:

Цитата:

Первая строчка в нём вообще не записывается в реестр

Уточню: НИ У КОГО

Не понял что
Цитата:

Первая строчка в нём вообще не записывается в реестр

Что оно не прописываеться в реестр???

iTASmania_Inc
Спасибо но в конце установки еще нужно чтобы тоже самое было
InfoAfterFile

Chuvakstepan
тебе еще нужно значения реестра
Ссылка

viktor9
После
WizardForm.InfoBeforeMemo.RTFText := RTFString
пишешь
WizardForm.InfoAfterMemo.RTFText := RTFString

Цитата:

Что оно не прописываеться в реестр??

Запись твоя в [Registry], где ты ваще такую строчку нарыл?

Цитата:

где ты ваще такую строчку нарыл?

Наверное, у себя из реестра.
Это классы - на каждом компьютере свои, так-что нет смысла создавать
Вот кусок реестра, отвечающий за CD-key в контре (если я не ошибаюсь):
HKEY_CURRENT_USER, 'Software\Valve\Half-Life\Settings', 'ValveKey'

Еще появился вопрос у меня игра ставиться сюда допустим c:\Program Files\Valve\
Но после удаления там остаються папку и сама папка Valve можно както заставить чтобы принудительно удалялась папка Valve независимо есть в ней чтото или нет.

Chuvakstepan
А как тогда мне быть из этим реестром HKEY_CURRENT_USER, 'Software\Valve\Half-Life\Settings'

viktor9
Вот так:
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
DelTree(ExpandConstant('{app}'), True, True, True)
RemoveDir(ExpandConstant('{app}'))
end
end;
В руководстве от Kindly есть вариант посложнее - с предложением удалить всё или оставить файлы, не удаляя их.

Добавлено:
Victor_Dobrov
Мне кажется, что для новичков в Corona Skin надо написать, чтобы они кидали папку Corona в директорию Inno - наверное, у многих скрипты не компилятся.

iTASmania_Inc
Спасибо большое осталось решить из реестром и все будет в порядке у каждого свое HKEY_USERS\S-1-5-21-1960408961-507921405-1957994488-1003

viktor9
Root: HKCU; SubKey: Software\Valve\Half-Life\Settings; ValueType: String; ValueName: ValveKey; ValueData: 5RP2E-EPH3K-BR3LG-KMGTE-FN8PY;
Я реестр Контры не знаю, но мне почему-то кажется, что там надо Root: HKLM; хотя, по моему, Chuvakstepan всё-таки прав.

Кто-нибудь помогите плиззз!!!
Как в этом коде сделать чтобы если версия игры S.T.A.L.K.E.R. не соответствует AppVersion=1.0004 то в таком случае должно появится сообщения что версия игры не та.

[Setup]
AppName=S.T.A.L.K.E.R.
AppVersion=1.0004
AppVerName={#emit SetupSetting('AppName') + SetupSetting('AppVersion')}
DefaultDirName={pf}\GSC World Publishing\S.T.A.L.K.E.R

[Code]
function InitializeSetup(): Boolean;
var
InstalledVersion: string;
begin
Result:= True;
If not RegQueryStringValue(HKLM, 'Software\GSC Game World\STALKER-SHOC', 'InstallVers', InstalledVersion) then
begin
MsgBox('Программа обновления не смогла найти игру.' #13#13 'Обновление невозможно без установленной игры.', mbError, mb_Ok)
Result:= False;
end
else
begin
If InstalledVersion > '{#SetupSetting("AppVersion")}' then
begin
MsgBox('Обнаружена установленная версия ' + '[' + InstalledVersion + '].' + #13#13 +
'Этот пакет обновлений предназначен только для обновления версии [1.0004].', mbError, mb_ok)
Result:= False;
end;
end;
end;

Chanka
Перепиши:
If InstalledVersion > '{#SetupSetting("AppVersion")}' then
на вот это:
If InstalledVersion <> '{#SetupSetting("AppVersion")}' then

Добавлено:
Кстати, новая версия Corona Skin корректно оборудование определяет на Висте?

iTASmania_Inc
Спасибо! Всё получилось.

Да всё нормально. Звуковую карту находит.
Когда ждать твой вариант

Corona Skin & Check System Requirements
Версия почти финальная. Видеокарта определяется через API (звуковые тоже), SystemInfo.vbs больше не требуется. Чтобы исключить код проверки системы, нужно убрать в Corona_kernel.iss строку: #define EnableSystemTest. На Висте всё должно определяться (на Win2k тоже). Если это не так, отпишите...
P.S. Chanka, ты его вариант не дождешься, он за моими новыми версиями не успевает...

Chanka

Цитата:

Когда ждать твой вариант

http://www.rapidshare.ru/382226
Попробуй, правда, это ещё на скорую руку переписано...


Добавлено:
Victor_Dobrov

Цитата:

P.S. Chanka, ты его вариант не дождешься, он за моими новыми версиями не успевает...

Ну это совсем издевательство....

Victor_Dobrov

Цитата:

P.S. Chanka, ты его вариант не дождешься, он за моими новыми версиями не успевает...

Успеет. Дело ж близится к финалу

iTASmania_Inc

Цитата:

Попробуй, правда, это ещё на скорую руку переписано...

Всё работоспособно.
P.S. Пора браться за новый релиз

Всем S.T.A.L.K.E.R.'s предлагаю внести в скрипт инсталлятора более корректный код построения файла fsgame.ltx (внимание - на примере построение файла от версии 1.0004):

[more=Посмотреть код..]
Код: procedure CurStepChanged(CurStep: TSetupStep);
var
S: String;
FSGAME_ARRAY: TArrayOfString;
begin
If CurStep=ssPostInstall then
begin
S := ExpandConstant('{commondocs}\STALKER-SHOC\');
StringChangeEx(S, ':\', ':\|', True);
FSGAME_ARRAY := ['$app_data_root$=true|false|' + S,
'$game_data$         = false|    true|    $fs_root$|        gamedata\',
'$game_ai$         = true|        false|    $game_data$|        ai\',
'$game_spawn$     = true|        false|    $game_data$|        spawns\',
'$game_anims$         = true|        true|    $game_data$|        anims\',
'$game_levels$     = true|        false|    $game_data$|        levels\',
'$game_meshes$     = true|        true|    $game_data$|        meshes\',
'$game_dm$         = true|        true|    $game_data$|        meshes\',
'$game_shaders$     = true|        true|    $game_data$|        shaders\',
'$game_sounds$     = true|        true|    $game_data$|        sounds\',
'$game_textures$     = true|        true|    $game_data$|        textures\',
'$game_scripts$     = true|        false|    $game_data$|        scripts\',
'$game_config$     = true|        false|    $game_data$|        config\',
'$level$         = false|    false|    $game_levels$',
'$game_saves$     = true|        false|    $app_data_root$|    savedgames\',
'$logs$         = true|        false|    $app_data_root$|    logs\',
'$screenshots$     = true|        false|    $app_data_root$|    screenshots\',
'$mod_dir$ = false | false | $fs_root$ | mods\'];
SaveStringsToFile(ExpandConstant('{app}')+'\fsgame.ltx',FSGAME_ARRAY, False);
end;
end;

Замечания для новичков по сборке Corona Skin: читайте в шапке ссылочку Справка, а также комментарии в скрипте (их правда немного).
Сборка скрипта работает из Любой папки (но препроцессор жизненно необходим).

Chanka
В очередной раз переделал.
Забирать отсюда: http://www.rapidshare.ru/382245

iTASmania_Inc
Спасибо.
Все проблему вроде решил с ключем но человек такое сучество ему все мало и мало теперь мне захотелось поставить фоновую музыку пока идет установка. Но как это сделать ума не хватает.

iTASmania_Inc
В очередной раз говорю спасибо!

viktor9
Скинь ВЕСЬ свой скрипт, а я уж подредактирую.
Ты пока ещё на такой стадии, когда легче самому всё сделать, нежели объяснять.
Кнопки управления музыкой делать? Или просто чтоб на фоне играла?

iTASmania_Inc

Цитата:

Ты пока ещё на такой стадии, когда легче самому всё сделать, нежели объяснять.

Я даже не буду возражать, я уже его Inno Setup использую 3 дня и немогу им нарадоваться что его возможности для меня кажется не ограничены.
Можеш сделать 2 варианта если это не сложно

[more]
; Script generated by the Мастер Inno Setup .
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#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=yes
WindowResizable=no
UninstallDisplayIcon=c:\Program Files\Counter Strike - Source\unins000.exe
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Counter-Strike 1.6

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

[CustomMessages]
BeveledOnClick=http://192.168.77.48/
;Ссылка, на которую переходит пользователь при нажатии на BeveledLabel
WelcomeLabel1=Вас приветствует Мастер установки Counter-Strike 1.6

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

[Files]
Source: ..\..\Games\hl.exe; DestDir: {app}; Flags: ignoreversion
Source: D:\Games\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: C:\My_Image.bmp; DestDir: {tmp}; Flags: dontcopy
Source: D:\Program Files\mIRC\download\Эта_программа_установит_Counter.rtf; DestDir: {tmp}; Flags: dontcopy
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[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}\viktor.ico
Name: {group}\{cm:UninstallProgram,Counter-Strike 1.6}; Filename: {uninstallexe}; IconFileName: {app}\xp_trashcan_empty.ico
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}\favicon22.ico
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}\favicon22.ico
Name: {group}\Античит Норма; Filename: {app}\Norma_AntiCheat\myAC.exe; IconFileName: {app}\Norma_AntiCheat\myAC.exe
Name: {commondesktop}\Посетить сайт Вик; Filename: http://192.168.77.48/; IconFileName: {app}\viktor.ico

[Registry]
Root: HKCU; Subkey: Software\Valve\Half-Life\Settings; ValueType: string; ValueName: ValveKey; ValueData: 5RP2E-EPH3K-BR3LG-KMGTE-FN8PY; Flags: uninsdeletekey

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

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

{Created by Chuvakstepan Inc. 2007
Version of gis_code.iss - 1.045}

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

procedure InitializeWizard();
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
RTFString: 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;
ExtractTemporaryFile('Эта_программа_установит_Counter.rtf')
LoadStringFromFile(ExpandConstant('{tmp}\Эта_программа_установит_Counter.rtf'), RTFString)
WizardForm.InfoBeforeMemo.RTFText := RTFString
WizardForm.InfoAfterMemo.RTFText := RTFString
InitializeSkin
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
DelTree(ExpandConstant('{app}'), True, True, True)
RemoveDir(ExpandConstant('{app}'))
end
end;
[/more]