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

[diman_21Ru]

Парни что за ошибка procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); неизвестный тип

[habib2302]

Доброе время суток.Возможно ли указать 2 компонент в командную строку для тихой установки?

[Optitron]

Цитата Ivan_009:



Почему при нехватке места на диске при нажатии кнопки далее инсталл тупо предлагает выйти

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

читать дальше »

Код:

Код: Выделить всё

with WizardForm.NextButton do 
begin 
Parent:=WizardForm; 
Left := ScaleX(460); 
Top := ScaleY(372); 
Width := ScaleX(110); 
Height := ScaleY(30); 
end;
with WizardForm.CancelButton do 
begin 
Parent:=WizardForm; 
Left := ScaleX(460); 
Top := ScaleY(372); 
Width := ScaleX(110); 
Height := ScaleY(30); 
end;

У тебя CancelButton накладывается на NextButton. Соответственно при неактивной кнопке NextButton вместо неё нажимается CancelButton.

[habib2302]

Помогите растянуть панель при задвижении и выкате на всю форму вот код





Код:

Код: Выделить всё

var
SettingPanel : TPanel;
Flag : boolean;
Timer : LongWord;
DirBevel,GroupBevel,DriveBevel: TBevel;
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
procedure MyTimer;
begin
case Flag of
True :
begin
if SettingPanel.Top = 0 then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top < 0 then SettingPanel.Top := SettingPanel.Top + ScaleY(3);
end;
False :
begin
if SettingPanel.Top = ScaleY(-315) then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top > ScaleY(-315) then SettingPanel.Top := SettingPanel.Top - ScaleY(3);
end;
end;
end;
procedure HideShow(Sender: TObject);
begin
KillTimer(WizardForm.Handle, Timer);
Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('MyTimer'));
case Flag of
True : TButton(Sender).Caption:='Íàñòðîéêè';
False : TButton(Sender).Caption:='Íàçàä';
end;
Flag:= not Flag;
end;
procedure InitializeWizard();
begin
Flag:= False;
WizardForm.Width:=ScaleX(700);
WizardForm.Height:=ScaleY(400);
WizardForm.Position:=poScreenCenter;
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.Color:=$000000;
SettingPanel := TPanel.Create(WizardForm);
with SettingPanel do
begin
Parent := WizardForm;
SetBounds(ScaleX(0),ScaleY(-315),ScaleX(497),ScaleY(313));
ParentBackground := False;
SettingPanel.Color:=$000000;
end;
with WizardForm.DirBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(37);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.DirEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(42);
Width := ScaleX(330);
Height := ScaleY(25);
end;
with WizardForm.GroupBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(115);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.GroupEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(120);
Width := ScaleX(330);
Height := ScaleY(25);
end;
DirBevel := TBevel.Create(WizardForm);
with DirBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(25);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
GroupBevel := TBevel.Create(WizardForm);
with GroupBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(100);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
DriveBevel := TBevel.Create(WizardForm);
with DriveBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(177);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
(*with WizardForm.ProgressGauge do
begin
Left := ScaleX(75);
Top := ScaleY(160);
Width := ScaleX(430);
Height := ScaleY(25);
Parent:= WizardForm;
end;*)
with TButton.Create(WizardForm) do
begin
OnClick:= @HideShow;
SetBounds(ScaleX(40),ScaleY(327),ScaleX(75),ScaleY (25))
Caption:='Íàñòðîéêè';
Parent:= WizardForm;
end;
end;

[Nordek]

Цитата Ivan_009:



Помогите растянуть панель при задвижении и выкате на всю форму вот код

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

читать дальше »

Код:

Код: Выделить всё

[Code]
var
SettingPanel : TPanel;
Flag : boolean;
Timer : LongWord;
DirBevel,GroupBevel,DriveBevel: TBevel;
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
procedure MyTimer;
begin
case Flag of
True :
begin
if SettingPanel.Top = 0 then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top < 0 then SettingPanel.Top := SettingPanel.Top + ScaleY(3);
end;
False :
begin
if SettingPanel.Top = ScaleY(-315) then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top > ScaleY(-315) then SettingPanel.Top := SettingPanel.Top - ScaleY(3);
end;
end;
end;
procedure HideShow(Sender: TObject);
begin
KillTimer(WizardForm.Handle, Timer);
Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('MyTimer'));
case Flag of
True : TButton(Sender).Caption:='Iano?ieee';
False : TButton(Sender).Caption:='Iacaa';
end;
Flag:= not Flag;
end;
procedure InitializeWizard();
begin
Flag:= False;
WizardForm.Width:=ScaleX(700);
WizardForm.Height:=ScaleY(400);
WizardForm.Position:=poScreenCenter;
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.Color:=$000000;
WizardForm.Bevel.Width := ScaleX(695);
//WizardForm.Bevel.Visible := False;  // äëÿ òîãî ÷òîá ñêðûòü Bevel, ðàñêîìåíòèðóé  "WizardForm.Bevel.Visible := False;" è çàêîìåíòèðóé "WizardForm.Bevel.Width := ScaleX(695);"
SettingPanel := TPanel.Create(WizardForm);
with SettingPanel do
begin
Parent := WizardForm;
SetBounds(ScaleX(7),ScaleY(-315),ScaleX(680),ScaleY(313));
ParentBackground := False;
SettingPanel.Color:=$000000;
end;
with WizardForm.DirBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(37);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.DirEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(42);
Width := ScaleX(330);
Height := ScaleY(25);
end;
with WizardForm.GroupBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(115);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.GroupEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(120);
Width := ScaleX(330);
Height := ScaleY(25);
end;
DirBevel := TBevel.Create(WizardForm);
with DirBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(25);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
GroupBevel := TBevel.Create(WizardForm);
with GroupBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(100);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
DriveBevel := TBevel.Create(WizardForm);
with DriveBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(177);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
(*with WizardForm.ProgressGauge do
begin
Left := ScaleX(75);
Top := ScaleY(160);
Width := ScaleX(430);
Height := ScaleY(25);
Parent:= WizardForm;
end;*)
with TButton.Create(WizardForm) do
begin
OnClick:= @HideShow;
SetBounds(ScaleX(40),ScaleY(327),ScaleX(75),ScaleY (25))
Caption:='Iano?ieee';
Parent:= WizardForm;
end;
end;

[vint56]

Ivan_009

читать дальше »

#define GameName "Dead Space 3"

#define Version "Dead Space 3"

#define MyAppExeName "MyProg.exe"



[Setup]

AppName={#GameName}

AppVerName={#GameName} {#Version}



DefaultDirName={pf}{#GameName}

DefaultGroupName={#GameName}

OutputDir=Setup



[Languages]

Name: rus; MessagesFile: compiler:Languages\Russian.isl







[Files]

Source: InstallFiles\*; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;





[Icons]

Name: "{group}\{#GameName}"; Filename: "{app}\{#MyAppExeName}"

Name: "{group}\{cm:UninstallProgram,{#GameName}}"; Filename: "{uninstallexe}"

Name: "{commondesktop}\{#GameName}"; Filename: "{app}\{#MyAppExeName}";

Код: Выделить всё

#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;



//---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,Tru  e);

ImgApplyChanges(WizardForm.Handle);



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;



  with WizardForm.ProgressGauge do

  begin

    Left := ScaleX(10);

    Top := ScaleY(220);

    Width := ScaleX(390);

    Parent:= WizardForm;

  end;

end;

end;



procedure ShowComponents(CurPageID: Integer);

begin

WizardForm.DirEdit.Hide;

WizardForm.GroupEdit.Hide;

WizardForm.ProgressGauge.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);

WizardForm.ProgressGauge.show;

end;

wpFinished:

begin

ImgSetVisibility(work5,True);

end;

end;

end;



procedure CurPageChanged(CurPageID: Integer);

begin

ImgSetVisibility(Work1, False);

ImgSetVisibility(Work2, False);

ImgSetVisibility(Work3, False);

ImgSetVisibility(Work4, False);

ImgSetVisibility(Work5, False);

ImgSetVisibility(Work6, False);

ShowComponents(CurPageID);

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

[diman_21Ru]

Цитата Ivan_009:



Как скрыть TButton на wpInstalling

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

читать дальше »

Код:

Код: Выделить всё

var
SettingPanel : TPanel;
Flag : boolean;
Timer : LongWord;
BmpFile: TBitmapImage;
DirBevel,GroupBevel,DriveBevel: TBevel;
CustomBtn: TButton;
//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
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
procedure MyTimer;
begin
case Flag of
True :
begin
if SettingPanel.Top = 0 then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top < 0 then SettingPanel.Top := SettingPanel.Top + ScaleY(3);
end;
False :
begin
if SettingPanel.Top = ScaleY(-315) then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top > ScaleY(-315) then SettingPanel.Top := SettingPanel.Top - ScaleY(3);
end;
end;
end;
procedure HideShow(Sender: TObject);
begin
KillTimer(WizardForm.Handle, Timer);
Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('MyTimer'));
case Flag of
True : TButton(Sender).Caption:='I'a`n~o`?i^e'e^e`';
False : TButton(Sender).Caption:='I'a`c,a`a"';
end;
Flag:= not Flag;
end;
procedure InitializeWizard();
begin
Flag:= False;
WizardForm.Width:=ScaleX(700);
WizardForm.Height:=ScaleY(400);
WizardForm.Position:=poScreenCenter;
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.Bevel.Width := ScaleX(695);
//WizardForm.Color:=$000000;
ExtractTemporaryFile('WizardImage.bmp')
//ExtractTemporaryFile('Finished.bmp')
//ExtractTemporaryFile('CBImg.bmp');
BmpFile:= TBitmapImage.Create(WizardForm)
BmpFile.Stretch:= True;
BmpFile.SetBounds(ScaleX(0),ScaleY(0), ScaleX(700), ScaleY(313))
BmpFile.Parent:= WizardForm;
with WizardForm.NextButton do
begin
Parent:=WizardForm;
Left := ScaleX(460);
Top := ScaleY(330);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.CancelButton do
begin
Parent:=WizardForm;
Left := ScaleX(9);
Top := ScaleY(330);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.BackButton do
begin
Parent:=WizardForm;
Left := ScaleX(343);
Top := ScaleY(330);
Width := ScaleX(110);
Height := ScaleY(30);
end;
SettingPanel := TPanel.Create(WizardForm);
with SettingPanel do
begin
Parent := WizardForm;
SetBounds(ScaleX(0),ScaleY(-315),ScaleX(694),ScaleY(313));
ParentBackground := False;
//SettingPanel.Color:=$000000;
end;
with WizardForm.DirBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(37);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.DirEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(42);
Width := ScaleX(330);
Height := ScaleY(25);
end;
with WizardForm.GroupBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(115);
Width := ScaleX(110);
Height := ScaleY(30);
end;
with WizardForm.GroupEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(120);
Width := ScaleX(330);
Height := ScaleY(25);
end;
DirBevel := TBevel.Create(WizardForm);
with DirBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(25);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
GroupBevel := TBevel.Create(WizardForm);
with GroupBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(100);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
DriveBevel := TBevel.Create(WizardForm);
with DriveBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(177);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;
with WizardForm.ProgressGauge do
begin
Left := ScaleX(75);
Top := ScaleY(160);
Width := ScaleX(430);
Height := ScaleY(25);
Parent:= WizardForm;
end;
CustomBtn := TButton.Create(WizardForm);
with CustomBtn do
begin
OnClick:= @HideShow;
Left := ScaleX(10);
Top := ScaleY(330);
Width := ScaleX(110);
Height := ScaleY(30);
Caption:='I'a`n~o`?i^e'e^e`';
Parent:= WizardForm;
end;
end;
//O'a'e`?a`a*i` a^n~a* n~o`?a`i'e`o"u^ e^?i^i`a* WelcomePage
function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if (PageID =wpLicense)or(PageID =wpInfoBefore)or(PageID =wpUserInfo)or(PageID =wpSelectDir)or(PageID =wpSelectComponents)or(PageID =wpSelectProgramGroup)or(PageID =wpSelectTasks)or(PageID =wpReady)then
  Result:= True;
end;
procedure ShowComponents(CurPageID: Integer);
begin
WizardForm.ProgressGauge.Hide;
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardImage.bmp'))
Case CurPageID of
wpWelcome:
begin
WizardForm.NextButton.Caption := 'I'a`?a`o`u" o'n~o`a`i'i^a^e^o'';
end;
wpInstalling:
begin
CustomBtn.Hide;
SettingPanel.Hide;
WizardForm.ProgressGauge.Show;
end;
wpFinished:
begin
end;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
ShowComponents(CurPageID);
end;
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Skin.cjstyles');
LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
Result:= true
end;
function InitializeUninstall(): Boolean;
begin
FileCopy(ExpandConstant('{app}\isskin.dll'),
ExpandConstant('{tmp}\isskin.dll'), False);
FileCopy(ExpandConstant('{app}\Skin.cjstyles'),
ExpandConstant('{tmp}\Skin.cjstyles'), False); LoadSkinU(ExpandConstant('{tmp}\Skin.cjstyles'), '');
Result:=True;
end;
procedure DeinitializeSetup();
begin
UnloadSkin();
end;
procedure DeinitializeUninstall();
begin
UnloadSkinU();
end;

[vint56]

diman_21Ru

function ShouldSkipPage(PageID: Integer): Boolean;

begin

if (PageID = SystemPage.ID) then

Result:= True;

end;

[vint56]

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

[diman_21Ru]

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