View Single Post
  #893  
Old 21-01-2014, 07:35
Logrim Logrim is offline
Registered User
 
Join Date: Jun 2009
Location: Spain
Posts: 153
Thanks: 116
Thanked 72 Times in 44 Posts
Logrim is on a distinguished road
y_thelastknight, i dont know if this method is valid to you, but in mine work .

my installer have only welcome screen.. All i do its create a config button like this:

Quote:
procedure ConfigBtnClick(h: HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
img2:=ImgLoad(WizardForm.Handle,ExpandConstant('{t mp}\Directorio.png'),0,0,600,375,True,True);
ImgApplyChanges(WizardForm.Handle);
WizardForm.DirEdit.Show;
WizardForm.DirBrowseButton.Show;
CoderLabel.Show;
TaskLabel.Show;
DirLabel.Show;
WizardForm.DirEdit.Show;
DiskSpaceLablel.Show;
WizardForm.NextButton.Show;
WizardForm.NextButton.Caption := 'Instalar';
WizardForm.DirBrowseButton.Show;
DiskSpaceLablel.Show;
ShortcutCB.Show;
CreateDLabel.Show;
DirectXCB.Visible:=ExpandConstant('{code:Redist1Na me}') <> '';
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';
VisualCCB.Visible:=ExpandConstant('{code:Redist2Na me}') <> '';
VisualCLabel.Visible:=ExpandConstant('{code:Redist 2Name}') <> '';
NvidiaPhysxCB.Visible:=ExpandConstant('{code:Redis t3Name}') <> '';
NvidiaPhysxLabel.Visible:=ExpandConstant('{code:Re dist3Name}') <> '';
LiveCB.Visible:=ExpandConstant('{code:Redist4Name} ') <> '';
LiveLabel.Visible:=ExpandConstant('{code:Redist4Na me}') <> '';
CreateDLabel.Visible:=ExpandConstant('{code:GameEx e}') <> '';
ShortcutCB.Visible:=ExpandConstant('{code:GameExe} ') <> '';
ShortcutCB.Checked:= True;
GameNameLabel.Caption:='Directorio de instalación';
end;
Quote:
hConfigBtn:=BtnCreate(WizardForm.Handle,400,259,10 0,40,ExpandConstant('{tmp}\Button.png'),18,False);
BtnSetEvent(hConfigBtn,BtnClickEventID,WrapBtnCall back(@ConfigBtnClick,1));
BtnSetCursor(hConfigBtn,GetSysCursorHandle(32649)) ;
BtnSetText(hConfigBtn,'CONFIGURAR');
BtnSetFont(hConfigBtn,Font.Handle);
BtnSetFontColor(hConfigBtn,clGray,clSilver,clGray, clSilver);
And i have the quick install button wich is the next button, and custom config button

Without botva its the same, create config button and leave next how quick install..

i hope if its not valid to you, be valid for other..

Last edited by Logrim; 21-01-2014 at 07:39.
Reply With Quote
The Following User Says Thank You to Logrim For This Useful Post:
y_thelastknight (21-01-2014)