Inno Setup Script starting point

gistfile1.txt

; Starting point of creating an Inno Setup Script
; See the Inno Setup documentation at http://www.jrsoftware.org/

#define SourceFileDir ""
#define IncludeFramework true
#define IsExternal "external"

[setup]
;name of your application
AppName=
AppVersion=
;repeat name of application. (otherwise you get
;multiple entries in add/remove programs)
AppVerName=
;app publisher name
AppPublisher=
;app publisher website URL
AppPublisherURL=
;app publisher support URL
;AppSupportURL=
;app publisher updates URL
;AppUpdatesURL=
;default directory {pf} is a constant for
;program files. See INNO help for all constants
DefaultDirName=
;default group name in the programs
; section of the start menu
DefaultGroupName=
;Boolean to disable allowing user to customize
;start menu entry during installation
DisableProgramGroupPage=
;Boolean to warn if directory user picks
;already exists
DirExistsWarning=
;directory where uninstaller exe will be
;this will be where our app is
;the constant we use is {app}
UninstallFilesDir=
;Location of the license file
LicenseFile=
;file to show before install (I show sys requirements)
InfoBeforeFile=
;file to show after install (I show readme)
InfoAfterFile=
;Custom image to show on left side of installer
;WizardImageFile=
;Icon for uninstall in add/remove programs
;I use whatever my apps icon is
;UninstallDisplayIcon=
;Version number of your installer (not your app)
VersionInfoVersion=
;If IncludeFramework, append _Full to end of compiled setup
;I do this to make it easy to compile a version with and
;without the framework included
#if IncludeFramework
  OutputBaseFilename=
#else
  OutputBaseFilename=
#endif
;Directory where setup.exe will be compiled to
OutputDir={#SourceFileDir}\setup
;
Compression=lzma2
SolidCompression=yes
;
AllowCancelDuringInstall=
;disable installing to network drive
;there may be security exceptions as network drives dont usually run with full trust
AllowNetworkDrive=
AllowUNCPath=
; ask for admin rights
PrivilegesRequired=admin

[Files]
Source:; DestDir:; Flags: recursesubdirs ignoreversion
Source:; DestDir:{app}; Flags: ignoreversion deleteafterinstall
#if IncludeFramework
  Source: ; DestDir: {tmp}; Flags: recursesubdirs ignoreversion {#IsExternal}; Check: NeedsFramework
#endif

[icons]
Name: {group};        Filename: {app}; WorkingDir: {app}
Name: {group}; Filename: {uninstallexe};  WorkingDir: {app}
Name: {userdesktop};  Filename: {app}; WorkingDir: {app}

[Run]
#if IncludeFramework
  Filename: {tmp}\wcu\dotNetFramework\setup.exe; Parameters: "/qb /norestart"; WorkingDir: {tmp}; Flags: skipifdoesntexist; StatusMsg: "Installing .NET Framework 3.5 Service Pack 1"
#endif
Filename:{cmd}; Parameters:"/C copy ""{app}"" ""{app}"""
Filename:{app}; Parameters: """{app}"""

[UninstallDelete]
Type:files; Name:{app}

[code]

// Indicates whether .NET Framework 3.5 Service Pack 1 is installed.
function IsDotNET35Detected(): boolean;
var 
	success: boolean;
	install: cardinal;
begin
	success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5', 'SP', install);
    Result := success and (install = 1);
end;

// Indicates whether .NET Framework 2.0 is installed.
function IsDotNET20Detected(): boolean;
var
    success: boolean;
    install: cardinal;
begin
    success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727', 'Install', install);
    Result := success and (install = 1);
end;

//RETURNS OPPOSITE OF IsDotNet35Detected FUNCTION
//Remember this method from the Files section above
function NeedsFramework(): Boolean;
begin
  Result := (IsDotNET35Detected = false);
end;

//CHECKS TO SEE IF CLIENT MACHINE IS WINDOWS 95
function IsWin95 : boolean;
begin
  Result := (InstallOnThisVersion('4.0,0', '4.1.1998,0') = irInstall);
end;

//CHECKS TO SEE IF CLIENT MACHINE IS WINDOWS NT4
function IsWinNT : boolean;
begin
  Result := (InstallOnThisVersion('0,4.0.1381', '0,4.0.1381') = irInstall);
end;

//GETS VERSION OF IE INSTALLED ON CLIENT MACHINE
function GetIEVersion : String;
var
  IE_VER: String;
begin
  {First check if Internet Explorer is installed}
  if RegQueryStringValue(HKLM,'SOFTWARE\Microsoft\Internet Explorer','Version',IE_VER) then
      Result := IE_VER
else
    {No Internet Explorer at all}
    result := '';
end;

//GETS THE VERSION OF WINDOWS INSTALLER DLL
function GetMSIVersion(): String;
begin
    GetVersionNumbersString(GetSystemDir+'\msi.dll', Result);
end;

//LAUNCH DEFAULT BROWSER TO WINDOWS UPDATE WEBSITE
procedure GoToWindowsUpdate;
var
  ErrorCode: Integer;
begin
  if (MsgBox('Would you like to go to the Windows Update site now?' + chr(13) + chr(13) + '(Requires Internet Connection)'
            , mbConfirmation, MB_YESNO) = IDYES) then
      ShellExec('open', 'http://windowsupdate.microsoft.com','', '', SW_SHOW, ewNoWait, ErrorCode);
end;

//IF SETUP FINISHES WITH EXIT CODE OF 0, MEANING ALL WENT WELL
//THEN CHECK FOR THE PRESENCE OF THE REGISTRY FLAG TO INDICATE THE
//.NET FRAMEWORK WAS INSTALLED CORRECTLY
//IT CAN FAIL WHEN CUST DOESN'T HAVE CORRECT WINDOWS INSTALLER VERSION
function GetCustomSetupExitCode(): Integer;
begin
  if (IsDotNET20Detected = false) then
    begin
      MsgBox('.NET Framework was NOT installed successfully!',mbError, MB_OK);
      result := -1
    end
end;

function InitializeSetup: Boolean;
var
  Version: TWindowsVersion;
  IE_VER: String;
  MSI_VER: String;
  NL: Char;
  NL2: String;
begin

  NL := Chr(13);
  NL2 := NL + NL;

  // Get Version of Windows from API Call
  GetWindowsVersionEx(Version);

  // On Windows 2000, check for SP3

  if Version.NTPlatform and
     (Version.Major = 5) and
     (Version.Minor = 0) and
     (Version.ServicePackMajor < 3) then
  begin
    SuppressibleMsgBox('When running on Windows 2000, Service Pack 3 is required.' + NL +
                       'Visit' + NL2 +
                       ' *** http://windowsupdate.microsoft.com ***' + NL2 +
                       'to get the needed Windows Updates,' + NL +
                       'and then reinstall this program',
                        mbCriticalError, MB_OK, MB_OK);
    GoToWindowsUpdate;
    Result := False;
    Exit;
  end;

  // On Windows XP, check for SP2
  if Version.NTPlatform and
     (Version.Major = 5) and
     (Version.Minor = 1) and
     (Version.ServicePackMajor < 2) then
  begin
    SuppressibleMsgBox('When running on Windows XP, Service Pack 2 is required.' + NL +
                       'Visit' + NL2 + ' *** http://windowsupdate.microsoft.com ***' + NL2 +
                       'to get the needed Windows Updates,' + NL +
                       'and then reinstall this program',
                       mbCriticalError, MB_OK, MB_OK);
    GoToWindowsUpdate;
    Result := False;
    Exit;
  end;

  //IF WINDOWS 95 OR NT DON'T INSTALL
  if (IsWin95) or (IsWinNT) then
  begin
    SuppressibleMsgBox('This program can not run on Windows 95 or Windows NT.',
      mbCriticalError, MB_OK, MB_OK);
    Result := False;
    Exit;
  end;

  //CHECK MSI VER, NEEDS TO BE 3.0 ON ALL SUPPORTED SYSTEM EXCEPT 95/ME, WHICH NEEDS 2.0)
  MSI_VER := GetMSIVersion
  if ((Version.NTPlatform) and (MSI_VER < '3')) or ((Not Version.NTPlatform) and (MSI_VER < '2')) then
    begin
      SuppressibleMsgBox('You do not have all the required Windows Updates to install this program.' + NL +
                         'Visit *** http://windowsupdate.microsoft.com *** to get the needed Windows Updates,' + NL +
                         'and then reinstall this program',
                         mbCriticalError, MB_OK, MB_OK);
      GoToWindowsUpdate;
      Result := False;
      Exit;
  end;

  //CHECK THE IE VERSION (NEEDS TO BE 5.01+)
  IE_VER := GetIEVersion;
  if IE_VER < '5.01' then
    begin
      if IE_VER = '' then
        begin
          MsgBox('Microsoft Internet Explorer 5.01 or higher is required to run this program.' + NL2 +
                 'You do not currently have Microsoft Internet Explorer installed, or it is not working correctly.' + NL +
                 'Obtain a newer version at www.microsoft.com and then run setup again.', mbInformation, MB_OK);
        end
      else
        begin
          MsgBox('Microsoft Internet Explorer 5.01 or higher is required to run this program.' + NL2 +
                 'You are using version ' + IE_VER + '.' + NL2 +
                 'Obtain a newer version at www.microsoft.com and then run setup again.', mbInformation, MB_OK);
        end

      GoToWindowsUpdate;
      result := false;
      exit;
  end;

  //MAKE SURE USER HAS ADMIN RIGHTS BEFORE INSTALLING
  if IsAdminLoggedOn then
    begin
      result := true
        exit;
    end
  else
    begin
      MsgBox('You must have admin rights to perform this installation.' + NL +
             'Please log on with an account that has administrative rights,' + NL +
            'and run this installation again.', mbInformation, MB_OK);
        result := false;
    end
  end;
end.

; End of file