Dismiss Notice

REGISTRATION IS AFTER ADMIN ACTIVATION

DONATIONS WITH PAYPAL CLICK TO BUTTON

1 MONTH VIP - 5$; 3 MONTHS VIP - 10$; 6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$

DONATIONS WITH Bitcoin Address:3NRs3CK3fhXifrNYxHEZKpETDd9vNLMsMD

Dismiss Notice
The registration is approved by the Administrator. It takes about 1 day to approve your registration
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' started by N0body, Feb 22, 2014.

  1. N0body
    Online

    N0bodyN0body is a Verified Member DelphiFan Administrator 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 'LoadVCLStyleW@files:VclStylesInno.dll stdcall';
    // Import the UnLoadVCLStyles function from VclStylesInno.DLL
    procedure UnLoadVCLStyles; external 'UnLoadVCLStyles@files: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
    Offline

    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
    Offline

    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

Laws
Our website, law, laws, copyright and aims to be respectful of individual rights. Our site, as defined in the law of 5651 serves as a provider of space. According to the law, contrary to the law of site management has no obligation to monitor content. Therefore, our site has adopted the principle of fit and remove. Works are subject to copyright laws and is shared in a manner that violated their legal rights, or professional associations, rights holders who, adsdelphi@gmail.com I can reach us at e-mail address. Complaints considered to be infringing on the examination of the content will be removed from our site.
Donate Help To Us and Be VIP
DONATIONS WITH PAYPAL CLICK TO BUTTON
6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$
Social Block