FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

FMXInno - Updates


If you want to protect your data especially things like graphics, it's now easy to do so with features built into the FMXInno. What happens here is that the FMXInno accesses those file in memory, which means that no file is created in the hard disk.


Let's see how to do it.

1. First, make changes to your script as per the given example and compile it. (don't run the Setup.exe)
2. After that run the FXPcker.exe and add the files you want to hide. Also browse the Setup.exe compiled in the first step and generate a data file. (let's say Setup.dat)
3. We're almost done. Now just run the Setup.exe. That's all.

* Be sure to create a new data file (Setup.dat) whenever you make changes to the script and recompile it. Because that file (Setup.dat) is unique. Otherwise, accessing the data file (Setup.dat) will be treated as unauthorized access.

The attached example includes more details.

function InitializeSetup(): Boolean;
begin
  // FXStream
  FXOk := FXUnPckrInit(ExpandConstant('{src}\Setup.dat'), '@#123_Test');

  if not FXOk then
  begin
    MsgBox('Failed to initialize the setup. The installation process cannot continue.', mbError, MB_OK);
    Result := False;
  end
  else
  begin
    FMXInnoInit;
    Result := True;
  end;
end;

// ...

procedure FMXDesigning;
begin
  { FMX Form }
  FMXForm.FCreateImageFormFromFXStream(WizardForm.Handle, 'PicForm.png', 1.00); 
  FMXForm.SetCursor(ExtractAndLoad('Dark2.ani'));

  { Music Equ }
  MusicEqu.FCreate(FMXForm.Handle, NSX(620), NSY(100), NSX(110), NSY(42), 1.5, 8, '');
  MusicEqu.SetPictureFromFXStream('EqualizerLight.png');
  MusicEqu.OnClick(@MusicEquOnClick);

  { PicBtn[1] }
  PicBtn[1].FCreateFromFXStream(FMXForm.Handle, 'Button.png', NSX(600), NSY(455), NSX(125), NSY(45));
  PicBtn[1].Text('&Cancel');
  PicBtn[1].OnClick(@CommonOnClick);

  // ...

  { PicPart }
  PicPart.FCreateFromFXStream(FMXForm.Handle, 'mspaint.png', MusicEqu.GetLeft, MusicEqu.GetTop + NSY(100), 100, 100, 50, 50, 100, 100);

  // ...

  { PicPB[1] }
  PicPB[1].FCreateFromFXStream(FMXForm.Handle, 'pb.png', 'pbbkg.png', PctLabel.GetLeft + NSX(20), PctLabel.GetTop + NSY(50), 380, 25, True);
  PicPB[1].Value(69, 100);

  // ...
end;

.

[BLACKFIRE69]

FMXInno v1.0.0.2 - Updates

-- Added Auto DarkMode.
-- Added auto-scroll form background image depending on mouse position.
   1. function FCreateScrollableImgForm(WParent: HWND; AddImage: String): HWND;
   2. function FCreateScrollableImgFormFromFXStream(WParent: HWND; AddImage: String): HWND;

-- Added blend on moving effect.
-- Prevented the resizing of the fmx form.
-- Removed old color functions (which were buggy) and added new functions instead.

{ VCL COLORS }
function VCLColorToFMXColor(const VColor: TColor): TAlphaColor;
function VCLColorToFMXColor2(const VColor: TColor; const Opacity: Single): TAlphaColor;
{ FMX COLORS }
function FMXColorToVCLColor(const FColor: TAlphaColor): TColor;
function FMXColorSetOpacity(const FColor: TAlphaColor; const Opacity: Single): TAlphaColor;
{ IMAGE COLORS }
function GetImgColorFMX(const Image: UnicodeString): TAlphaColor;
function GetImgPartColorFMX(const Image: UnicodeString; const PixelX, PixelY, PixelW, PixelH: Single): TAlphaColor;
function GetImgColorVCL(const Image: UnicodeString): TColor;
function GetImgPartColorVCL(const Image: UnicodeString; const PixelX, PixelY, PixelW, PixelH: Single): TColor;
{ HTML COLORS }
function HTMLColorStrToVCLColor(const HTMLHexClrStr: string): TColor;
function HTMLColorToVCLColor(const Color: Longint): TColor;
function HTMLColorToVCLColor2(const R, G, B: Byte): TColor;
function HTMLColorStrToFMXColor(const HTMLHexClrStr: string): TAlphaColor;
function HTMLColorToFMXColor(const Color: Longint): TAlphaColor;
function HTMLColorToFMXColor2(const R, G, B: Byte): TAlphaColor;
{ DARKER / LIGHTER }
function ClrDarkerVCL(const VColor: TColor; const Percent: Byte): TColor;
function ClrLighterVCL(const VColor: TColor; const Percent: Byte): TColor;
function ClrDarkerFMX(const FColor: TAlphaColor; const Percent: Byte): TAlphaColor;
function ClrLighterFMX(const FColor: TAlphaColor; const Percent: Byte): TAlphaColor;
{ DESKTOP IMAGE COLOR }
function GetDesktopImgColorVCL: TColor;
function GetDesktopImgColorFMX: TAlphaColor;