Jump to content
Korean Random

DKRUBEN

User
 View Profile  See their activity

  • Posts

    168

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by DKRUBEN

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    @Kotyarko_O , thats are the msn i ricive.

    Nova Imagem de Mapa de Bits.bmp

    @Kotyarko_O , i try this 

    Procedure MCTCreatorLaunch();
var
 ResCode: Integer;
 Params: String;
begin
 ResCode := 666;
 if FileExists(ExpandConstant('{app}\Driftkings\MCTCreator\MCTCreator.exe')) then
 begin
  Params := (ExpandConstant('/wot-path "{app}"') + ('/operational-mode=0'));
  if IsComponentSelected('Change the texture of destroyed equipment') then
   Params := Params + '/DPT-mod "FFFFFF"';
  if IsComponentSelected('Change the texture of the downed track/tank') then
   Params := Params + '/CT-mod "FFFFFF"';
  Exec('MCTCreator.exe', Params, ExpandConstant('{app}\Driftkings\MCTCreator'), SW_SHOW, ewWaitUntilTerminated, ResCode);
  if ResCode <> 0 then
   MsgBoxEx(WizardForm.Handle, 'Unexpected error.' + #13#10 + 'Result code: ' + IntToStr(ResCode) + '.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0);
 end else
  MsgBoxEx(WizardForm.Handle, 'MCTCreator files doesn`t exists.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0);
end;

    but same error:tears:

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted · Edited by DKRUBEN

    well it seemed to me, because in my old script I used [files] and [components], and with this, yours is really good for me, I could not find them, I know my question was a little silly.

    big thanks for you and @night_dragon_on...:thx:

    PageComponents.iss

    @Kotyarko_O it's this? 

    Source: "MODS\ComponetsPage\MCTCREATOR\*.cfg";                DestDir: "{app}\Driftkings\MCTCreator"; Flags: ignoreversion; BeforeInstall: SetInstallStatus('Extart MTCreator...:');                                     Check: ComponentsChecked('Changing game texture (MCTCreator):');
Source: "MODS\ComponetsPage\MCTCREATOR\MCTCreator.exe";       DestDir: "{app}\Driftkings\MCTCreator"; Flags: ignoreversion; BeforeInstall: SetInstallStatus('Extart MTCreator...:'); AfterInstall: "MCTCreatorLaunch()"; Check: ComponentsChecked('Changing game texture (MCTCreator):');
#endif

[Code]
Var
 ComponentsPage: TWizardPage;
 ComponentsList: TNewCheckListBox;
 ComponentsPageImg: Longint;

////
//*2
 Procedure MCTCreatorLaunch();
var
 ResCode: Integer;
 Params: String;
begin
 ResCode := 666;
 if FileExists(ExpandConstant('{app}\Driftkings\MCTCreator\MCTCreator.exe')) then
 begin
  Params := ExpandConstant('/wot-path "{app}" /operational-mode=0');
  if IsComponentSelected('Change the texture of destroyed equipment') then
   Params := Params + ' /DPT-mod "#FFFFFF"';
  if IsComponentSelected('Change the texture of the downed track/tank') then
   Params := Params + ' /CT-mod "#FFFFFF"';
  Exec('MCTCreator.exe', Params, ExpandConstant('{app}\Driftkings\MCTCreator'), SW_SHOW, ewWaitUntilTerminated, ResCode);
  if ResCode <> 0 then
   MsgBoxEx(WizardForm.Handle, 'Unexpected error.' + #13#10 + 'Result code: ' + IntToStr(ResCode) + '.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0);
 end else
  MsgBoxEx(WizardForm.Handle, 'MCTCreator files doesn`t exists.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0);
end;

     

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    @Kotyarko_O,  Hello and sorry to be a bit annoying, in your source of the inno I am trying to add MCTCreator as you have but gives me error to compile, any idea? 

    [Files]
Source: "MODS\MCTCREATOR\*.cfg"; DestDir: "{app}\KMP\MCTCreator"; Flags: ignoreversion; BeforeInstall: SetInstallStatus('Изменение игровых текстур..'); Components: KMP\MCT;
Source: "MODS\MCTCREATOR\MCTCreator.exe"; DestDir: "{app}\KMP\MCTCreator"; Flags: ignoreversion; BeforeInstall: SetInstallStatus('Изменение игровых текстур..'); AfterInstall: MCTCreatorLaunch(); Components: KMP\MCT;

[Code]
Var
 ComponentsPage: TWizardPage;
 ComponentsList: TNewCheckListBox;
 ComponentsPageImg: Longint;

Procedure MCTCreatorLaunch();
var
 ResCode: Integer;
 Params: String;
begin
 ResCode := 666;
 if FileExists(ExpandConstant('{app}\KMP\MCTCreator\MCTCreator.exe')) then
 begin
  Params := ExpandConstant('/wot-path "{app}" /operational-mode=0');
  if IsComponentSelected('KMP\MCT\DPT') then
   Params := Params + ' /DPT-mod "#FFFFFF"';
  if IsComponentSelected('KMP\MCT\CT') then
   Params := Params + ' /CT-mod "#FFFFFF"';
  Exec('MCTCreator.exe', Params, ExpandConstant('{app}\KMP\MCTCreator'), SW_SHOW, ewWaitUntilTerminated, ResCode);
  if ResCode <> 0 then
   MsgBoxEx(WizardForm.Handle, 'Unexpected error.' + #13#10 + 'Result code: ' + IntToStr(ResCode) + '.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0);
 end else
  MsgBoxEx(WizardForm.Handle, 'MCTCreator files doesn`t exists.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0);
end;

     

×
×
  • Create New...