FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Testing:

guys, if any of you happen to have some free time and are using virtual machines other than VMware 17.x, could you please test this on them?

Originally Posted by BLACKFIRE69

sorry for the delayed response; i've been quite busy these past few days and, to be honest, i haven't had a good night's sleep in two days.


it seems that the wGetLogicalDriveList function doesn't function as expected in InnoSetup v5.x. however, the FLogicalDrives class works reliably across all scenarios and has undergone thorough testing.

type
  FLogicalDrives = interface(IUnknown)
    '{73D9B3A3-6571-474E-B043-7DC8D3248538}'
    procedure FCreate;
    function Count: Integer;
    function CDriveIndex: Integer;
    function Letter(const Index: Integer): WideString;
    function LetterToIndex(const Letter: WideString): Integer;
    function IsRemovable(const Index: Integer): Boolean;
    function MediaType(const Index: Integer): Integer;
    function MediaTypeEx(const Index: Integer; out HealthStatus, Usage: Integer): Integer;
    function SpaceFreeMB(const Index: Integer): Integer;
    function SpaceAvailableMB(const Index: Integer): Integer;
    function SpaceTotalMB(const Index: Integer): Integer;
  end;

{ Drive Media Type }
const
  HDD_MEDIA_TYPE_UNKNOWN        = $0000;
  HDD_MEDIA_TYPE_USB            = $0001;
  HDD_MEDIA_TYPE_SD             = $0002;
  HDD_MEDIA_TYPE_HDD            = $0003;
  HDD_MEDIA_TYPE_SSD            = $0004;
  HDD_MEDIA_TYPE_SCM            = $0005;
  HDD_MEDIA_TYPE_NVMe           = $0006;

{ Drive Health }
const
  HDD_HEALTH_STATUS_HEALTHY     = $0000;
  HDD_HEALTH_STATUS_WARNING     = $0001;
  HDD_HEALTH_STATUS_UNHEALTHY   = $0002;
  HDD_HEALTH_STATUS_UNKNOWN     = $0005;

{ Drive Usage }
const
  HDD_USAGE_UNKWOWN             = $0000;
  HDD_USAGE_AUTO_SELECT         = $0001; // used for data storage.
  HDD_USAGE_MANUAL_SELECT       = $0002; // used if manually selected by an administrator at the time of virtual disk creation.
  HDD_USAGE_RETIRED             = $0004; // retired from use
  HDD_USAGE_CACHE               = $0005; // used as a cache for other devices.

  { LogicalDrives }
  LogicalDrives.FCreate;

  if LogicalDrives.Count > 0 then
  begin
    { ListBox }
    ListBox.FCreate(FMXForm.Handle);
    ListBox.SetBounds(NSX(32), NSY(53), NSX(297), NSY(249));
    ListBox.OnChange(@ListBoxOnChange);

    if ImgList.Count >= 2 then
      ListBox.ImageList(ImgList.Handle);

    { ListBox-Items }
    SetArrayLength(ListBoxItems, LogicalDrives.Count);

    ListBox.BeginUpdate;   // BeginUpdate
    for i := 0 to LogicalDrives.Count - 1 do
    begin
      ListBoxItems[i] := InitListBoxItemHandle;
      ListBoxItems[i].FCreate(ListBox.Handle);
      ListBoxItems[i].Text(LogicalDrives.Letter(i));

      if (ImgList.Count >= 2) then
      begin
        if (i = LogicalDrives.CDriveIndex) then  // C-Drive
          ListBoxItems[i].ImageIndex(0)
        else
          ListBoxItems[i].ImageIndex(1);
      end;

      ListBox.AddItem(ListBoxItems[i].Handle);
    end;
    ListBox.EndUpdate;     // EndUpdate
  end else
    MsgBox('"LogicalDrives" failded!', mbError, MB_OK);

.

[ADMIRAL]

Originally Posted by audiofeel

Thanks for the hotfix. It seems that everything you need is working properly.

HI, Is it inno script project or compiler?

[ADMIRAL]

Originally Posted by audiofeel

this will be a scenario for Inno Setup

I tried to make it once when the sample was just made, but I couldn't. Even now, if I want to make it, I won't succeed. If possible, please complete it and share the code so that I can increase my ability to make this type of script.
Thankful

[hitman797]

Originally Posted by ADMIRAL

I tried to make it once when the sample was just made, but I couldn't. Even now, if I want to make it, I won't succeed. If possible, please complete it and share the code so that I can increase my ability to make this type of script.
Thankful

BLACKFIRE69, made this script possible by adding many of the components to this library.
and audiofeel, created this scenario using this library.
So, thanks to them

[ADMIRAL]

Originally Posted by audiofeel

Thanks for the hotfix. It seems that everything you need is working properly.

Hi dear friend
The installation path selection section in windows 10 pro new Updates. it has a problem and does not work
I tried to change the codes but it doesn't work

[ADMIRAL]

Originally Posted by audiofeel

the "overview" (Обзор) button

thanks for answer but it's was about metro0 script that you posted

[BLACKFIRE69]

Originally Posted by ADMIRAL

thanks for answer but it's was about metro0 script that you posted

@ADMIRAL,

after making a few changes to the code, you can make it work. however, if i'm correct, there're some aspects in the script that need further implementation. it would be better to ask the authors to complete the script.

Edit1: 

* Replace the current 'ListBoxOnChange' code with this.

procedure ListBoxOnChange(Sender: TObject);
var
  ADir: String;
begin
  if (FMXListBox[2].GetItemIndex > -1) then
  begin
    ADir := FMXEdit[1].GetText;
    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

procedure ListBx3OnChange(Sender: TObject);
var
  ADir: WideString;
begin
  if FMXListBox[3].GetItemIndex > -1 then
  begin
    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

Edit2: 

* Comment out the following line in the code.

//FMXEdit[1].OnChange(@ListBoxOnChange);

Edit3: 

* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].

FMXListBox[3].OnChange(@ListBx3OnChange);

.

[ADMIRAL]

Originally Posted by BLACKFIRE69

@ADMIRAL,

after making a few changes to the code, you can make it work. however, if i'm correct, there're some aspects in the script that need further implementation. it would be better to ask the authors to complete the script.

Edit1: 

* Replace the current 'ListBoxOnChange' code with this.

procedure ListBoxOnChange(Sender: TObject);
var
  ADir: String;
begin
  if (FMXListBox[2].GetItemIndex > -1) then
  begin
    ADir := FMXEdit[1].GetText;
    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

procedure ListBx3OnChange(Sender: TObject);
var
  ADir: WideString;
begin
  if FMXListBox[3].GetItemIndex > -1 then
  begin
    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

Edit2: 

* Comment out the following line in the code.

//FMXEdit[1].OnChange(@ListBoxOnChange);

Edit3: 

* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].

FMXListBox[3].OnChange(@ListBx3OnChange);

.

Thank you for your quick reply, but even with the edit's codes, I am still facing the same problem. Are there any problems for you with these codes in the script?

[ADMIRAL]

Originally Posted by audiofeel

This part of the code was implemented by @Hitman797. I think that sometimes he will have a free hour and he will fix everything thanks to your edits in the code.
==Here is the latest "clean version" for the changes==

In the first test, my partitions and folders were not displayed at all, and by adding codes, I only encountered errors.

[ADMIRAL]

Originally Posted by audiofeel

This part of the code was implemented by @Hitman797. I think that sometimes he will have a free hour and he will fix everything thanks to your edits in the code.
==Here is the latest "clean version" for the changes==

Again, I tried to change the redirection section similar to the photo by simulating the codes, but again it was useless because the coding method is different in both.

[Jahan1373]

Hello, thank you for the initiative of this beautiful script and your round-the-clock effort, you can only make it so that you have more than one icon on the desktop, thank you very much.

[ADMIRAL]

Originally Posted by audiofeel

To be honest, if I were Blackfire69, I'd tell us to go to hell. I do not know why, but he helps us and you all. And listen... let's all thank him for spending his time with us. Keep it if you can figure it out. I lost interest in him, all hope for Hitman797. And maybe Blackfire69 will hold it.
I warn you right away that he is not ready
Everything was pulled out by the hitman797 user with the help of dumps, etc. I immediately warn him that he is not ready, there is no animation of the transition from the waiting page and the directory selection page is not ready.
It completely repeats the original up to the X - Y coordinates
by the way, Razor12911 is a very kind person and has not once communicated with me and with many NPAs in this forum thread. I think he will come to a meeting in and reveal the raw materials of the project in Delphi
P.S a month ago I thought that my country had been minted now I think that everyone has been minted

I must say that you are absolutely right
No matter how much we thank all three of them, it is still not enough for their efforts
Thank you for sharing this script, I am trying to rewrite this script myself so that I can reach a level like I was able to do in React JS.

[BLACKFIRE69]

FMXInno Updates - [2023-Nov-13]

* Added new functions:
  -- function wGetRecycleBinInfo(ARootPath: WideString; var TotalSizeMB: Extended; var FileCount: Integer): Boolean;
  -- function wCopyToClipboard(const AStr: WideString): Boolean;
  -- function wPasteFromClipboard: WideString;
  
* Updated FForm class.

* Updated FluentApi (Internal + External).
  -- Make sure to update your current scripts as follows:
  
    function EnableFluent(const WinHandle: HWND; DarkTheme, NoBorders, NoTitleBar: Boolean; Opacity: Single; BrightnessPct: Byte): Integer;
    external 'EnableFluent@{tmp}\FluentApi.dll stdcall uninstallonly delayload';
  
    to
  
    function EnableFluent(const WinHandle: HWND; DarkTheme, NoBorders, NoTitleBar: Boolean; Opacity: Single; BrightnessPct: Byte): Integer;
    external 'faC1222296@{tmp}\FluentApi.dll stdcall uninstallonly delayload';

* Updated ISArcEx (Internal + External).
  -- Added a new method:
    > ISArcExIsSuspended.
	
  -- The following methods have been renamed and updated:
    > Suspend/Resume Proc, ChangeLanguage.
	
* Updated Botva2-like classes:
  -- FPictureButton2, FPictureVisiblePart, FPictureProgressBar, and FPictureTrackBar.

* Some improvements and bug fixes.

* Compiled in RadStudio 12 Athens.
  -- Embarcadero claims that the performance has been improved for FMX.

  -- FMXInno already comes with built-in support for SKIA, but since RadStudio 12 
     and onward, Delphi has native support for SKIA.
     If you need me to update SKIA in FMXInno, I'll do that on request.
	 
  Note: This update doesn't use the RadStudio 12 native SKIA (v6.0.0); instead, 
        this update uses the previous version (v5.0.0).

The first post has been updated.

[Jahan1373]

Hello, the site is having problems recently. Please, if you are destined, click on a Telegram channel to see your latest works with lots of news. Thank you.

[Jahan1373]

Originally Posted by audiofeel؛ اسکریپت 502973

M<TAG1>Matro. تقریبا همه چیز آماده است
setup.exe

It's a happy place for you who work hard to keep the old scripts alive. Thank you. Please introduce a Telegram channel if you have one so that we can become members.