Вопрос Problem with script inno - cancel select language

nizcoz

Участник
Hi! Cancel in language selector and error!



Cancel and:

 
Последнее редактирование:

nizcoz

Участник
Thanks, the problem was solved. Other problem........

I use Vclstyles and the installation works fine, but the uninstall and language selector not.

Intall



Uninstall



And.... with the language selector is the same thing, not with the style of VclStyles.
 

Avengerz13

Участник
nizcoz,
Код:
#define VCLStyle "Auric.vsf"
[Setup]
AppName=VCL Styles Example
AppVerName=VCL Styles Example v1.0
AppVersion=1.0.0.0
AppCopyright=The Road To Delphi
DefaultDirName={pf}\The Road To Delphi\VCL Styles Inno Demo
DefaultGroupName=The Road To Delphi
Compression=lzma
SolidCompression=true
WizardImageFile=..\images\WizModernImage-IS_Green.bmp
WizardSmallImageFile=..\images\WizModernSmallImage-IS_Green.bmp
OutputDir=.\Output
OutputBaseFilename=Setup
VersionInfoVersion=1.0.0.0
VersionInfoCompany=The Road To Delphi
VersionInfoDescription=VCL Styles Setup
VersionInfoTextVersion=1, 0, 0, 0
InternalCompressLevel=max

#define VCLStylesSkinPath "{localappdata}\VCLStylesSkin"
[Files]
Source: ..\VclStylesinno.dll; DestDir: {#VCLStylesSkinPath}; Flags: uninsneveruninstall
;Source: ..\Win32\Debug\VclStylesinno.dll; DestDir: {#VCLStylesSkinPath}; Flags: uninsneveruninstall
Source: ..\Styles\{#VCLStyle}; DestDir: {app}; Flags: dontcopy


[Code]
// Import the LoadVCLStyle function from VclStylesInno.DLL
procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyleW@files:VclStylesInno.dll stdcall setuponly';
procedure LoadVCLStyle_UnInstall(VClStyleFile: String); external 'LoadVCLStyleW@{#VCLStylesSkinPath}\VclStylesInno.dll stdcall uninstallonly';
// Import the UnLoadVCLStyles function from VclStylesInno.DLL
procedure UnLoadVCLStyles; external 'UnLoadVCLStyles@files:VclStylesInno.dll stdcall setuponly';
procedure UnLoadVCLStyles_UnInstall; external 'UnLoadVCLStyles@{#VCLStylesSkinPath}\VclStylesInno.dll stdcall uninstallonly';

function InitializeSetup(): Boolean;
begin
    ExtractTemporaryFile('{#VCLStyle}');
    LoadVCLStyle(ExpandConstant('{tmp}\{#VCLStyle}'));
    Result := True;
end;

procedure DeinitializeSetup();
begin
    UnLoadVCLStyles;
end;

function InitializeUninstall: Boolean;
begin
  Result := True;
  MsgBox('Hello.', mbInformation, MB_OK);
  LoadVCLStyle_UnInstall(ExpandConstant('{#VCLStylesSkinPath}\{#VCLStyle}'));
end;

procedure DeinitializeUninstall();
begin
  UnLoadVCLStyles_UnInstall;
end;
 

nizcoz

Участник
Works fine with the uninstaller, but the language selector not, still show this:



PD: After the modify of the script (with vcl styles function for uninstall), the uninstall indicates me ¨ Some elements could not be removed. These can be removed manually.¨ How fix this?



Thanks!
 
Последнее редактирование:
Сверху