FileForums

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   G Installer (https://fileforums.com/showthread.php?t=97359)

rinaldo 25-11-2015 09:24
G Installer
 
4 Attachment(s)
Repack Installer by InnoSetup (5.5.6 compatible)
v1 Compression Internal
v2 FreeArc Compression

Project abandoned, there will be no help from the creator Rinaldo

panker1992 25-11-2015 10:15
Nice Work :D does this support external Compression ? freearc+srep etc ?

rinaldo 25-11-2015 10:53
Quote:
Originally Posted by panker1992 (Post 444879)
Nice Work :D does this support external Compression ? freearc+srep etc ?
o yes version v2 :D

bakutrak 25-11-2015 10:57
Sorry bro how to disable about button :D

gozarck 25-11-2015 11:04
1 Attachment(s)
Good work Rinaldo (like Always)
win7x64 works fine
the files extracted info works good. and cancel setup rollback very well.
i want this size of the installer. and add % progress in the bar. i like minimalistic setups like SFX installers. minimal info and easy click&Install all in one window.

(the image is very, very, very, very .....illustrative. i trust in yours designer's instincts)

rinaldo 25-11-2015 11:59
Quote:
gozarck
Code:
// Rinaldo G_Installer v1.1.0.0  Compact
#Define Transparent "255"
//MemoColor=InstallingBackgroundMemoColor: False=White
#Define MemoColor "True"

#define Font "OpenSans-Semibold.ttf"
#define FontName "Open Sans Semibold"
#define Font2 "OpenSans-Regular.ttf"
#define FontName2 "Open Sans"
#Define SetupCaption "Game Test"
#Define Size 134
#Define URL "http://fileforums.com/member.php?u=223794" 
#define AppName "Game Test"
#define Publisher "Rinaldo"
#define AppExe "MyProg.exe"
#Define InternalCompression "C:\Windows\Fonts"


[Setup]
AppName={#AppName}
AppVerName={#AppName}
AppPublisher={#Publisher}
AppVersion=1.0.0.0
AppCopyright=Rinaldo
DefaultDirName={pf}\{#Publisher}\{#AppName}
SetupIconFile=Files\icon.ico
OutputDir=_Output
OutputBaseFilename=Setup_{#AppName}
VersionInfoVersion=1.0.0.0
VersionInfoCompany={#Publisher}
VersionInfoDescription={#AppName}_Setup
VersionInfoTextVersion=1, 0, 0, 0
InternalCompressLevel=ultra64
MinVersion= 0,6.1
#ifdef NeedSize
ExtraDiskSpaceRequired={#NeedSize}
#endif
AllowNoIcons=yes
DirExistsWarning=no
UninstallDisplayIcon={uninstallexe}
UninstallFilesDir={app}\Un
DiskSpanning=true
DiskSliceSize=1530000000
SlicesPerDisk=3
SolidCompression=true
Compression=none


[Files]
Source: MyProg.exe; DestDir: {app}; Flags: ignoreversion; Check:CMP;BeforeInstall: MemoExec;
Source: Files\{#Font}; Flags: dontcopy
Source: Files\{#Font2}; Flags: dontcopy
Source: Files\InnoCallback.dll; Flags: dontcopy
Source: Files\pb.bmp; Flags: dontcopy
Source: Files\bg.bmp; Flags: dontcopy
;Source: C:\Windows\inf\*; DestDir: {app}\Folder; Flags: ignoreversion recursesubdirs createallsubdirs;BeforeInstall: MemoExec;
Source: Files\*.bmp; DestDir: "{tmp}"; Flags: dontcopy

#ifdef  InternalCompression
Source: {#InternalCompression}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Excludes: unins*,_CommonRedist,CommonRedist,Redist;Check:CMP;BeforeInstall: MemoExec;
#endif

[Icons]
Name: {commondesktop}\Uninstall {#AppName}; Filename:{app}\Un\unins000.exe; WorkingDir:{app}\Un; Check: DeskIcon;
Name: {commondesktop}\{cm:LaunchProgram,{#AppName}}; Filename:{app}\{#AppExe}; Check: DeskIcon;

#include "registry.txt"


[Messages]
ButtonNext=Install
ButtonBrowse=Browse
[CustomMessages]
mb                              = Mb
gb                              = Gb
tb                              = Tb
size                            =RS:
frees                          =FS:
setupname                      ={#SetupCaption}
deskiconname                    =Create Desktop Icon
redisticon                      =Install Redist
showdetails                    =Show Details...
hidedetails                    =Hide
aboutformcaption                =About
aboutbutton                    =About
memofinish                      =Finish!
installationredist              =Installation Redist Components...
welcomelbl                      =Welcome to the {#AppName} Setup Wizard
welcomelbl2                    =This will install {#AppName} on your computer.
gamedir                        =Game Dir
copyby                          =Copyright © by Rina
OPLbl                          =Install Options
dirlabel                        =Install game to:
finishedlabel                  =Finished

[UninstallDelete]
Type: filesandordirs; Name: {app}

[Code ]
//=-=-=-=-=-=-=-=-=-=-=-
var
ShowBtn,DetailsBtn: TNewButton;
FilesMemo: TNewMemo;
Flag: boolean;
RedistChk,DeskChk,CheckBtn: TNewCheckBox;
AboutForm: TForm;
p0,p1,p2,p3,p4: TPanel;
BVL,BVL2:TBevel;
FreeMB, TotalMB: Cardinal;
NeedSize: Integer;
OPLbl,FinishedLbl,DirLbl,CopyLbl,GameDirLbl,EditLbl,WLabel,WLabel_2,LabelMT,LabelMT_2,NSLbl, FreeSLbl,NoDiskSLbl: TLabel;
Program1: TCheckBox;
//=-=-=-=-=-=-=-=-=-=-=-
const
#ifdef transparent
WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_ALPHA = 2; GWL_EXSTYLE = (-20);
#endif
FR_PRIVATE = $10;
//=-=-=-=-=-=-=-=-=-=-=-
function AddFontResource(lpszFilename: String; fl, pdv: DWORD): Integer; external '[email protected] stdcall';
function RemoveFontResource(lpFileName: String; fl, pdv: DWORD): BOOL; external '[email protected] stdcall';
//=-=-=-=-=-=-=-=-=-=-=-
function SetLayeredWindowAttributes(hwnd: HWnd; crKey: TColor; bAlpha: Byte; dwFlags: DWord): Boolean; external '[email protected] stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external '[email protected] stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external '[email protected] stdcall';
#ifdef transparent
Procedure WizardFormOnActivate(Sender: TObject); Begin SetLayeredWindowAttributes(WizardForm.Handle, 0, {#Transparent} , LWA_ALPHA) End;
#endif
//=-=-=-=-=-=-=-=-=-=-=-
#include "Files\pb.txt"
//=-=-=-=-=-=-=-=-=-=-=-

procedure MemoExec();
var
AFile: String;
begin
AFile:= ExpandConstant(CurrentFilename);
if ExtractFileExt(AFile)='' then
FilesMemo.Lines.Add(RemoveBackslash(AFile)) else
FilesMemo.Lines.Add(AFile);
end;

procedure HideShow(Sender: TObject);
begin
If not Flag then begin
FilesMemo.Hide;
DetailsBtn.Caption:=CustomMessage('showdetails');
Flag:= True;
end else begin
FilesMemo.Show;
DetailsBtn.Caption:=CustomMessage('hidedetails');
Flag:= False;
end;
end;
//=-=-=-=-=-=-=-=-=-=-=-
#ifdef transparent
Procedure MainFormOnActivate(Sender: TObject); Begin
SetLayeredWindowAttributes(WizardForm.Handle, 0, 127, LWA_ALPHA)
End;
#endif
//=-=-=-=-=-=-=-=-=-=-=-
Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', ',');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = ',')) and (Pos(',', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

function MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+CustomMessage('mb') else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+CustomMessage('gb')  else
Result:= NumToStr(Float/(1024*1024))+CustomMessage('tb');
end;

procedure GetFreeSpace(Sender: TObject);
var Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);

GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB > 1024 then
FreeSLbl.Caption :=CustomMessage('frees')+'    '+MbOrTb(FreeMB)
else
FreeSLbl.Caption :=CustomMessage('frees')+'    '+MbOrTb(FreeMB);

LabelMT.Caption:=Path;

if FreeMB < NeedSize then begin
WizardForm.NextButton.Enabled := False;
FreeSLbl.Font.Color:=$0000008B
WizardForm.DirEdit.Font.Color:=$0000008B;
NoDiskSLbl.Caption:=SetupMessage(msgDiskSpaceWarningTitle);
Program1.Enabled:=false;
LabelMT.Font.Color:=$0000008B;

end else begin
LabelMT.Font.Color:=$00007F61;
WizardForm.DirEdit.Font.Color:=$005F5F5F;
WizardForm.NextButton.Enabled := True;
FreeSLbl.Font.Color:=$00007F61;
NoDiskSLbl.Caption:='';
Program1.Enabled:=True;
end;
end;

procedure Program1OnClick(Sender: TObject);
begin
if Program1.Checked then
NeedSize := NeedSize + {#Size}
else
NeedSize := NeedSize - {#Size};
NSLbl.Caption :=CustomMessage('size')+'    '+ MbOrTb(NeedSize);

if FreeMB < NeedSize then
WizardForm.NextButton.Enabled := False
else
WizardForm.NextButton.Enabled := True;

if NeedSize >0 then
WizardForm.NextButton.Enabled := True
else
WizardForm.NextButton.Enabled := False;
end;
//=-=-=-=-=-=-=-=-=-=-=-
function CMP: Boolean;
begin
  Result:= Program1.Checked;
end;
function DeskIcon: Boolean;
begin
  Result:= DeskChk.Checked;
end;
function Redists: Boolean;
begin
  Result:= RedistChk.Checked;
end;
//=-=-=-=-=-=-=-=-=-=-=-
procedure ActivateClick(Sender: TObject);
begin
p0.Show;
OPLbl.Show;
p1.Show;
p2.Show;
p3.Show;
p4.Show;
BVL.Show;
BVL2.Show;
ShowBtn.Hide;
AboutForm.Close;
Wizardform.NextButton.Enabled := true;
WLabel.Hide;
WLabel_2.Hide;
GameDirLbl.Hide;
EditLbl.Hide;
CopyLbl.Hide;

end;

procedure LinkClick(Sender: TObject);
var lc:integer;
begin
ShellExec('open', '{#URL}', '', '', SW_SHOWNORMAL, ewNoWait, lc);
end;

procedure CFClick(Sender: TObject);
begin
AboutForm := TForm.Create(nil);
try
with AboutForm do
begin
//ClientWidth := ScaleX(600);
//ClientHeight := ScaleY(335);
ClientWidth := ScaleX(440);
ClientHeight := ScaleY(190);
Position := poScreenCenter;
BorderStyle:=bsDialog;
Caption :=CustomMessage('aboutformcaption');
Color:=$00FFFFFF;
End;

with TButton.Create(nil) do
begin
//SetBounds(ScaleX(543), ScaleY(304), ScaleX(57), ScaleX(30));
SetBounds(ScaleX(384), ScaleY(160), ScaleX(57), ScaleX(30));
Parent := AboutForm;
Caption :=SetupMessage(msgButtonOK);
Cursor := crHand;
ModalResult := mrCancel;
OnClick:=@ActivateClick;
end;

with TBevel.Create(nil) do
begin
SetBounds(ScaleX(5), ScaleY(5), AboutForm.ClientWidth-10,AboutForm.ClientHeight-10);
Parent := AboutForm;
Style := bsLowered;
Shape := bsFrame;
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(5), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='Simply Installer (Gog Similar Designe) Created: by Rina';
Font.Size:=12;
Font.Name:='{#FontName}';
Font.Color:=$00E27500;
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(35), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='Copyright ©: Rinaldo';
Font.Size:=10;
Font.Name:='{#FontName}';
Font.Color:=$00656565;
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(55), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='Script Compilet with: Inno Setup 5.5.6';
Font.Size:=10;
Font.Name:='{#FontName}';
Font.Color:=$00656565;
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(75), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='Compression: Internal';
Font.Size:=10;
Font.Name:='{#FontName}';
Font.Color:=$00656565;
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(95), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='Version: v1.0.0.0';
Font.Size:=10;
Font.Name:='{#FontName}';
Font.Color:=$00656565;   
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(115), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='It was adapted code with: TLama and Serega';
Font.Size:=10;
Font.Name:='{#FontName}';
Font.Color:=$00656565;   
end;

with Tlabel.Create(nil) do
begin
SetBounds(ScaleX(10), ScaleY(155), AboutForm.ClientWidth,AboutForm.ClientHeight);
Parent := AboutForm;
Caption :='Rina Link: Fileforums';
OnClick:=@LinkClick;
Font.Size:=10;
Font.Name:='{#FontName}';
Font.Color:=$00656560;
Cursor:=1;
end;
AboutForm.ShowModal;
finally
AboutForm.Free;
end;
end;

//=-=-=-=-=-=-=-=-=-=-=-
procedure HideComponents();
begin
OPLbl.Hide;
p0.Hide;
p1.Hide;
p2.Hide;
p3.Hide;
p4.Hide;
BVL.Hide;
BVL2.Hide;
WizardForm.CancelButton.SetBounds(0,0,0,0);
DetailsBtn.Hide;
FilesMemo.Hide;
WLabel.Hide;
WLabel_2.Hide;
GameDirLbl.Hide;
EditLbl.Hide;
CopyLbl.Hide;
DirLbl.Hide;
FinishedLbl.Hide;

end;
//=-=-=-=-=-=-=-=-=-=-=-
{procedure ShowComponents(Sender: TObject);begin end;}
//=-=-=-=-=-=-=-=-=-=-=-
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
end;
//=-=-=-=-=-=-=-=-=-=-=-
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('pb.bmp');
ExtractTemporaryFile('bg.bmp');
Result:=True;
end;
//=-=-=-=-=-=-=-=-=-=-=-
procedure CenterInParent(Control: TControl);
begin
  if Assigned(Control) and Assigned(Control.Parent) then
  begin
    Control.Left := (Control.Parent.Width - Control.Width) div 2;
    //Control.Top := (Control.Parent.Height - Control.Height) div 2;
  end;
end;
//=-=-=-=-=-=-=-=-=-=-=-
procedure WZ();
begin with WizardForm do begin



FilesMemo := TNewMemo.Create(WizardForm);
FilesMemo.ParentColor:={#MemoColor};
//FilesMemo.SetBounds(5, 5, WizardForm.Width,350);
FilesMemo.SetBounds(3, 3, WizardForm.Width-13,160);
FilesMemo.Parent := WizardForm;
FilesMemo.WordWrap:= True;
FilesMemo.BorderStyle := bsNone;
FilesMemo.ReadOnly:= True;
FilesMemo.Visible := false;
FilesMemo.Font.Name:='{#FontName}';
FilesMemo.Font.Size:=6;
FilesMemo.Font.Color:=$005F5F5F;
FilesMemo.Clear;

DetailsBtn := TNewButton.Create(WizardForm);
DetailsBtn.Parent := WizardForm;
//DetailsBtn.SetBounds(490,366,100,30);
DetailsBtn.SetBounds(482,168,100,25);
DetailsBtn.Caption := CustomMessage('showdetails');
DetailsBtn.OnClick := @HideShow
DetailsBtn.Font.Name:='{#FontName2}';
DetailsBtn.Font.Size:=8;
Flag:= True;

p0 := TPanel.Create(WizardForm);
p0.Parent := WizardForm;
p0.SetBounds(0,0,WizardForm.ClientWidth,wizardform.ClientHeight-350);
p0.BevelOuter := bvNone;

p1 := TPanel.Create(WizardForm);
p1.Parent := WizardForm;
//p1.SetBounds(9,85,642,40);
p1.SetBounds(4,4,642,40);
p1.Color := 15461355;
p1.ParentBackground := False;

p2 := TPanel.Create(WizardForm);
p2.Parent := WizardForm;
//p2.SetBounds(9,125,642,40);
p2.SetBounds(4,44,642,40);
p2.Color := 15461355;
p2.ParentBackground := False;

p3 := TPanel.Create(WizardForm);
p3.Parent := WizardForm;
//p3.SetBounds(9,174,495,76);
p3.SetBounds(4,88,495,76);
p3.Color := $00D3D3D3;
p3.ParentBackground := False;

p4 := TPanel.Create(WizardForm);
p4.Parent := WizardForm;
//p4.SetBounds(504,174,147,76);
p4.SetBounds(499,88,147,76);
p4.Color := $00D3D3D3;
p4.ParentBackground := False;

//CancelButton.SetBounds(592,365,60,30);
CancelButton.SetBounds(586,168,60,25);
CancelButton.Font.Size:=10;
CancelButton.Font.Name:='{#FontName2}';

//NextButton.SetBounds(592,366,60,30);
NextButton.SetBounds(586,168,60,25);
NextButton.Font.Size:=10;
NextButton.Font.Name:='{#FontName2}';

ShowBtn := TNewButton.Create(WizardForm);
ShowBtn.Parent := WizardForm;
//ShowBtn.SetBounds(5,366,60,30);
ShowBtn.SetBounds(5,168,60,25);
ShowBtn.Caption :=CustomMessage('aboutbutton');
ShowBtn.OnClick := @CFClick
ShowBtn.Font.Name:='{#FontName2}';
ShowBtn.Font.Size:=10;

ProgressGauge.Parent:=WizardForm;
//ProgressGauge.SetBounds(WizardForm.ProgressGauge.Left+5,WizardForm.ProgressGauge.Top+328,WizardForm.ProgressGauge.Width+65,WizardForm.ProgressGauge.Height);
ProgressGauge.SetBounds(WizardForm.ProgressGauge.Left+2,WizardForm.ProgressGauge.Top+127,WizardForm.ProgressGauge.Width+62,WizardForm.ProgressGauge.Height);

DirEdit.Parent:= WizardForm;
DirEdit.Left:=10;

DirBrowseButton.Parent:= WizardForm;
BackButton.SetBounds(0,0,0,0);
//Bevel.SetBounds(0,355,660,1);
Bevel.SetBounds(0,0,0,0);


DirEdit.Parent:=p3;
DirEdit.SetBounds(17,35,400,21);
DirEdit.Font.Color:=$00EBEBEB;
DirEdit.Font.Size:=10;
DirEdit.Font.Name:='{#FontName}';

DirBrowseButton.Parent:=p3;
DirBrowseButton.SetBounds(423,34,60,30);
DirBrowseButton.Caption:='Browse';
DirBrowseButton.Font.Name:='{#FontName2}';
DirBrowseButton.Font.Size:=10;

WizardForm.WizardBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\bg.bmp'));;
WizardForm.WizardBitmapImage.Stretch:=True;
WizardForm.WizardBitmapImage.Parent:=WizardForm;
//WizardForm.WizardBitmapImage.SetBounds(0,0,WizardForm.ClientWidth,355);
WizardForm.WizardBitmapImage.SetBounds(0,0,WizardForm.ClientWidth,200);
WizardForm.WizardBitmapImage.AutoSize := False;

BVL := TBevel.Create(WizardForm);
BVL.Parent := WizardForm;
//BVL.SetBounds(ScaleX(8),ScaleY(84),ScaleX(643),ScaleY(81));
BVL.SetBounds(ScaleX(3),ScaleY(3),ScaleX(643),ScaleY(81));
BVL.Style := bsLowered;
BVL.Shape := bsFrame;

BVL2 := TBevel.Create(WizardForm);
BVL2.Parent := WizardForm;
//BVL2.SetBounds(ScaleX(8),ScaleY(173),ScaleX(643),ScaleY(77));
BVL2.SetBounds(ScaleX(3),ScaleY(87),ScaleX(643),ScaleY(77));
BVL2.Style := bsLowered;
BVL2.Shape := bsFrame;

CheckBtn := TNewCheckBox.Create(WizardForm);
CheckBtn.Parent := WizardForm;
CheckBtn.SetBounds(302,327,73,25);
CheckBtn.Caption := 'Show';
CheckBtn.OnClick := @CFClick
CheckBtn.Font.Name:='{#FontName2}';
CheckBtn.Font.Size:=10;
CheckBtn.Hide;

LabelMT := TLabel.Create(WizardForm);
LabelMT.Parent := p4;
LabelMT.SetBounds(120,40,209,14);
LabelMT.Font.Name:='{#FontName}';
LabelMT.Font.Size:=10;
LabelMT.Font.Color:=$00007F61;

NSLbl := TLabel.Create(WizardForm);
NSLbl.Parent := p4;
NSLbl.SetBounds(10,16,209,14);
NSLbl.Caption :=CustomMessage('size') + MbOrTb(NeedSize);
NSLbl.Font.Name:='{#FontName}';
NSLbl.Font.Size:=10;
NSLbl.Font.Color:=$00808080;

NoDiskSLbl := TLabel.Create(WizardForm);
NoDiskSLbl.Parent := p3;
NoDiskSLbl.SetBounds(320,0,209,14);
NoDiskSLbl.Font.Color:=clred;
NoDiskSLbl.Font.Name:='{#FontName2}';
NoDiskSLbl.Font.Size:=10;

FreeSLbl := TLabel.Create(WizardForm);
FreeSLbl.Parent := p4;
FreeSLbl.SetBounds(10,40,209,14);
FreeSLbl.Font.Name:='{#FontName2}';
FreeSLbl.Font.Size:=10;
FreeSLbl.Font.Color:=$00007F61;

Program1 := TCheckBox.Create(WizardForm);
Program1.Parent := p1;
Program1.Caption :=CustomMessage('setupname');
Program1.SetBounds(15,12,300,14);
Program1.OnClick := @Program1OnClick;
Program1.Checked:=True;
Program1.Font.Name:='{#FontName}';
Program1.Font.Size:=10;
Program1.Color:=$00EBEBEB;

DeskChk := TNewCheckBox.Create(WizardForm);
DeskChk.Parent := p2;
DeskChk.Caption :=CustomMessage('deskiconname');
DeskChk.SetBounds(15,12,300,14);
DeskChk.Checked:=True;
DeskChk.Font.Name:='{#FontName2}';
DeskChk.Font.Size:=10;
DeskChk.Color:=$00EBEBEB;

RedistChk := TNewCheckBox.Create(WizardForm);
RedistChk.Parent := p2;
RedistChk.Caption :=CustomMessage('redisticon');
RedistChk.SetBounds(250,12,300,14);
RedistChk.Checked:=True;
RedistChk.Font.Name:='{#FontName2}';
RedistChk.Font.Size:=10;
RedistChk.Color:=$00EBEBEB;
end;

WLabel := TLabel.Create(WizardForm);     
WLabel.Parent := WizardForm;
WLabel.Font.Name:='{#FontName}';
//WLabel.Font.Size:=15;
//WLabel.Top:=16;
WLabel.Font.Size:=12;
WLabel.Top:=5;
WLabel.Font.Color:=$00414141;
WLabel.Caption:=CustomMessage('welcomelbl');
WLabel.Transparent:=True;
CenterInParent(WLabel);

WLabel_2 := TLabel.Create(WizardForm);
WLabel_2.Parent := WizardForm;
//WLabel_2.Font.Name:='{#FontName2}';
//WLabel_2.Font.Size:=13;
//WLabel_2.Top:=71;
WLabel_2.Font.Name:='{#FontName}';
WLabel_2.Font.Size:=10;
WLabel_2.Top:=40;
WLabel_2.Font.Color:=$00414141;
WLabel_2.Caption:=CustomMessage('welcomelbl2');
WLabel_2.Transparent:=True;
CenterInParent(WLabel_2);

GameDirLbl := TLabel.Create(WizardForm);
GameDirLbl.Parent := WizardForm;
GameDirLbl.Font.Name:='{#FontName}';
//GameDirLbl.Font.Size:=10;
//GameDirLbl.Top:=120;
GameDirLbl.Font.Size:=9;
GameDirLbl.Top:=80;
GameDirLbl.Caption:=CustomMessage('gamedir');
GameDirLbl.Transparent:=True;
CenterInParent(GameDirLbl);

EditLbl := TLabel.Create(WizardForm);
EditLbl.Parent := WizardForm;
EditLbl.Font.Name:='{#FontName}';
//EditLbl.Font.Size:=10;
//EditLbl.Top:=140;
EditLbl.Font.Size:=8;
EditLbl.Top:=100;
EditLbl.Font.Color:=$00414141;
EditLbl.Caption:=WizardForm.DirEdit.Text;
EditLbl.Transparent:=True;
CenterInParent(EditLbl);

CopyLbl := TLabel.Create(WizardForm);
CopyLbl.Parent := WizardForm;
CopyLbl.Font.Name:='{#FontName}';
//CopyLbl.Font.Size:=10;
//CopyLbl.Top:=220;
CopyLbl.Font.Size:=10;
CopyLbl.Top:=150;
CopyLbl.Font.Color:=$000000FF;
CopyLbl.Caption:=CustomMessage('copyby')
CopyLbl.Transparent:=True;
CenterInParent(CopyLbl);

DirLbl := TLabel.Create(WizardForm);
DirLbl.Parent := p3;
DirLbl.Font.Name:='{#FontName2}';
DirLbl.Font.Size:=10;
DirLbl.Font.Color:=$00414141;
DirLbl.Caption:=CustomMessage('dirlabel');
DirLbl.Transparent:=True;
DirLbl.SetBounds(5,5,300,17);

FinishedLbl := TLabel.Create(WizardForm);
FinishedLbl.Parent := WizardForm;
FinishedLbl.Font.Name:='{#FontName}';
FinishedLbl.Font.Size:=20;
//FinishedLbl.Top:=71;
FinishedLbl.Top:=5;
FinishedLbl.Font.Color:=$00414141;
FinishedLbl.Caption:=CustomMessage('finishedlabel');
FinishedLbl.Transparent:=True;
CenterInParent(FinishedLbl);

OPLbl := TLabel.Create(WizardForm);
OPLbl.Parent := p0;
OPLbl.Font.Color:=$00414141;
OPLbl.Font.Name:='{#FontName2}';
OPLbl.Font.Size:=20;
//OPLbl.Top:=20;
OPLbl.Top:=999;
OPLbl.Caption:=CustomMessage('OPLbl');
OPLbl.Transparent:=True;
CenterInParent(OPLbl);
end;





//=-=-=-=-=-=-=-=-=-=-=-
procedure InitializeWizard;
begin
if not FontExists('{#FontName}') then
begin
ExtractTemporaryFile('{#Font}');
AddFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
ExtractTemporaryFile('{#Font2}');
AddFontResource(ExpandConstant('{tmp}\{#Font2}'), FR_PRIVATE, 0);
end;
WizardForm.Font.Name := '{#FontName}';

with WizardForm do begin
NeedSize := 0;
Caption:='{#SetupCaption}';
Color:=$00D3D3D3; 
Position:=poScreenCenter;
InnerNotebook.Hide;
OuterNotebook.Hide;
//ClientWidth:=660;
//ClientHeight:=405;
ClientWidth:=649;
ClientHeight:=197;
BorderStyle := bsDialog;
WZ();

DirEdit.OnChange := @GetFreeSpace;
DirEdit.Text := WizardForm.DirEdit.Text + #0;

TPB(WizardForm.ProgressGauge);
#ifdef transparent
SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
WizardForm.OnActivate:= @WizardFormOnActivate
MainForm.OnActivate:= @MainFormOnActivate
#endif
end;
end;
//=-=-=-=-=-=-=-=-=-=-=-
procedure DeinitializeSetup;
begin
RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
RemoveFontResource(ExpandConstant('{tmp}\{#Font2}'), FR_PRIVATE, 0);
WizardForm.Free;
end;
//=-=-=-=-=-=-=-=-=-=-=-
procedure CurPageChanged(CurPageID: Integer);
begin
HideTPB();
HideComponents;
Wizardform.NextButton.Enabled := False;

case CurPageID of
wpWelcome:
begin
WLabel.Show;
WLabel_2.Show;
GameDirLbl.Show;
EditLbl.Show;
CopyLbl.Show;
DirLbl.Show;

end;
wpSelectDir:begin

GetFreeSpace(nil);
end;
wpInstalling:
begin
DetailsBtn.Show;
//Wizardform.CancelButton.SetBounds(592,365,60,30);
Wizardform.CancelButton.SetBounds(586,168,60,25);
end;
wpfinished:
begin
FinishedLbl.Show;
FilesMemo.Clear;
FilesMemo.Lines.Add(CustomMessage('memofinish'));
Wizardform.NextButton.Enabled := True;
DetailsBtn.Hide;
HideTPB();
WizardForm.ProgressGauge.Hide;
end;
end;
end;
//=-=-=-=-=-=-=-=-=-=-=-
procedure CurStepChanged(CurStep: TSetupStep);
var
Rina: Integer;
begin
if CurStep=ssInstall then ProgressTimer:= SetTimer(0,0, 200, WrapTimerProc(@UpdatePB, 4));
if CurStep=ssPostInstall then begin
if (RedistChk.Checked = True) then begin
FilesMemo.Clear;
FilesMemo.Font.Color:=clblue;
FilesMemo.Lines.Add(CustomMessage('installationredist'));

Exec(ExpandConstant('{src}\_CommonRedist\DirectX\DXSETUP.exe'), '/Silent', '', SW_SHOW,
ewWaitUntilTerminated, Rina);
Exec(ExpandConstant('{src}\_CommonRedist\vcredist_x64.exe'), '/q', '', SW_SHOW,
ewWaitUntilTerminated, Rina);
Exec(ExpandConstant('{src}\_CommonRedist\vcredist_x86.exe'), '/q', '', SW_SHOW,
ewWaitUntilTerminated, Rina);
KillTimer(0, ProgressTimer);
end;
end;
end;
//=-=-=-=-=-=-=-=-=-=-=-
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID=6)or (PageID=7)or (PageID=8)or (PageID=10)
then Result:=true;
end; 
//=-=-=-=-=-=-=-=-=-=-=-

GogGames 25-11-2015 12:12
just me register and see this post: D great design, expecting version 2 with support FreeArc

Sarvagya 25-11-2015 18:39
Hmm, you listened me?

demon964 27-11-2015 09:42
How enable Install button without open "About" ?

Sony091090 05-10-2016 16:26
why i get runtime error "could not call proc" am i do something wrong?

lolaya 06-10-2016 07:32
nice work rin

OkaX 31-12-2017 05:44
1 Attachment(s)
Thank you Rina for your nice work... Just 2 questions, could someone help me change the code for

1 - Insert a PNG logo centered vertically on 1st windows
2 - Activate logo on title bar

Thank you all for your help :)

OkaX 31-12-2017 07:19
1 Attachment(s)
I edit the code to display the logo on the first page.

But I do not find in the code how to hide on the options page.

KaktoR 31-12-2017 07:24
Code:
procedure CurPageChanged(CurPageID: Integer);
begin
wpSelectDir:begin
YourImage.Hide;
Replace YourImage with image resource

OkaX 31-12-2017 07:38
1 Attachment(s)
Already done but not work. In wpfinished: and wpInstalling: this works but not in wpSelectDir:

I don't know why :/

But only half of the logo is displayed.

Quote:
wpWelcome:
begin
WLabel.Show;
WLabel_2.Show;
WLabel_3.Show;
GameDirLbl.Show;
EditLbl.Show;
CopyLbl.Show;
DirLbl.Show;
WizardForm.WizardBitmapImage2.Show;
end;

wpSelectDir:
begin
WizardForm.WizardBitmapImage2.Hide;
GetFreeSpace(nil);
end;

wpInstalling:
begin
DetailsBtn.Show;
Wizardform.CancelButton.SetBounds(592,365,60,30);
WizardForm.WizardBitmapImage2.Hide;
end;

wpfinished:
begin
FinishedLbl.Show;
FilesMemo.Clear;
FilesMemo.Lines.Add(CustomMessage('memofinish'));
Wizardform.NextButton.Enabled := True;
DetailsBtn.Hide;
HideTPB();
WizardForm.ProgressGauge.Hide;
WizardForm.WizardBitmapImage2.Show;
end;
end;
end;

OkaX 22-03-2018 06:46
Up :(

rinaldo 22-03-2018 09:57
1 Attachment(s)
Quote:
Originally Posted by OkaX (Post 465409)
Already done but not work. In wpfinished: and wpInstalling: this works but not in wpSelectDir:

I don't know why :/

But only half of the logo is displayed.
I did not understand the juice of the problem, but about the logo.bmp, I use the system in the .rar posted now, the problem of not displaying the logo, is linked to the panel, the panel covers the image if it will not be managed in the your example from ex:
Code:
Panel.Top: = number;

OkaX 26-03-2018 04:23
thank you Rinaldo for your intervention. I put my script to you to try you will see the problem of the logo on the second panel... I don't find the mistake...

https://mega.nz/#!qo4yWTwQ!hLlSwMQw1...UnasRd39ZUt0kM

rinaldo 26-03-2018 06:30
1 Attachment(s)
done

OkaX 26-03-2018 07:06
It's a solution, thank you ;)...

So, it's not possible to hide the logo on the second page?

rinaldo 26-03-2018 09:14
Quote:
Originally Posted by OkaX (Post 469612)
It's a solution, thank you ;)...

So, it's not possible to hide the logo on the second page?
is possible

OkaX 26-03-2018 22:45
Could you look where the mistake is in my package please?

I can't find my mistake...

Thank you Rinaldo...

ev1lmonk3y 22-04-2021 01:04
GOG Remix By ReMiX
 
3 Attachment(s)
GOG Remix By ReMiX (original Script By Rinaldo)

I've updated some of the requests in this thread, Tweaked it to look a little more like GOG installer and added a few of my own.

Enjoy!

Dmitriy5100 26-05-2021 00:50
[QUOTE=Dmitriy5100;492402]
Quote:
Originally Posted by Dmitriy5100 (Post 492401)

Wikinoob 26-04-2024 07:42
Hi please help, when i try and compile the script in 6.2.2 i get an error on line

NextButton.OnMouseEnter := @PlaySoundOnEnter;

am i doing something wrong?

Cesar82 26-04-2024 08:38
Quote:
Originally Posted by Wikinoob (Post 504305)
Hi please help, when i try and compile the script in 6.2.2 i get an error on line

NextButton.OnMouseEnter := @PlaySoundOnEnter;

am i doing something wrong?
You will probably need to use the ENHANCED version of Inno Setup to compile this script.

Wikinoob 26-04-2024 09:07
Quote:
Originally Posted by Cesar82 (Post 504306)
You will probably need to use the ENHANCED version of Inno Setup to compile this script.
Thanks bud, where would I get that from?

Wikinoob 26-04-2024 09:26
Quote:
Originally Posted by Cesar82 (Post 504306)
You will probably need to use the ENHANCED version of Inno Setup to compile this script.
Found it, after some Google digging :):):):):):)

Wikinoob 26-04-2024 10:29
Think i'm going to give up, i am using FreeArc and created both .bin and a .arc files and once i run the installer it asks me to locate the file, when i do it does nothing???

Wikinoob 26-04-2024 10:31
Help please
 
1 Attachment(s)
Heres my ISS file

Wikinoob 26-04-2024 10:47
Quote:
Originally Posted by audiofeel (Post 504313)
in this script, change the extension of the .rmx file to whichever is convenient for you.
Your a diamond, i bloody missed that lol

Wikinoob 26-04-2024 10:58
Quote:
Originally Posted by audiofeel (Post 504313)
in this script, change the extension of the .rmx file to whichever is convenient for you.
Still not working bud, could you have a look at my script please

Wikinoob 26-04-2024 11:01
working lol

CrownRepack 02-05-2024 03:17
Quote:
Originally Posted by Wikinoob (Post 504317)
working lol
What's the enhanced version of INNOSETUP are you using, i cant find it


All times are GMT -7. The time now is 01:17.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com