; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "Учёт компьютерной техники"
#define MyAppVerName "Учёт компьютерной техники 1.0"
#define MyAppPublisher "Ukrpost Software"
#define MyAppExeName "tech.exe"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=tech
Compression=lzma
SolidCompression=yes

//AppName=NETFramework
//AppVerName=NETFramework
//DefaultDirName={pf}\NETFramework
//DisableStartupPrompt=true

[Languages]
Name: russian; MessagesFile: compiler:Default.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: C:\tech\tech.exe; DestDir: {app}; Flags: ignoreversion

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon

[code]

function InitializeSetup(): Boolean;
var
    ErrorCode: Integer;
    NetFrameWorkInstalled : Boolean;
    Result1 : Boolean;
begin

      NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5');
      if NetFrameWorkInstalled =true then
      begin
      Result1 := MsgBox('.NET Framework v3.5 уже установлен.',
                                    mbConfirmation, MB_YESNO) = idYes;
            Result := true;
      end;

      if NetFrameWorkInstalled = false then
      begin
            NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5');
            if NetFrameWorkInstalled = true then
            begin

                  Result := true;
            end;

            if NetFrameWorkInstalled =false then
                  begin
                        Result1 := MsgBox('Для работы с этой программой требуется .NET Framework v3.5. Вы хотите установить .NET Framework v3.5 сейчас?',
                                    mbConfirmation, MB_YESNO) = idYes;
                        if Result1 =false then
                        begin
                              Result:=false;
                        end
                        else
                        begin
                        ShellExec('open', ExpandConstant('C:\tech\dotNetFx35setup.exe'),'', '', SW_SHOW, ewNoWait, ErrorCode);
                              Result:=false;
                                        end;
      end;
      end;
end;