Inno Setup Платныи заказ

asterix93

Новичок
Платныи заказ на создание инсталятора каторыи будет изменити пароли Firebird!

План такои как в коде (я пробовал но не палучилсеа)
1 ести копанент каторыи атвечает за изменение пароля база даных Firebird или установку Firebird
2 праверка если ести установлен Firebird меняет пароли если нет то устанавити Firebird и патом меняти пароли

3 установка Firebird зависит от битности систему х32/х64


Для обсуждения пишите в лс!
Па поваду аплату тожэ в лс!


Код:
function InstallFirebird(): Boolean;
var
ResultCode: Integer;
begin
//Правиряет если установлен Firebird и если ести имина ево сервис
  If (IsComponentSelected('FDB\PSW')) and (FileExists(ExpandConstant('{pf}\Firebird\Firebird_2_5\bin\fbguard.exe'))) then
    begin
      //если ести то изменит пароль базаданых Firebird
      Exec(ExpandConstant('{cmd}'), 'gsec -user SYSDBA -password masterkey -modify sysdba -pw {code:GetUser|Password6} /y ', ExpandConstant('{pf}\Firebird\Firebird_2_5\bin\'), SW_HIDE, ewWaitUntilTerminated, ResultCode)
      Result := True;
    end
  else
//если он не наидёт Firebird
    case MsgBoxEx(0, 'Программа  Firebird не установлена.' + #13#10 + 'Cогласны ли вы ',
    'установить FireBird ', MB_YESNOCANCEL + MB_DEFBUTTON1 or MB_ICONQUESTION, 0, 0) of
        IDYES: begin
             //Устанавление Firebird зависит от битность системы. Firebird64
             if IsWin64 then
              begin
              Exec(ExpandConstant('{tmp}\Firebirdx64.exe'), '/SILENT /SUPPRESSMSGBOXES ', ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, ResultCode)
              Exec(ExpandConstant('{cmd}'), 'gsec -user SYSDBA -password masterkey -modify sysdba -pw {code:GetUser|Password6} /y ', ExpandConstant('{pf}\Firebird\Firebird_2_5\bin\'), SW_HIDE, ewWaitUntilTerminated, ResultCode)
                   end 
                   else
                  //Firebird32
                  Exec(ExpandConstant('{tmp}\Firebirdx32.exe'), '/SILENT /SUPPRESSMSGBOXES ', ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, ResultCode)
                  Exec(ExpandConstant('{cmd}'), 'gsec -user SYSDBA -password masterkey -modify sysdba -pw {code:GetUser|Password6} /y ', ExpandConstant('{pf}\Firebird\Firebird_2_5\bin\'), SW_HIDE, ewWaitUntilTerminated, ResultCode)
              end;
             end;
        IDNO: Result := True;
    end;
  Result := False
end;
 
Сверху