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