Скрипты Inno Setup. Помощь и советы [часть 6]

diman_21Ru · Отправлено: **12:56, 27-12-2013** | #**1781**

на 5.5.1 наботает все окей спасибо

Ivan_009 · Конфигурация компьютера

Как создать страницу выбора программной группы не получается никак вот скрипт...

PHP код:


[Setup]
AppName={#GameName}
AppVerName={#GameName} {#Version}
AppPublisher={#Publisher}
DefaultDirName={pf}{#GameName}
DefaultGroupName={#GameName}
OutputDir=Setup

[Languages]
Name: Rus; MessagesFile: compiler:LanguagesRussian.isl

[Files]
Source: InstallFiles*; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;

[code]

#include "Modules\botva2.iss"


var
Work1,Work2,Work3,Work4,Work5,Work6,WizardImage: Longint;
//StatusPanel: TPanel;
CaptionLabel,StLabel: TLabel;
//---Skin
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall delayload setuponly';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall delayload setuponly';
procedure LoadSkinU(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
procedure UnloadSkinU(); external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
//---Skin
//---Splash
//procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
//---Splash

function InitializeSetup(): Boolean;
begin
//---Botva2
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
//---Botva2
//---Skin
ExtractTemporaryFile('Skin.skin');
LoadSkin(ExpandConstant('{tmp}\Skin.skin'), '');
//---Skin
Result:= true
end;

procedure InitializeWizard;
begin
with WizardForm do begin
Width:=ScaleX(796);   
Height:=ScaleY(622); 
Position:=poScreenCenter; 
CancelButton.SetBounds(ScaleX(691), ScaleY(570), ScaleX(95), ScaleY(20));
NextButton.SetBounds(ScaleX(590), ScaleY(570), ScaleX(95), ScaleY(20));
BackButton.SetBounds(ScaleX(489), ScaleY(570), ScaleX(95), ScaleY(20));
InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
Color:=$000000;

with WizardForm.DirEdit do
begin
Left := ScaleX(4);
Top := ScaleY(568);
Width := ScaleX(483);
Height := ScaleY(20);
Parent:=WizardForm;
end;

with WizardForm.GroupEdit do
begin
Left := ScaleX(4);
Top := ScaleY(568);
Width := ScaleX(483);
Height := ScaleY(20);
Parent:=WizardForm;
end;

//---Splash
//ExtractTemporaryFile('Splash.png');
//ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
//---Splash
//---Botva2
Work1:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\1.png'),0,0,790,593,True,True);
Work2:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\2.png'),0,0,790,593,True,True);
Work3:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\3.png'),0,0,790,593,True,True);
Work4:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\4.png'),0,0,790,593,True,True);
Work5:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\5.png'),0,0,790,593,True,True);
Work6:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\6.png'),0,0,790,593,True,True);
WizardImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\WizardImage.jpg'),1,15,788,481,True,True);

ImgSetVisibility(Work1, False);
ImgSetVisibility(Work2, False);
ImgSetVisibility(Work3, False);
ImgSetVisibility(Work4, False);
ImgSetVisibility(Work5, False);
ImgSetVisibility(Work6, False);
//---Botva2
end;
ImgApplyChanges(WizardForm.Handle);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
ImgSetVisibility(Work1, False);
ImgSetVisibility(Work2, False);
ImgSetVisibility(Work3, False);
ImgSetVisibility(Work4, False);
ImgSetVisibility(Work5, False);
ImgSetVisibility(Work6, False);
WizardForm.DirEdit.Hide;
WizardForm.GroupEdit.Hide;
case CurPageID of
wpWelcome:
begin
ImgSetVisibility(work1,True);
end;
wpSelectDir:
begin
ImgSetVisibility(work2,True);
WizardForm.DirEdit.Show;
end;
wpSelectProgramGroup:
begin
ImgSetVisibility(work3,True);
WizardForm.GroupEdit.Show;
end;
wpInstalling:
begin
ImgSetVisibility(work4,True);
end;
wpFinished:
begin
ImgSetVisibility(work5,True);
end;
end;
ImgApplyChanges(WizardForm.Handle);
end;

//---Skin
function InitializeUninstall(): Boolean;
begin
FileCopy(ExpandConstant('{app}\isskin.dll'),
ExpandConstant('{tmp}\isskin.dll'), False);
FileCopy(ExpandConstant('{app}\Skin.skin'),
ExpandConstant('{tmp}\Skin.skin'), False); LoadSkinU(ExpandConstant('{tmp}\Skin.skin'), '');
Result:=True;
end;
//---Skin

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
Cancel:=True;
end;

procedure DeinitializeSetup();
begin
//---Skin
UnloadSkin();
//---Skin
//---Botva2
gdipShutdown;
//---Botva2
end;

//---Skin
procedure DeinitializeUninstall();
begin
UnloadSkinU();
end;
//---Skin

vint56 · Отправлено: **22:36, 28-12-2013** | #**1783**

Ivan_009

diman_21Ru · Отправлено: **11:55, 29-12-2013** | #**1784**

Всем привет как можно убрать эту страницу , зарание спасибо

vint56 · Отправлено: **13:36, 29-12-2013** | #**1785**

diman_21Ru
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = SystemPage.ID) then
Result:= True;
end;

diman_21Ru · Отправлено: **15:19, 29-12-2013** | #**1786**

спасибо большое

diman_21Ru · Отправлено: **12:55, 31-12-2013** | #**1787**

Всем Привет кто знает самый простой способ добавление Музыки в скрипт,зарание спасибо

Karbid87 · Конфигурация компьютера

Помогите пожалуйста. нужен самый простой скрипт, в котором страница выбора компонентов, страница распаковки и страница завершения. Архивы будут запакованы FreeArc.
Идея такая: запускаем инсталл, выбираем один из двух компонентов (у компонентов будет один архив общий, а второй разный), самостоятельная распаковка во временную папку, страница завершения, автоматический запуск .exe из временной папки(можно на странице завершения сделать не убираемую галочку "Запуск установки").
И еще чтобы инсталл не создавал никаких папок в меню Пуск, ярлыков, и не было у него деинсталлятора и значка в Панели управления-Программы и компоненты.
Если кто напишет такое, буду очень благодарен.

diman_21Ru · Отправлено: **14:02, 02-01-2014** | #**1789**

Всем Привет как в начале уменьшить размер текста а то полное название не влезает , спасибо зарание

Nordek · Конфигурация компьютера

diman_21Ru, Найди WelcomeLabel1 и там регулируй » Left, Top, Width, Height

Например

Код:

[Code]
procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel1.Left := ScaleX(104);
  WizardForm.WelcomeLabel1.Top := ScaleY(40);
  WizardForm.WelcomeLabel1.Width := ScaleX(389);
end;