1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Donation with Paypal!!!

    Go to your paypal account and send directly donation to [email protected]

    1 month - 10 $ - Standart VIP

    6 months - 20 $- Standart VIP

    1 year - 30 $- Standart VIP

    2 years - 50 $- Standart VIP

    Gold member for life - 150 $- Standart VIP

    High Vip (Standart VIP include) group please send PM or email to [email protected] for info

    After Donation please send email to [email protected]

  3. Donation Ways 2020


    Paysend
  4. Telegram
Dismiss Notice

Donation with Paypal!!!

Go to your paypal account and send directly donation to [email protected]

1 month - 10 $ - Standart VIP

6 months - 20 $- Standart VIP

1 year - 30 $- Standart VIP

2 years - 50 $- Standart VIP

Gold member for life - 150 $- Standart VIP

High Vip (Standart VIP include) group please send PM or email to [email protected] for info

After Donation please send email to [email protected]

Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

VCL Styles for Inno Setup

Discussion in 'Delphi Tools,Freeware, Open Source' started by AdminDF, Feb 22, 2014.

  1. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan Staff Member DF Staff

    As part of the VCL Styles Utils project, is made a plugin (dll) to skin the installers created by Inno setup. The current size of the plugin is about 1.6 mb, but when is included (and compressed) in the script only add ~490 Kb to the final installer.

    Installation

    The installer for the plugin includes 30+ VCL Styles, a set of wizard images and samples inno scripts. To install just follow the installer instructions.

    [​IMG]

    [​IMG]

    [​IMG]

    [​IMG]

    [​IMG]

    How to use it

    In order to use the plugin you must follow these steps
    Add the VclStylesinno.dll file to your inno setup script and the VCL Style file to use.
    Import the function LoadVCLStyleW for Unicode versions of Inno setup or the LoadVCLStyleA method for the Ansi version
    Import the function UnLoadVCLStyles
    In the InitializeSetup function extract the style to use and call the LoadVCLStyle method passing the name of the style file
    Finally in the DeinitializeSetup function call the UnLoadVCLStyles method.
    Check the next sample script

    Code:
    [Files]
    Source: ..\VclStylesinno.dll; DestDir: {app}; Flags: dontcopy
    Source: ..\Styles\Amakrits.vsf; DestDir: {app}; Flags: dontcopy
     
    
    
    
    Code:
    // Import the LoadVCLStyle function from VclStylesInno.DLL
    procedure LoadVCLStyle(VClStyleFile: String); external '[email protected]:VclStylesInno.dll stdcall';
    // Import the UnLoadVCLStyles function from VclStylesInno.DLL
    procedure UnLoadVCLStyles; external '[email protected]:VclStylesInno.dll stdcall';
     
    function InitializeSetup(): Boolean;
    begin
      ExtractTemporaryFile('Amakrits.vsf');
      LoadVCLStyle(ExpandConstant('{tmp}\Amakrits.vsf'));
      Result := True;
    end;
     
    procedure DeinitializeSetup();
    begin
      UnLoadVCLStyles;
    end;
     
  2. delphi_sk
    Offline

    delphi_sk DF Junior

    --------good--------
     
  3. rendou
    Offline

    rendou DF Member

    Thank you for all these explanations. useful.
     
  4. ahuque
    Offline

    ahuque DF Member

    Have to try this, thanks

    Sent from my GT-P6200 using Tapatalk
     
  5. Gabi
    Offline

    Gabi DF Junior

    RE:

    [font=Verdana, Arial, sans-serif]thanks[/font]
     
  6. imsh
    Offline

    imsh DF Member

    RE:

    Im getting an error message after execution of setup made with this :/
     
  7. MYXOMOP
    Online

    MYXOMOP Guest

    RE:

    Thank you
     
  8. papilla_ginie
    Offline

    papilla_ginie DF Member

  9. devmind2014
    Offline

    devmind2014 DF Junior

    Thank you
     
  10. PESCONI
    Offline

    PESCONI DF Member

    thankĀ“s
     
  11. Alex8000
    Online

    Alex8000 Guest

    RE:

    Just a brief ?
     
  12. newa
    Offline

    newa DF Junior

    [font='Open Sans', Arial, Tahoma, Verdana, sans-serif]Thanks[/font]
     
  13. bujitos
    Offline

    bujitos DF Junior

    thanks
     

Share This Page