Windows Phone Installer (WPI)

[Sebazz]

Please i need help. How to add Minimize and Exit Buttons ?. Thanks

[rinaldo]

//---> Directive
#define ExitButtonLeft = "765"
#define ExitButtonTop = "10"
#define MinimizeButtonLeft = "735"

//End

//---> Files
Source: Resources\MinimizePng.png; DestDir: {tmp}; Flags: dontcopy;
Source: Resources\ExitPng.png; DestDir: {tmp}; Flags: dontcopy;
//End

//---> Code
var
  ExitBtn,MinimizeBtn: HWND;
//End

//---> InitializeSetup
ExtractTemporaryFile('MinimizePng.png');
ExtractTemporaryFile('ExitPng.png');
//End

procedure MinimizeBtnClick(hBtn:HWND);
begin
  SendMessage(WizardForm.Handle,$112,61472,0);
end;

procedure CloseBtnClick(hBtn:HWND);
begin
  WizardForm.CancelButton.Click;
end;

//---> InitializeWizard
ExitBtn:=BtnCreate(WizardForm.Handle,{#ExitButtonLeft},{#ExitButtonTop},23,23,ExpandConstant('{tmp}')+'\ExitPng.png',0,False);
BtnSetEvent(ExitBtn,BtnClickEventID,WrapBtnCallback(@CloseBtnClick,1));
BtnSetCursor(ExitBtn,GetSysCursorHandle(32649));

MinimizeBtn:=BtnCreate(WizardForm.Handle,{#MinimizeButtonLeft},{#ExitButtonTop},23,23,ExpandConstant('{tmp}')+'\MinimizePng.png',0,False);
BtnSetEvent(MinimizeBtn,BtnClickEventID,WrapBtnCallback(@MinimizeBtnClick,1));
BtnSetCursor(MinimizeBtn,GetSysCursorHandle(32649));
//End

[ZakirAhmad]

is it possible to use percentage instead of ram usage in mb in srepint('', 256,0) function of isdone.

[PsYcHo_RaGE]

just downloaded

tried to compile

got this bloody error

Line 349:
Column 8:
Unknown Type 'TTimer'

[KaktoR]

Use Inno Unicode Enhanced Edition

[pakrat2k2]

Originally Posted by KaktoR

Use Inno Unicode Enhanced Edition

which you find in first post of topic
http://www.fileforums.com/showthread.php?t=96619

[mahbodsx]

Sorry guys which Script Use Pzlib

[rinaldo]

Originally Posted by mahbodsx

Sorry guys which Script Use Pzlib

this

[PsYcHo_RaGE]

Originally Posted by Razor12911

Windows Phone Installer v3.1

-Inno Setup Enhanced Edition 2 Unicode is required - Download
-Design based on Windows 8.1, Windows Phone 7.5, 7.8 and 8
-Enjoy

Link of WPI based on FMX:
http://fileforums.com/showthread.php?t=99856

Thank you very much for this installer i appreciate your hard work
but i need some help with music how to add it, and when we install something with this installer it always goes to lockscreen again; i want lockscreen but only for one time when we run the installer, and also how t add the fonts to installer so that they work if i don't have these fonts installed on my pc


and if you're going to help me please explain it well because i am still a noob
and i don't want to mess with your installer

[bunti_o4u]

I tried to create new page between welcome page and select directory page but no new page is getting created in the installer.

procedure CurPageChanged(CurPageID: Integer);

wpLicense:
begin
ButtonSetText(NextBtn,'Proceed');
ButtonSetText(BackBtn1,'Back');
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID <> wpWelcome) and (PageID <> wpLicense) and (PageID <> wpSelectDir) and (PageID <> wpInstalling) and (PageID <> wpFinished) then
Result:=True
else
Result:=False;
if (ISDoneError = True) and (PageID = wpFinished) then
Result:=True;
end;

[ffmla]

Originally Posted by bunti_o4u

I tried to create new page between welcome page and select directory page but no new page is getting created in the installer.

procedure CurPageChanged(CurPageID: Integer);

wpLicense:
begin
ButtonSetText(NextBtn,'Proceed');
ButtonSetText(BackBtn1,'Back');
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpLicense)or(PageID =wpInfoBefore)or(PageID =wpUserInfo)or(PageID =wpSelectComponents)or(PageID =wpSelectProgramGroup)or(PageID =wpSelectTasks)or(PageID =wpReady)then
Result:= True;
end;

You may test this.
In function ShouldSkipPage(PageID: Integer): Boolean; function you need to mention which page you want to hide.
ie. You use wpLicense page,then remove it from hide function.

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpInfoBefore)or(PageID =wpUserInfo)or(PageID =wpSelectComponents)or(PageID =wpSelectProgramGroup)or(PageID =wpSelectTasks)or(PageID =wpReady)then
Result:= True;
end;

[PsYcHo_RaGE]

Change Logs Ver 3.1

* Added Installation Bar called winTB
* Added Music, Button, Position
* Added Pause & Resume Buttons
* Added ESplash & NSplash (Are you confused what are they?)
* Added Lockscreen switch
* Added Font - Even you don't have it installed
* Added Video Mechanism
* Added more colors at least 63 Colors
* Added Innocallback to control video and music seperately
* Added Exit & Minimize Button instead of Labels
* Added Extraction process ouside by using Archives.ini Instead of using internal
* Added Rollback while cancelling the installion process(actually fixed it)
* Added round edges (thanks to jiva Newstone)
* Added More which i forget!

Upcoming mod will be with more functions

Oh one thing more i changed the name from WPI to RPI; sorry @Razor12911 but if you want i can change it to RWPI also
and about your watermark its still there and will be always

Thanks for this great Thing @Razor12911

[ffmla]

Hello everyone.
Is there any way to fix the button refresh issue in the Windows phone installer...?

For example:

While clicking close.
1.Close form showed.=ok
2.If we click No,=> then Close button keep active in the main form(Button not refreshed).

anyone help...

[PsYcHo_RaGE]

Originally Posted by ffmla

Hello everyone.
Is there any way to fix the button refresh issue in the Windows phone installer...?

For example:

While clicking close.
1.Close form showed.=ok
2.If we click No,=> then Close button keep active in the main form(Button not refreshed).

anyone help...

Send me a screenshot of the error you are getting!!

[ffmla]

Sorry now I am far from PC..
I'll talk about button refresh... issue...

Already posted by some user.

http://fileforums.com/showpost.php?p...&postcount=573

See the above posted image in the URL.

When you click [About],[Close] button, respective forms shows.on that forms if you click close,then on main form repective buttons got Active not refreshed yet.

R u understand?