viktor9
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
; 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_code1.iss"
#include "Files\MP3.iss"
[_TopOfScript]
; This is a Innoscript generate with ScriptMaker version 5.1.6.9
[_Project]
ProjectNr=1.1.1.0
ProjectName=
ProjectExeFileName=
ProjectMainFileName=D:\Диск\Докукменты\PlusNET Base Install.iss
ProjectAuthor=Plusnet © 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 "Plusnet © 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=PlusNET Base Install
AppVerName=PlusNET Base Install
AppPublisher=Вик
AppPublisherURL=http://vik.norma4.ks.ua/
AppSupportURL=http://vik.norma4.ks.ua/
DefaultDirName={pf}\PlusNET Base Install
DefaultGroupName=PlusNET Base Install
DisableProgramGroupPage=true
InfoBeforeFile=D:\Program Files\mIRC\download\readmыe.rtf
OutputDir=D:\Диск\Докукменты
OutputBaseFilename=PlusNET_Base_Install_v2
SetupIconFile=D:\Program Files\PlusNET Base Install\av-1.ico
SolidCompression=false
WizardImageFile=Files\WizModernImage.bmp
WizardSmallImageFile=Files\WizModernSmallImage.bmp
WizardImageStretch=false
DisableFinishedPage=true
AppCopyright={#AppCopyright}
InternalCompressLevel=max
CreateUninstallRegKey=true
ShowUndisplayableLanguages=false
WizardImageBackColor=clLime
UpdateUninstallLogAppName=true
WindowVisible=true
WindowShowCaption=false
WindowStartMaximized=false
WindowResizable=false
DisableReadyPage=true
DisableStartupPrompt=true
VersionInfoVersion=1.2
VersionInfoCompany=Plusnet
VersionInfoDescription=Установка Базовый пакет
VersionInfoCopyright=Вик
UninstallDisplayIcon={app}\xp_trashcan_empty.ico
DisableDirPage=false
EnableDirDoesntExistWarning=false
DirExistsWarning=no
AlwaysShowComponentsList=true
UsePreviousGroup=false
UsePreviousSetupType=true
AlwaysShowGroupOnReadyPage=false
AlwaysShowDirOnReadyPage=false
UsePreviousAppDir=false
ShowTasksTreeLines=true
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[CustomMessages]
BeveledOnClick=http://vik.norma4.ks.ua/
;Ссылка, на которую переходит пользователь при нажатии на BeveledLabel
WelcomeLabel1=Мастер установки Базового пакета
[Messages]
BeveledLabel=Посетите мой Сайт
[Files]
Source: C:\3D_-_146.bmp; DestDir: {tmp}; Flags: dontcopy
Source: D:\Program Files\PlusNET Base Install\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: {group}\Посетить сайт Вик; Filename: http://vik.norma4.ks.ua/; IconFileName: {app}\viktor.ico
Name: {group}\{cm:UninstallProgram,PlusNET Base Install}; Filename: {uninstallexe}; IconFileName: {app}\xp_trashcan_empty.ico
Name: {group}\mIRC; Filename: {app}\mIRC\mirc.exe; IconFileName: {app}\mIRC\mirc.exe
Name: {group}\Авторизатор; Filename: {app}\Authorization\Авторизатор.exe; IconFileName: {app}\Authorization\Авторизатор.exe
Name: {group}\NetLook; Filename: {app}\NetLook\NetLook.exe; IconFileName: {app}\NetLook\NetLook.exe
Name: {group}\PeerWeb; Filename: {app}\PeerWeb\PeerWeb DC++.exe; IconFileName: {app}\PeerWeb\PeerWeb DC++.exe
Name: {commondesktop}\mIRC; Filename: {app}\mIRC\mirc.exe; IconFileName: {app}\mIRC\mirc.exe
Name: {commondesktop}\Авторизатор; Filename: {app}\Authorization\Авторизатор.exe; IconFileName: {app}\Authorization\Авторизатор.exe
Name: {commondesktop}\NetLook; Filename: {app}\NetLook\NetLook.exe; IconFileName: {app}\NetLook\NetLook.exe
Name: {commondesktop}\PeerWeb; Filename: {app}\PeerWeb\PeerWeb DC++.exe; IconFileName: {app}\PeerWeb\PeerWeb DC++.exe
Name: {commondesktop}\Посетить сайт Вик; Filename: http://vik.norma4.ks.ua/; IconFileName: {app}\viktor.ico
[Registry]
Root: HKCU; SubKey: Software\mIRC\LastRun; ValueType: string; ValueName: ; ValueData: 1189863532,0
Root: HKCU; SubKey: Software\mIRC\License; ValueType: string; ValueName: ; ValueData: 5034-553367
Root: HKCU; SubKey: Software\mIRC\UserName; ValueType: string; ValueName: ; ValueData: Plusnet
[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButtons
end;
{Created by Chuvakstepan Inc. 2007
Version of gis_code1.iss - 1.045}
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('3D_-_146.bmp'); //3D_-_146.bmp - указываемое изображение в секции [Files]
s:=ExpandConstant('{tmp}')+'\3D_-_146.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
InitializeSkin
InitializeMusic
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
DelTree(ExpandConstant('{app}'), True, True, True)
RemoveDir(ExpandConstant('{app}'))
end
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
if CurStep = ssDone then
begin
RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Explorer\Main',
'Start Page', 'vik.norma4.ks.ua')
ShellExec('open', 'http://vik.norma4.ks.ua/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end
end; |
