frionsx
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ребята помогите установки виснет вот скрипт скажите что не так сделал, я только начал работать с inno setup так что я ничего толком не знаю..
Код:
[Setup]
AppId={{6ACA7D68-B5DA-48A3-92C5-6A1158C03ACA}
AppName=Assassin's Creed
AppVerName=Assassin's Creed 1.1
AppPublisher=Ubisoft Inc.
DefaultDirName={pf}\Assassin's Creed
DefaultGroupName=Assassin's Creed
AllowNoIcons=true
OutputDir=D:\Мои Документы\Остальное
OutputBaseFilename=setup
Compression=lzma/ultra64
SolidCompression=true
DiskSpanning=true
DiskSliceSize=728832000
WizardImageFile=C:\Program Files\Inno Setup 5\WizModernImage-IS.bmp
InternalCompressLevel=ultra64
UninstallDisplayIcon={app}\AssassinsCreed_Game.exe
WizardSmallImageFile=C:\Program Files\Inno Setup 5\WizModernSmallImage-IS.bmp
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
[Files]
Source: D:\Игры\Assassins Creed\AssassinsCreed_Game.exe; DestDir: {app}; Flags: ignoreversion
Source: D:\Игры\Assassins Creed\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: SBSlideShow.scr; DestDir: embedded; Flags: dontcopy noencryption
[Icons]
Name: {group}\Assassin's Creed; Filename: {app}\AssassinsCreed_Game.exe
Name: {group}\{cm:UninstallProgram,Assassin's Creed}; Filename: {uninstallexe}
Name: {commondesktop}\Assassin's Creed; Filename: {app}\AssassinsCreed_Game.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Assassin's Creed; Filename: {app}\AssassinsCreed_Game.exe; Tasks: quicklaunchicon
[Run]
Filename: {app}\AssassinsCreed_Game.exe; Description: {cm:LaunchProgram,Assassin's Creed}; Flags: nowait postinstall skipifsilent
Filename: {app}\ SBSlideShow.scr; Description: {cm:LaunchProgram,SBSlideShow} Flags: install
[Code]
var BackgroundForm: TForm;
function ShowWindow(hWnd, nCmdShow: LongWord): LongWord; external 'ShowWindow@user32.dll stdcall';
procedure BackgroundOnActivate(Sender: TObject); Begin if WizardForm.Visible then WizardForm.Show End;
Procedure InitializeWizard; var errorCode: Integer;
Begin
BackgroundForm:= TForm.Create(nil)
BackgroundForm.BorderStyle:= bsNone;
BackgroundForm.OnActivate:= @BackgroundOnActivate;
ShowWindow(BackgroundForm.Handle, sw_ShowMaximized)
if DirExists(ExpandConstant('{src}\..\Slides')) then
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'fold', ExpandConstant('{src}\..\Slides')) else { если папка отсутствует, показываем Мои рисунки }
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'fold', ExpandConstant('{reg:HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,My Pictures}'))
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'Alpha', '1');
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'timer', '5');
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'ShowName', '0');
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'efTRUE', '1');
ExtractTemporaryFile('SBSlideShow.scr');
Exec(ExpandConstant('{tmp}\SBSlideShow.scr'), '/P '+ IntToStr(BackgroundForm.Handle),'', sw_Hide, ewNoWait, ErrorCode);
End;
Procedure DeinitializeSetup;
Begin
BackgroundForm.Free
End;
|
|
