mirror of
https://github.com/greenshot/greenshot
synced 2025-08-20 21:43:24 -07:00
Update of inno-setup to 5.3.10
git-svn-id: http://svn.code.sf.net/p/greenshot/code/trunk@756 7dccd23d-a4a3-4e1f-8c07-b4c1b4018ab4
This commit is contained in:
RKrom
parent
31456fc9dc
commit
8ed65f8fc4
47 changed files with 2784 additions and 1 deletions
352
Greenshot/tools/innosetup/Builtins.iss
Normal file
352
Greenshot/tools/innosetup/Builtins.iss
Normal file
|
|
@ -0,0 +1,352 @@
|
|||
; BEGIN BUILTINS.ISS
|
||||
//
|
||||
// Inno Setup Preprocessor 5
|
||||
//
|
||||
// Copyright (C) 2001-2004 Alex Yackimoff. All Rights Reserved.
|
||||
// Portions by Martijn Laan.
|
||||
// http://ispp.sourceforge.net
|
||||
//
|
||||
// Inno Setup (C) 1997-2009 Jordan Russell. All Rights Reserved.
|
||||
// Portions by Martijn Laan.
|
||||
//
|
||||
// $Id: Builtins.iss,v 1.10 2009/08/03 14:18:14 mlaan Exp $
|
||||
//
|
||||
#if defined(ISPP_INVOKED) && !defined(_BUILTINS_ISS_)
|
||||
//
|
||||
#if PREPROCVER < 0x01000000
|
||||
# error Inno Setup Preprocessor version is outdated
|
||||
#endif
|
||||
//
|
||||
#define _BUILTINS_ISS_
|
||||
//
|
||||
// ===========================================================================
|
||||
//
|
||||
// Default states for options.
|
||||
//
|
||||
//#pragma parseroption -b+ ; short circuit boolean evaluation: on
|
||||
//#pragma parseroption -m- ; short circuit multiplication evaluation (0 * A will not eval A): off
|
||||
//#pragma parseroption -p+ ; string literals without escape sequences: on
|
||||
//#pragma parseroption -u- ; allow undeclared identifiers: off
|
||||
//#pragma option -c+ ; pass script to the compiler: on
|
||||
//#pragma option -e- ; emit empty lines to translation: off
|
||||
//#pragma option -v- ; verbose mode: off
|
||||
//
|
||||
// ---------------------------------------------------------------------------
|
||||
//
|
||||
// Verbose levels:
|
||||
// 0 - #include and #file acknowledgements
|
||||
// 1 - information about any temp files created by #file
|
||||
// 2 - #insert and #append acknowledgements
|
||||
// 3 - reserved
|
||||
// 4 - #dim, #define and #undef acknowledgements
|
||||
// 5 - reserved
|
||||
// 6 - conditional inclusion acknowledgements
|
||||
// 7 - reserved
|
||||
// 8 - show strings emitted with #emit directive
|
||||
// 9 - macro and functions successfull call acknowledgements
|
||||
//10 - Local macro array allocation acknowledgements
|
||||
//
|
||||
//#pragma verboselevel 0
|
||||
//
|
||||
#ifndef __POPT_P__
|
||||
# define private CStrings
|
||||
# pragma parseroption -p+
|
||||
#endif
|
||||
//
|
||||
#pragma spansymbol "\"
|
||||
//
|
||||
#define True 1
|
||||
#define False 0
|
||||
#define Yes True
|
||||
#define No False
|
||||
//
|
||||
#define MaxInt 0x7FFFFFFFL
|
||||
#define MinInt 0x80000000L
|
||||
//
|
||||
#define NULL
|
||||
#define void
|
||||
//
|
||||
// TypeOf constants
|
||||
//
|
||||
#define TYPE_ERROR 0
|
||||
#define TYPE_NULL 1
|
||||
#define TYPE_INTEGER 2
|
||||
#define TYPE_STRING 3
|
||||
#define TYPE_MACRO 4
|
||||
#define TYPE_FUNC 5
|
||||
#define TYPE_ARRAY 6
|
||||
//
|
||||
// Helper macro to find out the type of an array element or expression. TypeOf
|
||||
// standard function only allows identifier as its parameter. Use this macro
|
||||
// to convert an expression to identifier.
|
||||
//
|
||||
#define TypeOf2(any Expr) TypeOf(Expr)
|
||||
//
|
||||
// ReadReg constants
|
||||
//
|
||||
#define HKEY_CLASSES_ROOT 0x80000000UL
|
||||
#define HKEY_CURRENT_USER 0x80000001UL
|
||||
#define HKEY_LOCAL_MACHINE 0x80000002UL
|
||||
#define HKEY_USERS 0x80000003UL
|
||||
//
|
||||
#define HKCR HKEY_CLASSES_ROOT
|
||||
#define HKCU HKEY_CURRENT_USER
|
||||
#define HKLM HKEY_LOCAL_MACHINE
|
||||
#define HKU HKEY_USERS
|
||||
//
|
||||
// Exec constants
|
||||
//
|
||||
#define SW_HIDE 0
|
||||
#define SW_SHOWNORMAL 1
|
||||
#define SW_NORMAL 1
|
||||
#define SW_SHOWMINIMIZED 2
|
||||
#define SW_SHOWMAXIMIZED 3
|
||||
#define SW_MAXIMIZE 3
|
||||
#define SW_SHOWNOACTIVATE 4
|
||||
#define SW_SHOW 5
|
||||
#define SW_MINIMIZE 6
|
||||
#define SW_SHOWMINNOACTIVE 7
|
||||
#define SW_SHOWNA 8
|
||||
#define SW_RESTORE 9
|
||||
#define SW_SHOWDEFAULT 10
|
||||
#define SW_MAX 10
|
||||
//
|
||||
// Find constants
|
||||
//
|
||||
#define FIND_MATCH 0x00
|
||||
#define FIND_BEGINS 0x01
|
||||
#define FIND_ENDS 0x02
|
||||
#define FIND_CONTAINS 0x03
|
||||
#define FIND_CASESENSITIVE 0x04
|
||||
#define FIND_SENSITIVE FIND_CASESENSITIVE
|
||||
#define FIND_AND 0x00
|
||||
#define FIND_OR 0x08
|
||||
#define FIND_NOT 0x10
|
||||
#define FIND_TRIM 0x20
|
||||
//
|
||||
// FindFirst constants
|
||||
//
|
||||
#define faReadOnly 0x00000001
|
||||
#define faHidden 0x00000002
|
||||
#define faSysFile 0x00000004
|
||||
#define faVolumeID 0x00000008
|
||||
#define faDirectory 0x00000010
|
||||
#define faArchive 0x00000020
|
||||
#define faSymLink 0x00000040
|
||||
#define faAnyFile 0x0000003F
|
||||
//
|
||||
// GetStringFileInfo standard names
|
||||
//
|
||||
#define COMPANY_NAME "CompanyName"
|
||||
#define FILE_DESCRIPTION "FileDescription"
|
||||
#define FILE_VERSION "FileVersion"
|
||||
#define INTERNAL_NAME "InternalName"
|
||||
#define LEGAL_COPYRIGHT "LegalCopyright"
|
||||
#define ORIGINAL_FILENAME "OriginalFilename"
|
||||
#define PRODUCT_NAME "ProductName"
|
||||
#define PRODUCT_VERSION "ProductVersion"
|
||||
//
|
||||
// GetStringFileInfo helpers
|
||||
//
|
||||
#define GetFileCompany(str FileName) GetStringFileInfo(FileName, COMPANY_NAME)
|
||||
#define GetFileCopyright(str FileName) GetStringFileInfo(FileName, LEGAL_COPYRIGHT)
|
||||
#define GetFileDescription(str FileName) GetStringFileInfo(FileName, FILE_DESCRIPTION)
|
||||
#define GetFileProductVersion(str FileName) GetStringFileInfo(FileName, PRODUCT_VERSION)
|
||||
#define GetFileVersionString(str FileName) GetStringFileInfo(FileName, FILE_VERSION)
|
||||
//
|
||||
// ParseVersion
|
||||
//
|
||||
// Macro internally calls GetFileVersion function and parses string returned
|
||||
// by that function (in form "0.0.0.0"). All four version elements are stored
|
||||
// in by-reference parameters Major, Minor, Rev, and Build. Macro returns
|
||||
// string returned by GetFileVersion.
|
||||
//
|
||||
#define DeleteToFirstPeriod(str *S) \
|
||||
Local[1] = Copy(S, 1, (Local[0] = Pos(".", S)) - 1), \
|
||||
S = Copy(S, Local[0] + 1), \
|
||||
Local[1]
|
||||
//
|
||||
#define ParseVersion(str FileName, *Major, *Minor, *Rev, *Build) \
|
||||
Local[1] = Local[0] = GetFileVersion(FileName), \
|
||||
Local[1] == "" ? "" : ( \
|
||||
Major = Int(DeleteToFirstPeriod(Local[1])), \
|
||||
Minor = Int(DeleteToFirstPeriod(Local[1])), \
|
||||
Rev = Int(DeleteToFirstPeriod(Local[1])), \
|
||||
Build = Int(Local[1]), \
|
||||
Local[0])
|
||||
//
|
||||
// EncodeVer
|
||||
//
|
||||
// Encodes given four version elements to a 32 bit integer number (8 bits for
|
||||
// each element, i.e. elements must be within 0...255 range).
|
||||
//
|
||||
#define EncodeVer(int Major, int Minor, int Revision = 0, int Build = -1) \
|
||||
Major << 24 | (Minor & 0xFF) << 16 | (Revision & 0xFF) << 8 | (Build >= 0 ? Build & 0xFF : 0)
|
||||
//
|
||||
// DecodeVer
|
||||
//
|
||||
// Decodes given 32 bit integer encoded version to its string representation,
|
||||
// Digits parameter indicates how many elements to show (if the fourth element
|
||||
// is 0, it won't be shown anyway).
|
||||
//
|
||||
#define DecodeVer(int Ver, int Digits = 3) \
|
||||
Str(Ver >> 0x18 & 0xFF) + (Digits > 1 ? "." : "") + \
|
||||
(Digits > 1 ? \
|
||||
Str(Ver >> 0x10 & 0xFF) + (Digits > 2 ? "." : "") : "") + \
|
||||
(Digits > 2 ? \
|
||||
Str(Ver >> 0x08 & 0xFF) + (Digits > 3 && (Local = Ver & 0xFF) ? "." : "") : "") + \
|
||||
(Digits > 3 && Local ? \
|
||||
Str(Ver & 0xFF) : "")
|
||||
//
|
||||
// FindSection
|
||||
//
|
||||
// Returns index of the line following the header of the section. This macro
|
||||
// is intended to be used with #insert directive.
|
||||
//
|
||||
#define FindSection(str Section = "Files") \
|
||||
Find(0, "[" + Section + "]", FIND_MATCH | FIND_TRIM) + 1
|
||||
//
|
||||
// FindSectionEnd
|
||||
//
|
||||
// Returns index of the line following last entry of the section. This macro
|
||||
// is intended to be used with #insert directive.
|
||||
//
|
||||
#if VER >= 0x03000000
|
||||
# define FindNextSection(int Line) \
|
||||
Find(Line, "[", FIND_BEGINS | FIND_TRIM, "]", FIND_ENDS | FIND_AND)
|
||||
# define FindSectionEnd(str Section = "Files") \
|
||||
FindNextSection(FindSection(Section))
|
||||
#else
|
||||
# define FindSectionEnd(str Section = "Files") \
|
||||
FindSection(Section) + EntryCount(Section)
|
||||
#endif
|
||||
//
|
||||
// FindCode
|
||||
//
|
||||
// Returns index of the line (of translation) following either [Code] section
|
||||
// header, or "program" keyword, if any.
|
||||
//
|
||||
#define FindCode() \
|
||||
Local[1] = FindSection("Code"), \
|
||||
Local[0] = Find(Local[1] - 1, "program", FIND_BEGINS, ";", FIND_ENDS | FIND_AND), \
|
||||
(Local[0] < 0 ? Local[1] : Local[0] + 1)
|
||||
//
|
||||
// ExtractFilePath
|
||||
//
|
||||
// Returns directory portion of the given filename without backslash (unless
|
||||
// it is a root directory). If PathName doesn't contain directory portion,
|
||||
// the result is an empty string.
|
||||
//
|
||||
#define ExtractFilePath(str PathName) \
|
||||
(Local[0] = \
|
||||
!(Local[1] = RPos("\", PathName)) ? \
|
||||
"" : \
|
||||
Copy(PathName, 1, Local[1] - 1)), \
|
||||
Local[0] + \
|
||||
((Local[2] = Len(Local[0])) == 2 && Copy(Local[0], Local[2]) == ":" ? \
|
||||
"\" : \
|
||||
"")
|
||||
#define ExtractFileDir(str PathName) \
|
||||
RemoveBackslash(ExtractFilePath(PathName))
|
||||
|
||||
#define ExtractFileExt(str PathName) \
|
||||
Local[0] = RPos(".", PathName), \
|
||||
Copy(PathName, Local[0] + 1)
|
||||
//
|
||||
// ExtractFileName
|
||||
//
|
||||
// Returns name portion of the given filename. If PathName ends with
|
||||
// a backslash, the result is an empty string.
|
||||
//
|
||||
#define ExtractFileName(str PathName) \
|
||||
!(Local[0] = RPos("\", PathName)) ? \
|
||||
PathName : \
|
||||
Copy(PathName, Local[0] + 1)
|
||||
//
|
||||
// ChangeFileExt
|
||||
//
|
||||
// Changes extension in FileName with NewExt. NewExt must not contain
|
||||
// period.
|
||||
//
|
||||
#define ChangeFileExt(str FileName, str NewExt) \
|
||||
!(Local[0] = RPos(".", FileName)) ? \
|
||||
FileName + "." + NewExt : \
|
||||
Copy(FileName, 1, Local[0]) + NewExt
|
||||
//
|
||||
// AddBackslash
|
||||
//
|
||||
// Adds a backslash to the string, if it's not already there.
|
||||
//
|
||||
#define AddBackslash(str S) \
|
||||
Copy(S, Len(S)) == "\" ? S : S + "\"
|
||||
//
|
||||
// RemoveBackslash
|
||||
//
|
||||
// Removes trailing backslash from the string unless the string points to
|
||||
// a root directory.
|
||||
//
|
||||
#define RemoveBackslash(str S) \
|
||||
Local[0] = Len(S), \
|
||||
Local[0] > 0 ? \
|
||||
Copy(S, Local[0]) == "\" ? \
|
||||
(Local[0] == 3 && Copy(S, 2, 1) == ":" ? \
|
||||
S : \
|
||||
Copy(S, 1, Local[0] - 1)) : \
|
||||
S : \
|
||||
""
|
||||
//
|
||||
// Delete
|
||||
//
|
||||
// Deletes specified number of characters beginning with Index from S. S is
|
||||
// passed by reference (therefore is modified). Acts like Delete function in
|
||||
// Delphi (from System unit).
|
||||
//
|
||||
#define Delete(str *S, int Index, int Count = MaxInt) \
|
||||
S = Copy(S, 1, Index - 1) + Copy(S, Index + Count)
|
||||
//
|
||||
// Insert
|
||||
//
|
||||
// Inserts specified Substr at Index'th character into S. S is passed by
|
||||
// reference (therefore is modified).
|
||||
//
|
||||
#define Insert(str *S, int Index, str Substr) \
|
||||
Index > Len(S) + 1 ? \
|
||||
S : \
|
||||
S = Copy(S, 1, Index - 1) + SubStr + Copy(S, Index)
|
||||
//
|
||||
// YesNo, IsDirSet
|
||||
//
|
||||
// Returns nonzero value if given string is "yes", "true" or "1". Intended to
|
||||
// be used with SetupSetting function. This macro replaces YesNo function
|
||||
// available in previous releases.
|
||||
//
|
||||
#define YesNo(str S) \
|
||||
(S = LowerCase(S)) == "yes" || S == "true" || S == "1"
|
||||
//
|
||||
#define IsDirSet(str SetupDirective) \
|
||||
YesNo(SetupSetting(SetupDirective))
|
||||
//
|
||||
//
|
||||
#define Power(int X, int P = 2) \
|
||||
!P ? 1 : X * Power(X, P - 1)
|
||||
//
|
||||
#define Min(int A, int B, int C = MaxInt) \
|
||||
A < B ? A < C ? Int(A) : Int(C) : Int(B)
|
||||
//
|
||||
#define Max(int A, int B, int C = MinInt) \
|
||||
A > B ? A > C ? Int(A) : Int(C) : Int(B)
|
||||
//
|
||||
|
||||
; The following message can be overriden in ISS script.
|
||||
; It is not required by ISPP license agreement, but it would be appreciated
|
||||
; if you do not remove this note.
|
||||
|
||||
[Messages]
|
||||
AboutSetupNote=Inno Setup Preprocessor home page:%nhttp://ispp.sourceforge.net/
|
||||
[/Messages]
|
||||
#ifdef CStrings
|
||||
# pragma parseroption -p-
|
||||
#endif
|
||||
#endif
|
||||
; END BUILTINS.ISS
|
||||
|
||||
Binary file not shown.
32
Greenshot/tools/innosetup/Examples/64Bit.iss
Normal file
32
Greenshot/tools/innosetup/Examples/64Bit.iss
Normal file
|
|
@ -0,0 +1,32 @@
|
|||
; -- 64Bit.iss --
|
||||
; Demonstrates installation of a program built for the x64 (a.k.a. AMD64)
|
||||
; architecture.
|
||||
; To successfully run this installation and the program it installs,
|
||||
; you must have the "x64" edition of Windows XP or Windows Server 2003.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
Compression=lzma2
|
||||
SolidCompression=yes
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
; "ArchitecturesAllowed=x64" specifies that Setup cannot run on
|
||||
; anything but x64.
|
||||
ArchitecturesAllowed=x64
|
||||
; "ArchitecturesInstallIn64BitMode=x64" requests that the install be
|
||||
; done in "64-bit mode" on x64, meaning it should use the native
|
||||
; 64-bit Program Files directory and the 64-bit view of the registry.
|
||||
ArchitecturesInstallIn64BitMode=x64
|
||||
|
||||
[Files]
|
||||
Source: "MyProg-x64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
48
Greenshot/tools/innosetup/Examples/64BitThreeArch.iss
Normal file
48
Greenshot/tools/innosetup/Examples/64BitThreeArch.iss
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
; -- 64BitThreeArch.iss --
|
||||
; Demonstrates how to install a program built for three different
|
||||
; architectures (x86, x64, Itanium) using a single installer.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
Compression=lzma2
|
||||
SolidCompression=yes
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
; "ArchitecturesInstallIn64BitMode=x64 ia64" requests that the install
|
||||
; be done in "64-bit mode" on x64 & Itanium, meaning it should use the
|
||||
; native 64-bit Program Files directory and the 64-bit view of the
|
||||
; registry. On all other architectures it will install in "32-bit mode".
|
||||
ArchitecturesInstallIn64BitMode=x64 ia64
|
||||
|
||||
[Files]
|
||||
; Install MyProg-x64.exe if running on x64, MyProg-IA64.exe if
|
||||
; running on Itanium, MyProg.exe otherwise.
|
||||
Source: "MyProg-x64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"; Check: IsX64
|
||||
Source: "MyProg-IA64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"; Check: IsIA64
|
||||
Source: "MyProg.exe"; DestDir: "{app}"; Check: IsOtherArch
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
|
||||
[Code]
|
||||
function IsX64: Boolean;
|
||||
begin
|
||||
Result := Is64BitInstallMode and (ProcessorArchitecture = paX64);
|
||||
end;
|
||||
|
||||
function IsIA64: Boolean;
|
||||
begin
|
||||
Result := Is64BitInstallMode and (ProcessorArchitecture = paIA64);
|
||||
end;
|
||||
|
||||
function IsOtherArch: Boolean;
|
||||
begin
|
||||
Result := not IsX64 and not IsIA64;
|
||||
end;
|
||||
34
Greenshot/tools/innosetup/Examples/64BitTwoArch.iss
Normal file
34
Greenshot/tools/innosetup/Examples/64BitTwoArch.iss
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
; -- 64BitTwoArch.iss --
|
||||
; Demonstrates how to install a program built for two different
|
||||
; architectures (x86 and x64) using a single installer.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
Compression=lzma2
|
||||
SolidCompression=yes
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
; "ArchitecturesInstallIn64BitMode=x64" requests that the install be
|
||||
; done in "64-bit mode" on x64, meaning it should use the native
|
||||
; 64-bit Program Files directory and the 64-bit view of the registry.
|
||||
; On all other architectures it will install in "32-bit mode".
|
||||
ArchitecturesInstallIn64BitMode=x64
|
||||
; Note: We don't set ProcessorsAllowed because we want this
|
||||
; installation to run on all architectures (including Itanium,
|
||||
; since it's capable of running 32-bit code too).
|
||||
|
||||
[Files]
|
||||
; Install MyProg-x64.exe if running in 64-bit mode (x64; see above),
|
||||
; MyProg.exe otherwise.
|
||||
Source: "MyProg-x64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"; Check: Is64BitInstallMode
|
||||
Source: "MyProg.exe"; DestDir: "{app}"; Check: not Is64BitInstallMode
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
310
Greenshot/tools/innosetup/Examples/CodeAutomation.iss
Normal file
310
Greenshot/tools/innosetup/Examples/CodeAutomation.iss
Normal file
|
|
@ -0,0 +1,310 @@
|
|||
; -- CodeAutomation.iss --
|
||||
;
|
||||
; This script shows how to use IDispatch based COM Automation objects.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
CreateAppDir=no
|
||||
DisableProgramGroupPage=yes
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Code]
|
||||
|
||||
{--- SQLDMO ---}
|
||||
|
||||
const
|
||||
SQLServerName = 'localhost';
|
||||
SQLDMOGrowth_MB = 0;
|
||||
|
||||
procedure SQLDMOButtonOnClick(Sender: TObject);
|
||||
var
|
||||
SQLServer, Database, DBFile, LogFile: Variant;
|
||||
IDColumn, NameColumn, Table: Variant;
|
||||
begin
|
||||
if MsgBox('Setup will now connect to Microsoft SQL Server ''' + SQLServerName + ''' via a trusted connection and create a database. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
|
||||
Exit;
|
||||
|
||||
{ Create the main SQLDMO COM Automation object }
|
||||
|
||||
try
|
||||
SQLServer := CreateOleObject('SQLDMO.SQLServer');
|
||||
except
|
||||
RaiseException('Please install Microsoft SQL server connectivity tools first.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
|
||||
end;
|
||||
|
||||
{ Connect to the Microsoft SQL Server }
|
||||
|
||||
SQLServer.LoginSecure := True;
|
||||
SQLServer.Connect(SQLServerName);
|
||||
|
||||
MsgBox('Connected to Microsoft SQL Server ''' + SQLServerName + '''.', mbInformation, mb_Ok);
|
||||
|
||||
{ Setup a database }
|
||||
|
||||
Database := CreateOleObject('SQLDMO.Database');
|
||||
Database.Name := 'Inno Setup';
|
||||
|
||||
DBFile := CreateOleObject('SQLDMO.DBFile');
|
||||
DBFile.Name := 'ISData1';
|
||||
DBFile.PhysicalName := 'c:\program files\microsoft sql server\mssql\data\IS.mdf';
|
||||
DBFile.PrimaryFile := True;
|
||||
DBFile.FileGrowthType := SQLDMOGrowth_MB;
|
||||
DBFile.FileGrowth := 1;
|
||||
|
||||
Database.FileGroups.Item('PRIMARY').DBFiles.Add(DBFile);
|
||||
|
||||
LogFile := CreateOleObject('SQLDMO.LogFile');
|
||||
LogFile.Name := 'ISLog1';
|
||||
LogFile.PhysicalName := 'c:\program files\microsoft sql server\mssql\data\IS.ldf';
|
||||
|
||||
Database.TransactionLog.LogFiles.Add(LogFile);
|
||||
|
||||
{ Add the database }
|
||||
|
||||
SQLServer.Databases.Add(Database);
|
||||
|
||||
MsgBox('Added database ''' + Database.Name + '''.', mbInformation, mb_Ok);
|
||||
|
||||
{ Setup some columns }
|
||||
|
||||
IDColumn := CreateOleObject('SQLDMO.Column');
|
||||
IDColumn.Name := 'id';
|
||||
IDColumn.Datatype := 'int';
|
||||
IDColumn.Identity := True;
|
||||
IDColumn.IdentityIncrement := 1;
|
||||
IDColumn.IdentitySeed := 1;
|
||||
IDColumn.AllowNulls := False;
|
||||
|
||||
NameColumn := CreateOleObject('SQLDMO.Column');
|
||||
NameColumn.Name := 'name';
|
||||
NameColumn.Datatype := 'varchar';
|
||||
NameColumn.Length := '64';
|
||||
NameColumn.AllowNulls := False;
|
||||
|
||||
{ Setup a table }
|
||||
|
||||
Table := CreateOleObject('SQLDMO.Table');
|
||||
Table.Name := 'authors';
|
||||
Table.FileGroup := 'PRIMARY';
|
||||
|
||||
{ Add the columns and the table }
|
||||
|
||||
Table.Columns.Add(IDColumn);
|
||||
Table.Columns.Add(NameColumn);
|
||||
|
||||
Database.Tables.Add(Table);
|
||||
|
||||
MsgBox('Added table ''' + Table.Name + '''.', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
{--- IIS ---}
|
||||
|
||||
const
|
||||
IISServerName = 'localhost';
|
||||
IISServerNumber = '1';
|
||||
IISURL = 'http://127.0.0.1';
|
||||
|
||||
procedure IISButtonOnClick(Sender: TObject);
|
||||
var
|
||||
IIS, WebSite, WebServer, WebRoot, VDir: Variant;
|
||||
ErrorCode: Integer;
|
||||
begin
|
||||
if MsgBox('Setup will now connect to Microsoft IIS Server ''' + IISServerName + ''' and create a virtual directory. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
|
||||
Exit;
|
||||
|
||||
{ Create the main IIS COM Automation object }
|
||||
|
||||
try
|
||||
IIS := CreateOleObject('IISNamespace');
|
||||
except
|
||||
RaiseException('Please install Microsoft IIS first.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
|
||||
end;
|
||||
|
||||
{ Connect to the IIS server }
|
||||
|
||||
WebSite := IIS.GetObject('IIsWebService', IISServerName + '/w3svc');
|
||||
WebServer := WebSite.GetObject('IIsWebServer', IISServerNumber);
|
||||
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
|
||||
|
||||
{ (Re)create a virtual dir }
|
||||
|
||||
try
|
||||
WebRoot.Delete('IIsWebVirtualDir', 'innosetup');
|
||||
WebRoot.SetInfo();
|
||||
except
|
||||
end;
|
||||
|
||||
VDir := WebRoot.Create('IIsWebVirtualDir', 'innosetup');
|
||||
VDir.AccessRead := True;
|
||||
VDir.AppFriendlyName := 'Inno Setup';
|
||||
VDir.Path := 'C:\inetpub\innosetup';
|
||||
VDir.AppCreate(True);
|
||||
VDir.SetInfo();
|
||||
|
||||
MsgBox('Created virtual directory ''' + VDir.Path + '''.', mbInformation, mb_Ok);
|
||||
|
||||
{ Write some html and display it }
|
||||
|
||||
if MsgBox('Setup will now write some HTML and display the virtual directory. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
|
||||
Exit;
|
||||
|
||||
ForceDirectories(VDir.Path);
|
||||
SaveStringToFile(VDir.Path + '/index.htm', '<html><body>Inno Setup rocks!</body></html>', False);
|
||||
if not ShellExec('open', IISURL + '/innosetup/index.htm', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode) then
|
||||
MsgBox('Can''t display the created virtual directory: ''' + SysErrorMessage(ErrorCode) + '''.', mbError, mb_Ok);
|
||||
end;
|
||||
|
||||
{--- MSXML ---}
|
||||
|
||||
const
|
||||
XMLURL = 'http://cvs.jrsoftware.org/view/*checkout*/ishelp/isxfunc.xml';
|
||||
XMLFileName = 'isxfunc.xml';
|
||||
XMLFileName2 = 'isxfuncmodified.xml';
|
||||
|
||||
procedure MSXMLButtonOnClick(Sender: TObject);
|
||||
var
|
||||
XMLHTTP, XMLDoc, NewNode, RootNode: Variant;
|
||||
Path: String;
|
||||
begin
|
||||
if MsgBox('Setup will now use MSXML to download XML file ''' + XMLURL + ''' and save it to disk.'#13#13'Setup will then load, modify and save this XML file. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
|
||||
Exit;
|
||||
|
||||
{ Create the main MSXML COM Automation object }
|
||||
|
||||
try
|
||||
XMLHTTP := CreateOleObject('MSXML2.ServerXMLHTTP');
|
||||
except
|
||||
RaiseException('Please install MSXML first.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
|
||||
end;
|
||||
|
||||
{ Download the XML file }
|
||||
|
||||
XMLHTTP.Open('GET', XMLURL, False);
|
||||
XMLHTTP.Send();
|
||||
|
||||
Path := ExpandConstant('{src}\');
|
||||
XMLHTTP.responseXML.Save(Path + XMLFileName);
|
||||
|
||||
MsgBox('Downloaded the XML file and saved it as ''' + XMLFileName + '''.', mbInformation, mb_Ok);
|
||||
|
||||
{ Load the XML File }
|
||||
|
||||
XMLDoc := CreateOleObject('MSXML2.DOMDocument');
|
||||
XMLDoc.async := False;
|
||||
XMLDoc.resolveExternals := False;
|
||||
XMLDoc.load(Path + XMLFileName);
|
||||
if XMLDoc.parseError.errorCode <> 0 then
|
||||
RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);
|
||||
|
||||
MsgBox('Loaded the XML file.', mbInformation, mb_Ok);
|
||||
|
||||
{ Modify the XML document }
|
||||
|
||||
NewNode := XMLDoc.createElement('isxdemo');
|
||||
RootNode := XMLDoc.documentElement;
|
||||
RootNode.appendChild(NewNode);
|
||||
RootNode.lastChild.text := 'Hello, World';
|
||||
|
||||
{ Save the XML document }
|
||||
|
||||
XMLDoc.Save(Path + XMLFileName2);
|
||||
|
||||
MsgBox('Saved the modified XML as ''' + XMLFileName2 + '''.', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
|
||||
{--- Word ---}
|
||||
|
||||
procedure WordButtonOnClick(Sender: TObject);
|
||||
var
|
||||
Word: Variant;
|
||||
begin
|
||||
if MsgBox('Setup will now check whether Microsoft Word is running. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
|
||||
Exit;
|
||||
|
||||
{ Try to get an active Word COM Automation object }
|
||||
|
||||
try
|
||||
Word := GetActiveOleObject('Word.Application');
|
||||
except
|
||||
end;
|
||||
|
||||
if VarIsEmpty(Word) then
|
||||
MsgBox('Microsoft Word is not running.', mbInformation, mb_Ok)
|
||||
else
|
||||
MsgBox('Microsoft Word is running.', mbInformation, mb_Ok)
|
||||
end;
|
||||
|
||||
{--- Windows Firewall ---}
|
||||
|
||||
const
|
||||
NET_FW_IP_VERSION_ANY = 2;
|
||||
NET_FW_SCOPE_ALL = 0;
|
||||
|
||||
procedure FirewallButtonOnClick(Sender: TObject);
|
||||
var
|
||||
Firewall, Application: Variant;
|
||||
begin
|
||||
if MsgBox('Setup will now add itself to Windows Firewall as an authorized application for the current profile (' + GetUserNameString + '). Do you want to continue?', mbInformation, mb_YesNo) = idNo then
|
||||
Exit;
|
||||
|
||||
{ Create the main Windows Firewall COM Automation object }
|
||||
|
||||
try
|
||||
Firewall := CreateOleObject('HNetCfg.FwMgr');
|
||||
except
|
||||
RaiseException('Please install Windows Firewall first.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
|
||||
end;
|
||||
|
||||
{ Add the authorization }
|
||||
|
||||
Application := CreateOleObject('HNetCfg.FwAuthorizedApplication');
|
||||
Application.Name := 'Setup';
|
||||
Application.IPVersion := NET_FW_IP_VERSION_ANY;
|
||||
Application.ProcessImageFileName := ExpandConstant('{srcexe}');
|
||||
Application.Scope := NET_FW_SCOPE_ALL;
|
||||
Application.Enabled := True;
|
||||
|
||||
Firewall.LocalPolicy.CurrentProfile.AuthorizedApplications.Add(Application);
|
||||
|
||||
MsgBox('Setup is now an authorized application for the current profile', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
{---}
|
||||
|
||||
procedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent);
|
||||
begin
|
||||
with TButton.Create(WizardForm) do begin
|
||||
Left := ALeft;
|
||||
Top := ATop;
|
||||
Width := WizardForm.CancelButton.Width;
|
||||
Height := WizardForm.CancelButton.Height;
|
||||
Caption := ACaption;
|
||||
OnClick := ANotifyEvent;
|
||||
Parent := WizardForm.WelcomePage;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure InitializeWizard();
|
||||
var
|
||||
Left, LeftInc, Top, TopInc: Integer;
|
||||
begin
|
||||
Left := WizardForm.WelcomeLabel2.Left;
|
||||
LeftInc := WizardForm.CancelButton.Width + ScaleX(8);
|
||||
TopInc := WizardForm.CancelButton.Height + ScaleY(8);
|
||||
Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - 4*TopInc;
|
||||
|
||||
CreateButton(Left, Top, '&SQLDMO...', @SQLDMOButtonOnClick);
|
||||
CreateButton(Left + LeftInc, Top, '&Firewall...', @FirewallButtonOnClick);
|
||||
Top := Top + TopInc;
|
||||
CreateButton(Left, Top, '&IIS...', @IISButtonOnClick);
|
||||
Top := Top + TopInc;
|
||||
CreateButton(Left, Top, '&MSXML...', @MSXMLButtonOnClick);
|
||||
Top := Top + TopInc;
|
||||
CreateButton(Left, Top, '&Word...', @WordButtonOnClick);
|
||||
end;
|
||||
|
||||
|
||||
298
Greenshot/tools/innosetup/Examples/CodeAutomation2.iss
Normal file
298
Greenshot/tools/innosetup/Examples/CodeAutomation2.iss
Normal file
|
|
@ -0,0 +1,298 @@
|
|||
; -- CodeAutomation2.iss --
|
||||
;
|
||||
; This script shows how to use IUnknown based COM Automation objects.
|
||||
;
|
||||
; REQUIRES UNICODE INNO SETUP!
|
||||
;
|
||||
; Note: some unneeded interface functions which had special types have been replaced
|
||||
; by dummies to avoid having to define those types. Do not remove these dummies as
|
||||
; that would change the function indices which is bad. Also, not all function
|
||||
; protoypes have been tested, only those used by this example.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
CreateAppDir=no
|
||||
DisableProgramGroupPage=yes
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Code]
|
||||
|
||||
{--- IShellLink ---}
|
||||
|
||||
const
|
||||
CLSID_ShellLink = '{00021401-0000-0000-C000-000000000046}';
|
||||
|
||||
type
|
||||
IShellLinkW = interface(IUnknown)
|
||||
'{000214F9-0000-0000-C000-000000000046}'
|
||||
procedure Dummy;
|
||||
procedure Dummy2;
|
||||
procedure Dummy3;
|
||||
function GetDescription(pszName: String; cchMaxName: Integer): HResult;
|
||||
function SetDescription(pszName: String): HResult;
|
||||
function GetWorkingDirectory(pszDir: String; cchMaxPath: Integer): HResult;
|
||||
function SetWorkingDirectory(pszDir: String): HResult;
|
||||
function GetArguments(pszArgs: String; cchMaxPath: Integer): HResult;
|
||||
function SetArguments(pszArgs: String): HResult;
|
||||
function GetHotkey(var pwHotkey: Word): HResult;
|
||||
function SetHotkey(wHotkey: Word): HResult;
|
||||
function GetShowCmd(out piShowCmd: Integer): HResult;
|
||||
function SetShowCmd(iShowCmd: Integer): HResult;
|
||||
function GetIconLocation(pszIconPath: String; cchIconPath: Integer;
|
||||
out piIcon: Integer): HResult;
|
||||
function SetIconLocation(pszIconPath: String; iIcon: Integer): HResult;
|
||||
function SetRelativePath(pszPathRel: String; dwReserved: DWORD): HResult;
|
||||
function Resolve(Wnd: HWND; fFlags: DWORD): HResult;
|
||||
function SetPath(pszFile: String): HResult;
|
||||
end;
|
||||
|
||||
IPersist = interface(IUnknown)
|
||||
'{0000010C-0000-0000-C000-000000000046}'
|
||||
function GetClassID(var classID: TGUID): HResult;
|
||||
end;
|
||||
|
||||
IPersistFile = interface(IPersist)
|
||||
'{0000010B-0000-0000-C000-000000000046}'
|
||||
function IsDirty: HResult;
|
||||
function Load(pszFileName: String; dwMode: Longint): HResult;
|
||||
function Save(pszFileName: String; fRemember: BOOL): HResult;
|
||||
function SaveCompleted(pszFileName: String): HResult;
|
||||
function GetCurFile(out pszFileName: String): HResult;
|
||||
end;
|
||||
|
||||
procedure IShellLinkButtonOnClick(Sender: TObject);
|
||||
var
|
||||
Obj: IUnknown;
|
||||
SL: IShellLinkW;
|
||||
PF: IPersistFile;
|
||||
begin
|
||||
{ Create the main ShellLink COM Automation object }
|
||||
Obj := CreateComObject(StringToGuid(CLSID_ShellLink));
|
||||
|
||||
{ Set the shortcut properties }
|
||||
SL := IShellLinkW(Obj);
|
||||
OleCheck(SL.SetPath(ExpandConstant('{srcexe}')));
|
||||
OleCheck(SL.SetArguments(''));
|
||||
OleCheck(SL.SetShowCmd(SW_SHOWNORMAL));
|
||||
|
||||
{ Save the shortcut }
|
||||
PF := IPersistFile(Obj);
|
||||
OleCheck(PF.Save(ExpandConstant('{commondesktop}\CodeAutomation2 Test.lnk'), True));
|
||||
|
||||
MsgBox('Saved a shortcut named ''CodeAutomation2 Test'' on the common desktop.', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
{--- ITaskScheduler ---}
|
||||
|
||||
const
|
||||
CLSID_TaskScheduler = '{148BD52A-A2AB-11CE-B11F-00AA00530503}';
|
||||
CLSID_Task = '{148BD520-A2AB-11CE-B11F-00AA00530503}';
|
||||
IID_Task = '{148BD524-A2AB-11CE-B11F-00AA00530503}';
|
||||
TASK_TIME_TRIGGER_DAILY = 1;
|
||||
|
||||
type
|
||||
ITaskScheduler = interface(IUnknown)
|
||||
'{148BD527-A2AB-11CE-B11F-00AA00530503}'
|
||||
function SetTargetComputer(pwszComputer: String): HResult;
|
||||
function GetTargetComputer(out ppwszComputer: String): HResult;
|
||||
procedure Dummy;
|
||||
function Activate(pwszName: String; var riid: TGUID; out ppUnk: IUnknown): HResult;
|
||||
function Delete(pwszName: String): HResult;
|
||||
function NewWorkItem(pwszTaskName: String; var rclsid: TGUID; var riid: TGUID; out ppUnk: IUnknown): HResult;
|
||||
procedure Dummy2;
|
||||
function IsOfType(pwszName: String; var riid: TGUID): HResult;
|
||||
end;
|
||||
|
||||
TDaily = record
|
||||
DaysInterval: WORD;
|
||||
end;
|
||||
|
||||
TWeekly = record
|
||||
WeeksInterval: WORD;
|
||||
rgfDaysOfTheWeek: WORD;
|
||||
end;
|
||||
|
||||
TMonthyDate = record
|
||||
rgfDays: DWORD;
|
||||
rgfMonths: WORD;
|
||||
end;
|
||||
|
||||
TMonthlyDow = record
|
||||
wWhichWeek: WORD;
|
||||
rgfDaysOfTheWeek: WORD;
|
||||
rgfMonths: WORD;
|
||||
end;
|
||||
|
||||
{ ROPS doesn't support unions, replace this with the type you need and adjust padding (end size has to be 48). }
|
||||
TTriggerTypeUnion = record
|
||||
Daily: TDaily;
|
||||
Pad1: WORD;
|
||||
Pad2: WORD;
|
||||
Pad3: WORD;
|
||||
end;
|
||||
|
||||
TTaskTrigger = record
|
||||
cbTriggerSize: WORD;
|
||||
Reserved1: WORD;
|
||||
wBeginYear: WORD;
|
||||
wBeginMonth: WORD;
|
||||
wBeginDay: WORD;
|
||||
wEndYear: WORD;
|
||||
wEndMonth: WORD;
|
||||
wEndDay: WORD;
|
||||
wStartHour: WORD;
|
||||
wStartMinute: WORD;
|
||||
MinutesDuration: DWORD;
|
||||
MinutesInterval: DWORD;
|
||||
rgFlags: DWORD;
|
||||
TriggerType: DWORD;
|
||||
Type_: TTriggerTypeUnion;
|
||||
Reserved2: WORD;
|
||||
wRandomMinutesInterval: WORD;
|
||||
end;
|
||||
|
||||
ITaskTrigger = interface(IUnknown)
|
||||
'{148BD52B-A2AB-11CE-B11F-00AA00530503}'
|
||||
function SetTrigger(var pTrigger: TTaskTrigger): HResult;
|
||||
function GetTrigger(var pTrigger: TTaskTrigger): HResult;
|
||||
function GetTriggerString(var ppwszTrigger: String): HResult;
|
||||
end;
|
||||
|
||||
IScheduledWorkItem = interface(IUnknown)
|
||||
'{A6B952F0-A4B1-11D0-997D-00AA006887EC}'
|
||||
function CreateTrigger(out piNewTrigger: Word; out ppTrigger: ITaskTrigger): HResult;
|
||||
function DeleteTrigger(iTrigger: Word): HResult;
|
||||
function GetTriggerCount(out pwCount: Word): HResult;
|
||||
function GetTrigger(iTrigger: Word; var ppTrigger: ITaskTrigger): HResult;
|
||||
function GetTriggerString(iTrigger: Word; out ppwszTrigger: String): HResult;
|
||||
procedure Dummy;
|
||||
procedure Dummy2;
|
||||
function SetIdleWait(wIdleMinutes: Word; wDeadlineMinutes: Word): HResult;
|
||||
function GetIdleWait(out pwIdleMinutes: Word; out pwDeadlineMinutes: Word): HResult;
|
||||
function Run: HResult;
|
||||
function Terminate: HResult;
|
||||
function EditWorkItem(hParent: HWND; dwReserved: DWORD): HResult;
|
||||
procedure Dummy3;
|
||||
function GetStatus(out phrStatus: HResult): HResult;
|
||||
function GetExitCode(out pdwExitCode: DWORD): HResult;
|
||||
function SetComment(pwszComment: String): HResult;
|
||||
function GetComment(out ppwszComment: String): HResult;
|
||||
function SetCreator(pwszCreator: String): HResult;
|
||||
function GetCreator(out ppwszCreator: String): HResult;
|
||||
function SetWorkItemData(cbData: Word; var rgbData: Byte): HResult;
|
||||
function GetWorkItemData(out pcbData: Word; out prgbData: Byte): HResult;
|
||||
function SetErrorRetryCount(wRetryCount: Word): HResult;
|
||||
function GetErrorRetryCount(out pwRetryCount: Word): HResult;
|
||||
function SetErrorRetryInterval(wRetryInterval: Word): HResult;
|
||||
function GetErrorRetryInterval(out pwRetryInterval: Word): HResult;
|
||||
function SetFlags(dwFlags: DWORD): HResult;
|
||||
function GetFlags(out pdwFlags: DWORD): HResult;
|
||||
function SetAccountInformation(pwszAccountName: String; pwszPassword: String): HResult;
|
||||
function GetAccountInformation(out ppwszAccountName: String): HResult;
|
||||
end;
|
||||
|
||||
ITask = interface(IScheduledWorkItem)
|
||||
'{148BD524-A2AB-11CE-B11F-00AA00530503}'
|
||||
function SetApplicationName(pwszApplicationName: String): HResult;
|
||||
function GetApplicationName(out ppwszApplicationName: String): HResult;
|
||||
function SetParameters(pwszParameters: String): HResult;
|
||||
function GetParameters(out ppwszParameters: String): HResult;
|
||||
function SetWorkingDirectory(pwszWorkingDirectory: String): HResult;
|
||||
function GetWorkingDirectory(out ppwszWorkingDirectory: String): HResult;
|
||||
function SetPriority(dwPriority: DWORD): HResult;
|
||||
function GetPriority(out pdwPriority: DWORD): HResult;
|
||||
function SetTaskFlags(dwFlags: DWORD): HResult;
|
||||
function GetTaskFlags(out pdwFlags: DWORD): HResult;
|
||||
function SetMaxRunTime(dwMaxRunTimeMS: DWORD): HResult;
|
||||
function GetMaxRunTime(out pdwMaxRunTimeMS: DWORD): HResult;
|
||||
end;
|
||||
|
||||
|
||||
procedure ITaskSchedulerButtonOnClick(Sender: TObject);
|
||||
var
|
||||
Obj, Obj2: IUnknown;
|
||||
TaskScheduler: ITaskScheduler;
|
||||
G1, G2: TGUID;
|
||||
Task: ITask;
|
||||
iNewTrigger: WORD;
|
||||
TaskTrigger: ITaskTrigger;
|
||||
TaskTrigger2: TTaskTrigger;
|
||||
PF: IPersistFile;
|
||||
begin
|
||||
{ Create the main TaskScheduler COM Automation object }
|
||||
Obj := CreateComObject(StringToGuid(CLSID_TaskScheduler));
|
||||
|
||||
{ Create the Task COM automation object }
|
||||
TaskScheduler := ITaskScheduler(Obj);
|
||||
G1 := StringToGuid(CLSID_Task);
|
||||
G2 := StringToGuid(IID_Task);
|
||||
//This will throw an exception if the task already exists
|
||||
OleCheck(TaskScheduler.NewWorkItem('CodeAutomation2 Test', G1, G2, Obj2));
|
||||
|
||||
{ Set the task properties }
|
||||
Task := ITask(Obj2);
|
||||
OleCheck(Task.SetComment('CodeAutomation2 Test Comment'));
|
||||
OleCheck(Task.SetApplicationName(ExpandConstant('{srcexe}')));
|
||||
|
||||
{ Set the task account information }
|
||||
//Uncomment the following and provide actual user info to get a runnable task
|
||||
//OleCheck(Task.SetAccountInformation('username', 'password'));
|
||||
|
||||
{ Create the TaskTrigger COM automation object }
|
||||
OleCheck(Task.CreateTrigger(iNewTrigger, TaskTrigger));
|
||||
|
||||
{ Set the task trigger properties }
|
||||
with TaskTrigger2 do begin
|
||||
cbTriggerSize := SizeOf(TaskTrigger2);
|
||||
wBeginYear := 2009;
|
||||
wBeginMonth := 10;
|
||||
wBeginDay := 1;
|
||||
wStartHour := 12;
|
||||
TriggerType := TASK_TIME_TRIGGER_DAILY;
|
||||
Type_.Daily.DaysInterval := 1;
|
||||
end;
|
||||
OleCheck(TaskTrigger.SetTrigger(TaskTrigger2));
|
||||
|
||||
{ Save the task }
|
||||
PF := IPersistFile(Obj2);
|
||||
OleCheck(PF.Save('', True));
|
||||
|
||||
MsgBox('Created a daily task named named ''CodeAutomation2 Test''.' + #13#13 + 'Note: Account information not set so the task won''t actually run, uncomment the SetAccountInfo call and provide actual user info to get a runnable task.', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
{---}
|
||||
|
||||
procedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent);
|
||||
begin
|
||||
with TButton.Create(WizardForm) do begin
|
||||
Left := ALeft;
|
||||
Top := ATop;
|
||||
Width := (WizardForm.CancelButton.Width*3)/2;
|
||||
Height := WizardForm.CancelButton.Height;
|
||||
Caption := ACaption;
|
||||
OnClick := ANotifyEvent;
|
||||
Parent := WizardForm.WelcomePage;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure InitializeWizard();
|
||||
var
|
||||
Left, LeftInc, Top, TopInc: Integer;
|
||||
begin
|
||||
Left := WizardForm.WelcomeLabel2.Left;
|
||||
LeftInc := (WizardForm.CancelButton.Width*3)/2 + ScaleX(8);
|
||||
TopInc := WizardForm.CancelButton.Height + ScaleY(8);
|
||||
Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - 4*TopInc;
|
||||
|
||||
CreateButton(Left, Top, '&IShellLink...', @IShellLinkButtonOnClick);
|
||||
Top := Top + TopInc;
|
||||
CreateButton(Left, Top, '&ITaskScheduler...', @ITaskSchedulerButtonOnClick);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
331
Greenshot/tools/innosetup/Examples/CodeClasses.iss
Normal file
331
Greenshot/tools/innosetup/Examples/CodeClasses.iss
Normal file
|
|
@ -0,0 +1,331 @@
|
|||
; -- CodeClasses.iss --
|
||||
;
|
||||
; This script shows how to use the WizardForm object and the various VCL classes.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
CreateAppDir=no
|
||||
DisableProgramGroupPage=yes
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
WindowVisible=yes
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: compiler:WizModernSmallImage.bmp; Flags: dontcopy
|
||||
|
||||
[Code]
|
||||
procedure ButtonOnClick(Sender: TObject);
|
||||
begin
|
||||
MsgBox('You clicked the button!', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
procedure FormButtonOnClick(Sender: TObject);
|
||||
var
|
||||
Form: TSetupForm;
|
||||
OKButton, CancelButton: TNewButton;
|
||||
begin
|
||||
Form := CreateCustomForm();
|
||||
try
|
||||
Form.ClientWidth := ScaleX(256);
|
||||
Form.ClientHeight := ScaleY(256);
|
||||
Form.Caption := 'TSetupForm';
|
||||
Form.CenterInsideControl(WizardForm, False);
|
||||
|
||||
OKButton := TNewButton.Create(Form);
|
||||
OKButton.Parent := Form;
|
||||
OKButton.Width := ScaleX(75);
|
||||
OKButton.Height := ScaleY(23);
|
||||
OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 10);
|
||||
OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
|
||||
OKButton.Caption := 'OK';
|
||||
OKButton.ModalResult := mrOk;
|
||||
|
||||
CancelButton := TNewButton.Create(Form);
|
||||
CancelButton.Parent := Form;
|
||||
CancelButton.Width := ScaleX(75);
|
||||
CancelButton.Height := ScaleY(23);
|
||||
CancelButton.Left := Form.ClientWidth - ScaleX(75 + 10);
|
||||
CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
|
||||
CancelButton.Caption := 'Cancel';
|
||||
CancelButton.ModalResult := mrCancel;
|
||||
CancelButton.Cancel := True;
|
||||
|
||||
Form.ActiveControl := OKButton;
|
||||
|
||||
if Form.ShowModal() = mrOk then
|
||||
MsgBox('You clicked OK.', mbInformation, MB_OK);
|
||||
finally
|
||||
Form.Free();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CreateTheWizardPages;
|
||||
var
|
||||
Page: TWizardPage;
|
||||
Button, FormButton: TNewButton;
|
||||
Panel: TPanel;
|
||||
CheckBox: TNewCheckBox;
|
||||
Edit: TNewEdit;
|
||||
PasswordEdit: TPasswordEdit;
|
||||
Memo: TNewMemo;
|
||||
ComboBox: TNewComboBox;
|
||||
ListBox: TNewListBox;
|
||||
StaticText, ProgressBarLabel: TNewStaticText;
|
||||
ProgressBar: TNewProgressBar;
|
||||
CheckListBox, CheckListBox2: TNewCheckListBox;
|
||||
FolderTreeView: TFolderTreeView;
|
||||
BitmapImage, BitmapImage2, BitmapImage3: TBitmapImage;
|
||||
BitmapFileName: String;
|
||||
RichEditViewer: TRichEditViewer;
|
||||
begin
|
||||
{ TButton and others }
|
||||
|
||||
Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TButton and others');
|
||||
|
||||
Button := TNewButton.Create(Page);
|
||||
Button.Width := ScaleX(75);
|
||||
Button.Height := ScaleY(23);
|
||||
Button.Caption := 'TNewButton';
|
||||
Button.OnClick := @ButtonOnClick;
|
||||
Button.Parent := Page.Surface;
|
||||
|
||||
Panel := TPanel.Create(Page);
|
||||
Panel.Width := Page.SurfaceWidth div 2 - ScaleX(8);
|
||||
Panel.Left := Page.SurfaceWidth - Panel.Width;
|
||||
Panel.Height := Button.Height * 2;
|
||||
Panel.Caption := 'TPanel';
|
||||
Panel.Color := clWindow;
|
||||
Panel.ParentBackground := False;
|
||||
Panel.Parent := Page.Surface;
|
||||
|
||||
CheckBox := TNewCheckBox.Create(Page);
|
||||
CheckBox.Top := Button.Top + Button.Height + ScaleY(8);
|
||||
CheckBox.Width := Page.SurfaceWidth div 2;
|
||||
CheckBox.Height := ScaleY(17);
|
||||
CheckBox.Caption := 'TNewCheckBox';
|
||||
CheckBox.Checked := True;
|
||||
CheckBox.Parent := Page.Surface;
|
||||
|
||||
Edit := TNewEdit.Create(Page);
|
||||
Edit.Top := CheckBox.Top + CheckBox.Height + ScaleY(8);
|
||||
Edit.Width := Page.SurfaceWidth div 2 - ScaleX(8);
|
||||
Edit.Text := 'TNewEdit';
|
||||
Edit.Parent := Page.Surface;
|
||||
|
||||
PasswordEdit := TPasswordEdit.Create(Page);
|
||||
PasswordEdit.Left := Page.SurfaceWidth - Edit.Width;
|
||||
PasswordEdit.Top := CheckBox.Top + CheckBox.Height + ScaleY(8);
|
||||
PasswordEdit.Width := Edit.Width;
|
||||
PasswordEdit.Text := 'TPasswordEdit';
|
||||
PasswordEdit.Parent := Page.Surface;
|
||||
|
||||
Memo := TNewMemo.Create(Page);
|
||||
Memo.Top := Edit.Top + Edit.Height + ScaleY(8);
|
||||
Memo.Width := Page.SurfaceWidth;
|
||||
Memo.Height := ScaleY(89);
|
||||
Memo.ScrollBars := ssVertical;
|
||||
Memo.Text := 'TNewMemo';
|
||||
Memo.Parent := Page.Surface;
|
||||
|
||||
FormButton := TNewButton.Create(Page);
|
||||
FormButton.Top := Memo.Top + Memo.Height + ScaleY(8);
|
||||
FormButton.Width := ScaleX(75);
|
||||
FormButton.Height := ScaleY(23);
|
||||
FormButton.Caption := 'TSetupForm';
|
||||
FormButton.OnClick := @FormButtonOnClick;
|
||||
FormButton.Parent := Page.Surface;
|
||||
|
||||
{ TComboBox and others }
|
||||
|
||||
Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TComboBox and others');
|
||||
|
||||
ComboBox := TNewComboBox.Create(Page);
|
||||
ComboBox.Width := Page.SurfaceWidth;
|
||||
ComboBox.Parent := Page.Surface;
|
||||
ComboBox.Style := csDropDownList;
|
||||
ComboBox.Items.Add('TComboBox');
|
||||
ComboBox.ItemIndex := 0;
|
||||
|
||||
ListBox := TNewListBox.Create(Page);
|
||||
ListBox.Top := ComboBox.Top + ComboBox.Height + ScaleY(8);
|
||||
ListBox.Width := Page.SurfaceWidth;
|
||||
ListBox.Height := ScaleY(97);
|
||||
ListBox.Parent := Page.Surface;
|
||||
ListBox.Items.Add('TListBox');
|
||||
ListBox.ItemIndex := 0;
|
||||
|
||||
StaticText := TNewStaticText.Create(Page);
|
||||
StaticText.Top := ListBox.Top + ListBox.Height + ScaleY(8);
|
||||
StaticText.Caption := 'TNewStaticText';
|
||||
StaticText.AutoSize := True;
|
||||
StaticText.Parent := Page.Surface;
|
||||
|
||||
ProgressBarLabel := TNewStaticText.Create(Page);
|
||||
ProgressBarLabel.Top := StaticText.Top + StaticText.Height + ScaleY(8);
|
||||
ProgressBarLabel.Caption := 'TNewProgressBar';
|
||||
ProgressBarLabel.AutoSize := True;
|
||||
ProgressBarLabel.Parent := Page.Surface;
|
||||
|
||||
ProgressBar := TNewProgressBar.Create(Page);
|
||||
ProgressBar.Left := ProgressBarLabel.Width + ScaleX(8);
|
||||
ProgressBar.Top := ProgressBarLabel.Top;
|
||||
ProgressBar.Width := Page.SurfaceWidth - ProgressBar.Left;
|
||||
ProgressBar.Height := ProgressBarLabel.Height + ScaleY(8);
|
||||
ProgressBar.Parent := Page.Surface;
|
||||
ProgressBar.Position := 25;
|
||||
|
||||
{ TNewCheckListBox }
|
||||
|
||||
Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TNewCheckListBox');
|
||||
|
||||
CheckListBox := TNewCheckListBox.Create(Page);
|
||||
CheckListBox.Width := Page.SurfaceWidth;
|
||||
CheckListBox.Height := ScaleY(97);
|
||||
CheckListBox.Flat := True;
|
||||
CheckListBox.Parent := Page.Surface;
|
||||
CheckListBox.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);
|
||||
CheckListBox.AddRadioButton('TNewCheckListBox', '', 1, True, True, nil);
|
||||
CheckListBox.AddRadioButton('TNewCheckListBox', '', 1, False, True, nil);
|
||||
CheckListBox.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);
|
||||
|
||||
CheckListBox2 := TNewCheckListBox.Create(Page);
|
||||
CheckListBox2.Top := CheckListBox.Top + CheckListBox.Height + ScaleY(8);
|
||||
CheckListBox2.Width := Page.SurfaceWidth;
|
||||
CheckListBox2.Height := ScaleY(97);
|
||||
CheckListBox2.BorderStyle := bsNone;
|
||||
CheckListBox2.ParentColor := True;
|
||||
CheckListBox2.MinItemHeight := WizardForm.TasksList.MinItemHeight;
|
||||
CheckListBox2.ShowLines := False;
|
||||
CheckListBox2.WantTabs := True;
|
||||
CheckListBox2.Parent := Page.Surface;
|
||||
CheckListBox2.AddGroup('TNewCheckListBox', '', 0, nil);
|
||||
CheckListBox2.AddRadioButton('TNewCheckListBox', '', 0, True, True, nil);
|
||||
CheckListBox2.AddRadioButton('TNewCheckListBox', '', 0, False, True, nil);
|
||||
|
||||
{ TFolderTreeView }
|
||||
|
||||
Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TFolderTreeView');
|
||||
|
||||
FolderTreeView := TFolderTreeView.Create(Page);
|
||||
FolderTreeView.Width := Page.SurfaceWidth;
|
||||
FolderTreeView.Height := Page.SurfaceHeight;
|
||||
FolderTreeView.Parent := Page.Surface;
|
||||
FolderTreeView.Directory := ExpandConstant('{src}');
|
||||
|
||||
{ TBitmapImage }
|
||||
|
||||
Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TBitmapImage');
|
||||
|
||||
BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
|
||||
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
|
||||
|
||||
BitmapImage := TBitmapImage.Create(Page);
|
||||
BitmapImage.AutoSize := True;
|
||||
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
|
||||
BitmapImage.Parent := Page.Surface;
|
||||
|
||||
BitmapImage2 := TBitmapImage.Create(Page);
|
||||
BitmapImage2.BackColor := $400000;
|
||||
BitmapImage2.Bitmap := BitmapImage.Bitmap;
|
||||
BitmapImage2.Center := True;
|
||||
BitmapImage2.Left := BitmapImage.Width + 10;
|
||||
BitmapImage2.Height := 2*BitmapImage.Height;
|
||||
BitmapImage2.Width := 2*BitmapImage.Width;
|
||||
BitmapImage2.Parent := Page.Surface;
|
||||
|
||||
BitmapImage3 := TBitmapImage.Create(Page);
|
||||
BitmapImage3.Bitmap := BitmapImage.Bitmap;
|
||||
BitmapImage3.Stretch := True;
|
||||
BitmapImage3.Left := 3*BitmapImage.Width + 20;
|
||||
BitmapImage3.Height := 4*BitmapImage.Height;
|
||||
BitmapImage3.Width := 4*BitmapImage.Width;
|
||||
BitmapImage3.Parent := Page.Surface;
|
||||
|
||||
{ TRichViewer }
|
||||
|
||||
Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TRichViewer');
|
||||
|
||||
RichEditViewer := TRichEditViewer.Create(Page);
|
||||
RichEditViewer.Width := Page.SurfaceWidth;
|
||||
RichEditViewer.Height := Page.SurfaceHeight;
|
||||
RichEditViewer.Parent := Page.Surface;
|
||||
RichEditViewer.ScrollBars := ssVertical;
|
||||
RichEditViewer.UseRichEdit := True;
|
||||
RichEditViewer.RTFText := '{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\colortbl ;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue128;}\viewkind4\uc1\pard\f0\fs20 T\cf1 Rich\cf2 Edit\cf3 Viewer\cf0\par}';
|
||||
RichEditViewer.ReadOnly := True;
|
||||
end;
|
||||
|
||||
procedure AboutButtonOnClick(Sender: TObject);
|
||||
begin
|
||||
MsgBox('This demo shows some features of the various form objects and control classes.', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
procedure URLLabelOnClick(Sender: TObject);
|
||||
var
|
||||
ErrorCode: Integer;
|
||||
begin
|
||||
ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
|
||||
end;
|
||||
|
||||
procedure CreateAboutButtonAndURLLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
|
||||
var
|
||||
AboutButton: TNewButton;
|
||||
URLLabel: TNewStaticText;
|
||||
begin
|
||||
AboutButton := TNewButton.Create(ParentForm);
|
||||
AboutButton.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
|
||||
AboutButton.Top := CancelButton.Top;
|
||||
AboutButton.Width := CancelButton.Width;
|
||||
AboutButton.Height := CancelButton.Height;
|
||||
AboutButton.Caption := '&About...';
|
||||
AboutButton.OnClick := @AboutButtonOnClick;
|
||||
AboutButton.Parent := ParentForm;
|
||||
|
||||
URLLabel := TNewStaticText.Create(ParentForm);
|
||||
URLLabel.Caption := 'www.innosetup.com';
|
||||
URLLabel.Cursor := crHand;
|
||||
URLLabel.OnClick := @URLLabelOnClick;
|
||||
URLLabel.Parent := ParentForm;
|
||||
{ Alter Font *after* setting Parent so the correct defaults are inherited first }
|
||||
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
|
||||
URLLabel.Font.Color := clBlue;
|
||||
URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
|
||||
URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
|
||||
end;
|
||||
|
||||
procedure InitializeWizard();
|
||||
var
|
||||
BackgroundBitmapImage: TBitmapImage;
|
||||
BackgroundBitmapText: TNewStaticText;
|
||||
begin
|
||||
{ Custom wizard pages }
|
||||
|
||||
CreateTheWizardPages;
|
||||
|
||||
{ Custom controls }
|
||||
|
||||
CreateAboutButtonAndURLLabel(WizardForm, WizardForm.CancelButton);
|
||||
|
||||
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
|
||||
BackgroundBitmapImage.Left := 50;
|
||||
BackgroundBitmapImage.Top := 90;
|
||||
BackgroundBitmapImage.AutoSize := True;
|
||||
BackgroundBitmapImage.Bitmap := WizardForm.WizardBitmapImage.Bitmap;
|
||||
BackgroundBitmapImage.Parent := MainForm;
|
||||
|
||||
BackgroundBitmapText := TNewStaticText.Create(MainForm);
|
||||
BackgroundBitmapText.Left := BackgroundBitmapImage.Left;
|
||||
BackgroundBitmapText.Top := BackgroundBitmapImage.Top + BackgroundBitmapImage.Height + ScaleY(8);
|
||||
BackgroundBitmapText.Caption := 'TBitmapImage';
|
||||
BackgroundBitmapText.Parent := MainForm;
|
||||
end;
|
||||
|
||||
procedure InitializeUninstallProgressForm();
|
||||
begin
|
||||
{ Custom controls }
|
||||
|
||||
CreateAboutButtonAndURLLabel(UninstallProgressForm, UninstallProgressForm.CancelButton);
|
||||
end;
|
||||
|
||||
204
Greenshot/tools/innosetup/Examples/CodeDlg.iss
Normal file
204
Greenshot/tools/innosetup/Examples/CodeDlg.iss
Normal file
|
|
@ -0,0 +1,204 @@
|
|||
; -- CodeDlg.iss --
|
||||
;
|
||||
; This script shows how to insert custom wizard pages into Setup and how to handle
|
||||
; these pages. Furthermore it shows how to 'communicate' between the [Code] section
|
||||
; and the regular Inno Setup sections using {code:...} constants. Finally it shows
|
||||
; how to customize the settings text on the 'Ready To Install' page.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DisableProgramGroupPage=yes
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Registry]
|
||||
Root: HKCU; Subkey: "Software\My Company"; Flags: uninsdeletekeyifempty
|
||||
Root: HKCU; Subkey: "Software\My Company\My Program"; Flags: uninsdeletekey
|
||||
Root: HKCU; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "Name"; ValueData: "{code:GetUser|Name}"
|
||||
Root: HKCU; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "Company"; ValueData: "{code:GetUser|Company}"
|
||||
Root: HKCU; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "DataDir"; ValueData: "{code:GetDataDir}"
|
||||
; etc.
|
||||
|
||||
[Dirs]
|
||||
Name: {code:GetDataDir}; Flags: uninsneveruninstall
|
||||
|
||||
[Code]
|
||||
var
|
||||
UserPage: TInputQueryWizardPage;
|
||||
UsagePage: TInputOptionWizardPage;
|
||||
LightMsgPage: TOutputMsgWizardPage;
|
||||
KeyPage: TInputQueryWizardPage;
|
||||
ProgressPage: TOutputProgressWizardPage;
|
||||
DataDirPage: TInputDirWizardPage;
|
||||
|
||||
procedure InitializeWizard;
|
||||
begin
|
||||
{ Create the pages }
|
||||
|
||||
UserPage := CreateInputQueryPage(wpWelcome,
|
||||
'Personal Information', 'Who are you?',
|
||||
'Please specify your name and the company for whom you work, then click Next.');
|
||||
UserPage.Add('Name:', False);
|
||||
UserPage.Add('Company:', False);
|
||||
|
||||
UsagePage := CreateInputOptionPage(UserPage.ID,
|
||||
'Personal Information', 'How will you use My Program?',
|
||||
'Please specify how you would like to use My Program, then click Next.',
|
||||
True, False);
|
||||
UsagePage.Add('Light mode (no ads, limited functionality)');
|
||||
UsagePage.Add('Sponsored mode (with ads, full functionality)');
|
||||
UsagePage.Add('Paid mode (no ads, full functionality)');
|
||||
|
||||
LightMsgPage := CreateOutputMsgPage(UsagePage.ID,
|
||||
'Personal Information', 'How will you use My Program?',
|
||||
'Note: to enjoy all features My Program can offer and to support its development, ' +
|
||||
'you can switch to sponsored or paid mode at any time by selecting ''Usage Mode'' ' +
|
||||
'in the ''Help'' menu of My Program after the installation has completed.'#13#13 +
|
||||
'Click Back if you want to change your usage mode setting now, or click Next to ' +
|
||||
'continue with the installation.');
|
||||
|
||||
KeyPage := CreateInputQueryPage(UsagePage.ID,
|
||||
'Personal Information', 'What''s your registration key?',
|
||||
'Please specify your registration key and click Next to continue. If you don''t ' +
|
||||
'have a valid registration key, click Back to choose a different usage mode.');
|
||||
KeyPage.Add('Registration key:', False);
|
||||
|
||||
ProgressPage := CreateOutputProgressPage('Personal Information',
|
||||
'What''s your registration key?');
|
||||
|
||||
DataDirPage := CreateInputDirPage(wpSelectDir,
|
||||
'Select Personal Data Directory', 'Where should personal data files be installed?',
|
||||
'Select the folder in which Setup should install personal data files, then click Next.',
|
||||
False, '');
|
||||
DataDirPage.Add('');
|
||||
|
||||
{ Set default values, using settings that were stored last time if possible }
|
||||
|
||||
UserPage.Values[0] := GetPreviousData('Name', ExpandConstant('{sysuserinfoname}'));
|
||||
UserPage.Values[1] := GetPreviousData('Company', ExpandConstant('{sysuserinfoorg}'));
|
||||
|
||||
case GetPreviousData('UsageMode', '') of
|
||||
'light': UsagePage.SelectedValueIndex := 0;
|
||||
'sponsored': UsagePage.SelectedValueIndex := 1;
|
||||
'paid': UsagePage.SelectedValueIndex := 2;
|
||||
else
|
||||
UsagePage.SelectedValueIndex := 1;
|
||||
end;
|
||||
|
||||
DataDirPage.Values[0] := GetPreviousData('DataDir', '');
|
||||
end;
|
||||
|
||||
procedure RegisterPreviousData(PreviousDataKey: Integer);
|
||||
var
|
||||
UsageMode: String;
|
||||
begin
|
||||
{ Store the settings so we can restore them next time }
|
||||
SetPreviousData(PreviousDataKey, 'Name', UserPage.Values[0]);
|
||||
SetPreviousData(PreviousDataKey, 'Company', UserPage.Values[1]);
|
||||
case UsagePage.SelectedValueIndex of
|
||||
0: UsageMode := 'light';
|
||||
1: UsageMode := 'sponsored';
|
||||
2: UsageMode := 'paid';
|
||||
end;
|
||||
SetPreviousData(PreviousDataKey, 'UsageMode', UsageMode);
|
||||
SetPreviousData(PreviousDataKey, 'DataDir', DataDirPage.Values[0]);
|
||||
end;
|
||||
|
||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
||||
begin
|
||||
{ Skip pages that shouldn't be shown }
|
||||
if (PageID = LightMsgPage.ID) and (UsagePage.SelectedValueIndex <> 0) then
|
||||
Result := True
|
||||
else if (PageID = KeyPage.ID) and (UsagePage.SelectedValueIndex <> 2) then
|
||||
Result := True
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function NextButtonClick(CurPageID: Integer): Boolean;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
{ Validate certain pages before allowing the user to proceed }
|
||||
if CurPageID = UserPage.ID then begin
|
||||
if UserPage.Values[0] = '' then begin
|
||||
MsgBox('You must enter your name.', mbError, MB_OK);
|
||||
Result := False;
|
||||
end else begin
|
||||
if DataDirPage.Values[0] = '' then
|
||||
DataDirPage.Values[0] := 'C:\' + UserPage.Values[0];
|
||||
Result := True;
|
||||
end;
|
||||
end else if CurPageID = KeyPage.ID then begin
|
||||
{ Just to show how 'OutputProgress' pages work.
|
||||
Always use a try..finally between the Show and Hide calls as shown below. }
|
||||
ProgressPage.SetText('Authorizing registration key...', '');
|
||||
ProgressPage.SetProgress(0, 0);
|
||||
ProgressPage.Show;
|
||||
try
|
||||
for I := 0 to 10 do begin
|
||||
ProgressPage.SetProgress(I, 10);
|
||||
Sleep(100);
|
||||
end;
|
||||
finally
|
||||
ProgressPage.Hide;
|
||||
end;
|
||||
if KeyPage.Values[0] = 'inno' then
|
||||
Result := True
|
||||
else begin
|
||||
MsgBox('You must enter a valid registration key. (Hint: The key is "inno".)', mbError, MB_OK);
|
||||
Result := False;
|
||||
end;
|
||||
end else
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
|
||||
MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
|
||||
var
|
||||
S: String;
|
||||
begin
|
||||
{ Fill the 'Ready Memo' with the normal settings and the custom settings }
|
||||
S := '';
|
||||
S := S + 'Personal Information:' + NewLine;
|
||||
S := S + Space + UserPage.Values[0] + NewLine;
|
||||
if UserPage.Values[1] <> '' then
|
||||
S := S + Space + UserPage.Values[1] + NewLine;
|
||||
S := S + NewLine;
|
||||
|
||||
S := S + 'Usage Mode:' + NewLine + Space;
|
||||
case UsagePage.SelectedValueIndex of
|
||||
0: S := S + 'Light mode';
|
||||
1: S := S + 'Sponsored mode';
|
||||
2: S := S + 'Paid mode';
|
||||
end;
|
||||
S := S + NewLine + NewLine;
|
||||
|
||||
S := S + MemoDirInfo + NewLine;
|
||||
S := S + Space + DataDirPage.Values[0] + ' (personal data files)' + NewLine;
|
||||
|
||||
Result := S;
|
||||
end;
|
||||
|
||||
function GetUser(Param: String): String;
|
||||
begin
|
||||
{ Return a user value }
|
||||
{ Could also be split into separate GetUserName and GetUserCompany functions }
|
||||
if Param = 'Name' then
|
||||
Result := UserPage.Values[0]
|
||||
else if Param = 'Company' then
|
||||
Result := UserPage.Values[1];
|
||||
end;
|
||||
|
||||
function GetDataDir(Param: String): String;
|
||||
begin
|
||||
{ Return the selected DataDir }
|
||||
Result := DataDirPage.Values[0];
|
||||
end;
|
||||
72
Greenshot/tools/innosetup/Examples/CodeDll.iss
Normal file
72
Greenshot/tools/innosetup/Examples/CodeDll.iss
Normal file
|
|
@ -0,0 +1,72 @@
|
|||
; -- CodeDll.iss --
|
||||
;
|
||||
; This script shows how to call DLL functions at runtime from a [Code] section.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DisableProgramGroupPage=yes
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
; Install our DLL to {app} so we can access it at uninstall time
|
||||
; Use "Flags: dontcopy" if you don't need uninstall time access
|
||||
Source: "MyDll.dll"; DestDir: "{app}"
|
||||
|
||||
[Code]
|
||||
const
|
||||
MB_ICONINFORMATION = $40;
|
||||
|
||||
//importing a Windows API function
|
||||
function MessageBox(hWnd: Integer; lpText, lpCaption: AnsiString; uType: Cardinal): Integer;
|
||||
external 'MessageBoxA@user32.dll stdcall';
|
||||
|
||||
//importing a custom DLL function, first for Setup, then for uninstall
|
||||
procedure MyDllFuncSetup(hWnd: Integer; lpText, lpCaption: AnsiString; uType: Cardinal);
|
||||
external 'MyDllFunc@files:MyDll.dll stdcall setuponly';
|
||||
|
||||
procedure MyDllFuncUninstall(hWnd: Integer; lpText, lpCaption: AnsiString; uType: Cardinal);
|
||||
external 'MyDllFunc@{app}\MyDll.dll stdcall uninstallonly';
|
||||
|
||||
//importing a function for a DLL which might not exist at runtime
|
||||
procedure DelayLoadedFunc(hWnd: Integer; lpText, lpCaption: AnsiString; uType: Cardinal);
|
||||
external 'DllFunc@DllWhichMightNotExist.dll stdcall delayload';
|
||||
|
||||
function NextButtonClick(CurPage: Integer): Boolean;
|
||||
var
|
||||
hWnd: Integer;
|
||||
begin
|
||||
if CurPage = wpWelcome then begin
|
||||
hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));
|
||||
|
||||
MessageBox(hWnd, 'Hello from Windows API function', 'MessageBoxA', MB_OK or MB_ICONINFORMATION);
|
||||
|
||||
MyDllFuncSetup(hWnd, 'Hello from custom DLL function', 'MyDllFunc', MB_OK or MB_ICONINFORMATION);
|
||||
|
||||
try
|
||||
//if this DLL does not exist (it shouldn't), an exception will be raised
|
||||
DelayLoadedFunc(hWnd, 'Hello from delay loaded function', 'DllFunc', MB_OK or MB_ICONINFORMATION);
|
||||
except
|
||||
//handle missing dll here
|
||||
end;
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||||
begin
|
||||
// Call our function just before the actual uninstall process begins
|
||||
if CurUninstallStep = usUninstall then
|
||||
begin
|
||||
MyDllFuncUninstall(0, 'Hello from custom DLL function', 'MyDllFunc', MB_OK or MB_ICONINFORMATION);
|
||||
|
||||
// Now that we're finished with it, unload MyDll.dll from memory.
|
||||
// We have to do this so that the uninstaller will be able to remove the DLL and the {app} directory.
|
||||
UnloadDLL(ExpandConstant('{app}\MyDll.dll'));
|
||||
end;
|
||||
end;
|
||||
149
Greenshot/tools/innosetup/Examples/CodeExample1.iss
Normal file
149
Greenshot/tools/innosetup/Examples/CodeExample1.iss
Normal file
|
|
@ -0,0 +1,149 @@
|
|||
; -- CodeExample1.iss --
|
||||
;
|
||||
; This script shows various things you can achieve using a [Code] section
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={code:MyConst}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
InfoBeforeFile=Readme.txt
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"; Check: MyProgCheck; BeforeInstall: BeforeMyProgInstall('MyProg.exe'); AfterInstall: AfterMyProgInstall('MyProg.exe')
|
||||
Source: "MyProg.chm"; DestDir: "{app}"; Check: MyProgCheck; BeforeInstall: BeforeMyProgInstall('MyProg.chm'); AfterInstall: AfterMyProgInstall('MyProg.chm')
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
|
||||
[Code]
|
||||
var
|
||||
MyProgChecked: Boolean;
|
||||
MyProgCheckResult: Boolean;
|
||||
FinishedInstall: Boolean;
|
||||
|
||||
function InitializeSetup(): Boolean;
|
||||
begin
|
||||
Log('InitializeSetup called');
|
||||
Result := MsgBox('InitializeSetup:' #13#13 'Setup is initializing. Do you really want to start setup?', mbConfirmation, MB_YESNO) = idYes;
|
||||
if Result = False then
|
||||
MsgBox('InitializeSetup:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
|
||||
end;
|
||||
|
||||
procedure DeinitializeSetup();
|
||||
var
|
||||
FileName: String;
|
||||
ResultCode: Integer;
|
||||
begin
|
||||
Log('DeinitializeSetup called');
|
||||
if FinishedInstall then begin
|
||||
if MsgBox('DeinitializeSetup:' #13#13 'The [Code] scripting demo has finished. Do you want to uninstall My Program now?', mbConfirmation, MB_YESNO) = idYes then begin
|
||||
FileName := ExpandConstant('{uninstallexe}');
|
||||
if not Exec(FileName, '', '', SW_SHOWNORMAL, ewNoWait, ResultCode) then
|
||||
MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
|
||||
end else
|
||||
MsgBox('DeinitializeSetup:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CurStepChanged(CurStep: TSetupStep);
|
||||
begin
|
||||
Log('CurStepChanged(' + IntToStr(Ord(CurStep)) + ') called');
|
||||
if CurStep = ssPostInstall then
|
||||
FinishedInstall := True;
|
||||
end;
|
||||
|
||||
function NextButtonClick(CurPageID: Integer): Boolean;
|
||||
var
|
||||
ResultCode: Integer;
|
||||
begin
|
||||
Log('NextButtonClick(' + IntToStr(CurPageID) + ') called');
|
||||
case CurPageID of
|
||||
wpSelectDir:
|
||||
MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.', mbInformation, MB_OK);
|
||||
wpSelectProgramGroup:
|
||||
MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.', mbInformation, MB_OK);
|
||||
wpReady:
|
||||
begin
|
||||
if MsgBox('NextButtonClick:' #13#13 'Using the script, files can be extracted before the installation starts. For example we could extract ''MyProg.exe'' now and run it.' #13#13 'Do you want to do this?', mbConfirmation, MB_YESNO) = idYes then begin
|
||||
ExtractTemporaryFile('myprog.exe');
|
||||
if not Exec(ExpandConstant('{tmp}\myprog.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
|
||||
MsgBox('NextButtonClick:' #13#13 'The file could not be executed. ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
|
||||
end;
|
||||
BringToFrontAndRestore();
|
||||
MsgBox('NextButtonClick:' #13#13 'The normal installation will now start.', mbInformation, MB_OK);
|
||||
end;
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function BackButtonClick(CurPageID: Integer): Boolean;
|
||||
begin
|
||||
Log('BackButtonClick(' + IntToStr(CurPageID) + ') called');
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
||||
begin
|
||||
Log('ShouldSkipPage(' + IntToStr(PageID) + ') called');
|
||||
{ Skip wpInfoBefore page; show all others }
|
||||
case PageID of
|
||||
wpInfoBefore:
|
||||
Result := True;
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CurPageChanged(CurPageID: Integer);
|
||||
begin
|
||||
Log('CurPageChanged(' + IntToStr(CurPageID) + ') called');
|
||||
case CurPageID of
|
||||
wpWelcome:
|
||||
MsgBox('CurPageChanged:' #13#13 'Welcome to the [Code] scripting demo. This demo will show you some possibilities of the scripting support.' #13#13 'The scripting engine used is RemObjects Pascal Script by Carlo Kok. See http://www.remobjects.com/ps for more information.', mbInformation, MB_OK);
|
||||
wpFinished:
|
||||
MsgBox('CurPageChanged:' #13#13 'Welcome to final page of this demo. Click Finish to exit.', mbInformation, MB_OK);
|
||||
end;
|
||||
end;
|
||||
|
||||
function PrepareToInstall(var NeedsRestart: Boolean): String;
|
||||
begin
|
||||
Log('PrepareToInstall() called');
|
||||
if MsgBox('PrepareToInstall:' #13#13 'Setup is preparing to install. Using the script you can install any prerequisites, abort Setup on errors, and request restarts. Do you want to return an error now?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = idYes then
|
||||
Result := '<your error text here>.'
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function MyProgCheck(): Boolean;
|
||||
begin
|
||||
Log('MyProgCheck() called');
|
||||
if not MyProgChecked then begin
|
||||
MyProgCheckResult := MsgBox('MyProgCheck:' #13#13 'Using the script you can decide at runtime to include or exclude files from the installation. Do you want to install MyProg.exe and MyProg.chm to ' + ExtractFilePath(CurrentFileName) + '?', mbConfirmation, MB_YESNO) = idYes;
|
||||
MyProgChecked := True;
|
||||
end;
|
||||
Result := MyProgCheckResult;
|
||||
end;
|
||||
|
||||
procedure BeforeMyProgInstall(S: String);
|
||||
begin
|
||||
Log('BeforeMyProgInstall(''' + S + ''') called');
|
||||
MsgBox('BeforeMyProgInstall:' #13#13 'Setup is now going to install ' + S + ' as ' + CurrentFileName + '.', mbInformation, MB_OK);
|
||||
end;
|
||||
|
||||
procedure AfterMyProgInstall(S: String);
|
||||
begin
|
||||
Log('AfterMyProgInstall(''' + S + ''') called');
|
||||
MsgBox('AfterMyProgInstall:' #13#13 'Setup just installed ' + S + ' as ' + CurrentFileName + '.', mbInformation, MB_OK);
|
||||
end;
|
||||
|
||||
function MyConst(Param: String): String;
|
||||
begin
|
||||
Log('MyConst(''' + Param + ''') called');
|
||||
Result := ExpandConstant('{pf}');
|
||||
end;
|
||||
|
||||
117
Greenshot/tools/innosetup/Examples/CodePrepareToInstall.iss
Normal file
117
Greenshot/tools/innosetup/Examples/CodePrepareToInstall.iss
Normal file
|
|
@ -0,0 +1,117 @@
|
|||
; -- CodePrepareToInstall.iss --
|
||||
;
|
||||
; This script shows how the PrepareToInstall event function can be used to
|
||||
; install prerequisites and handle any reboots in between, while remembering
|
||||
; user selections across reboots.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}";
|
||||
Source: "MyProg.chm"; DestDir: "{app}";
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme;
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
|
||||
[Code]
|
||||
const
|
||||
(*** Customize the following to your own name. ***)
|
||||
RunOnceName = 'My Program Setup restart';
|
||||
|
||||
QuitMessageReboot = 'The installation of a prerequisite program was not completed. You will need to restart your computer to complete that installation.'#13#13'After restarting your computer, Setup will continue next time an administrator logs in.';
|
||||
QuitMessageError = 'Error. Cannot continue.';
|
||||
|
||||
var
|
||||
Restarted: Boolean;
|
||||
|
||||
function InitializeSetup(): Boolean;
|
||||
begin
|
||||
Restarted := ExpandConstant('{param:restart|0}') = '1';
|
||||
|
||||
if not Restarted then begin
|
||||
Result := not RegValueExists(HKLM, 'Software\Microsoft\Windows\CurrentVersion\RunOnce', RunOnceName);
|
||||
if not Result then
|
||||
MsgBox(QuitMessageReboot, mbError, mb_Ok);
|
||||
end else
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function DetectAndInstallPrerequisites: Boolean;
|
||||
begin
|
||||
(*** Place your prerequisite detection and installation code below. ***)
|
||||
(*** Return False if missing prerequisites were detected but their installation failed, else return True. ***)
|
||||
|
||||
//<your code here>
|
||||
|
||||
Result := True;
|
||||
|
||||
(*** Remove the following block! Used by this demo to simulate a prerequisite install requiring a reboot. ***)
|
||||
if not Restarted then
|
||||
RestartReplace(ParamStr(0), '');
|
||||
end;
|
||||
|
||||
function Quote(const S: String): String;
|
||||
begin
|
||||
Result := '"' + S + '"';
|
||||
end;
|
||||
|
||||
function AddParam(const S, P, V: String): String;
|
||||
begin
|
||||
if V <> '""' then
|
||||
Result := S + ' /' + P + '=' + V;
|
||||
end;
|
||||
|
||||
function AddSimpleParam(const S, P: String): String;
|
||||
begin
|
||||
Result := S + ' /' + P;
|
||||
end;
|
||||
|
||||
procedure CreateRunOnceEntry;
|
||||
var
|
||||
RunOnceData: String;
|
||||
begin
|
||||
RunOnceData := Quote(ExpandConstant('{srcexe}')) + ' /restart=1';
|
||||
RunOnceData := AddParam(RunOnceData, 'LANG', ExpandConstant('{language}'));
|
||||
RunOnceData := AddParam(RunOnceData, 'DIR', Quote(WizardDirValue));
|
||||
RunOnceData := AddParam(RunOnceData, 'GROUP', Quote(WizardGroupValue));
|
||||
if WizardNoIcons then
|
||||
RunOnceData := AddSimpleParam(RunOnceData, 'NOICONS');
|
||||
RunOnceData := AddParam(RunOnceData, 'TYPE', Quote(WizardSetupType(False)));
|
||||
RunOnceData := AddParam(RunOnceData, 'COMPONENTS', Quote(WizardSelectedComponents(False)));
|
||||
RunOnceData := AddParam(RunOnceData, 'TASKS', Quote(WizardSelectedTasks(False)));
|
||||
|
||||
(*** Place any custom user selection you want to remember below. ***)
|
||||
|
||||
//<your code here>
|
||||
|
||||
RegWriteStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\RunOnce', RunOnceName, RunOnceData);
|
||||
end;
|
||||
|
||||
function PrepareToInstall(var NeedsRestart: Boolean): String;
|
||||
var
|
||||
ChecksumBefore, ChecksumAfter: String;
|
||||
begin
|
||||
ChecksumBefore := MakePendingFileRenameOperationsChecksum;
|
||||
if DetectAndInstallPrerequisites then begin
|
||||
ChecksumAfter := MakePendingFileRenameOperationsChecksum;
|
||||
if ChecksumBefore <> ChecksumAfter then begin
|
||||
CreateRunOnceEntry;
|
||||
NeedsRestart := True;
|
||||
Result := QuitMessageReboot;
|
||||
end;
|
||||
end else
|
||||
Result := QuitMessageError;
|
||||
end;
|
||||
|
||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
||||
begin
|
||||
Result := Restarted;
|
||||
end;
|
||||
|
||||
33
Greenshot/tools/innosetup/Examples/Components.iss
Normal file
33
Greenshot/tools/innosetup/Examples/Components.iss
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
; -- Components.iss --
|
||||
; Demonstrates a components-based installation.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Types]
|
||||
Name: "full"; Description: "Full installation"
|
||||
Name: "compact"; Description: "Compact installation"
|
||||
Name: "custom"; Description: "Custom installation"; Flags: iscustom
|
||||
|
||||
[Components]
|
||||
Name: "program"; Description: "Program Files"; Types: full compact custom; Flags: fixed
|
||||
Name: "help"; Description: "Help File"; Types: full
|
||||
Name: "readme"; Description: "Readme File"; Types: full
|
||||
Name: "readme\en"; Description: "English"; Flags: exclusive
|
||||
Name: "readme\de"; Description: "German"; Flags: exclusive
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"; Components: program
|
||||
Source: "MyProg.chm"; DestDir: "{app}"; Components: help
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Components: readme\en; Flags: isreadme
|
||||
Source: "Readme-German.txt"; DestName: "Liesmich.txt"; DestDir: "{app}"; Components: readme\de; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
22
Greenshot/tools/innosetup/Examples/Example1.iss
Normal file
22
Greenshot/tools/innosetup/Examples/Example1.iss
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
; -- Example1.iss --
|
||||
; Demonstrates copying 3 files and creating an icon.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
Compression=lzma2
|
||||
SolidCompression=yes
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
24
Greenshot/tools/innosetup/Examples/Example2.iss
Normal file
24
Greenshot/tools/innosetup/Examples/Example2.iss
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
; -- Example2.iss --
|
||||
; Same as Example1.iss, but creates its icon in the Programs folder of the
|
||||
; Start Menu instead of in a subfolder, and also creates a desktop icon.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
; Since no icons will be created in "{group}", we don't need the wizard
|
||||
; to ask for a Start Menu folder name:
|
||||
DisableProgramGroupPage=yes
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{commonprograms}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
35
Greenshot/tools/innosetup/Examples/Example3.iss
Normal file
35
Greenshot/tools/innosetup/Examples/Example3.iss
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
; -- Example3.iss --
|
||||
; Same as Example1.iss, but creates some registry entries too.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
|
||||
|
||||
; NOTE: Most apps do not need registry entries to be pre-created. If you
|
||||
; don't know what the registry is or if you need to use it, then chances are
|
||||
; you don't need a [Registry] section.
|
||||
|
||||
[Registry]
|
||||
; Start "Software\My Company\My Program" keys under HKEY_CURRENT_USER
|
||||
; and HKEY_LOCAL_MACHINE. The flags tell it to always delete the
|
||||
; "My Program" keys upon uninstall, and delete the "My Company" keys
|
||||
; if there is nothing left in them.
|
||||
Root: HKCU; Subkey: "Software\My Company"; Flags: uninsdeletekeyifempty
|
||||
Root: HKCU; Subkey: "Software\My Company\My Program"; Flags: uninsdeletekey
|
||||
Root: HKLM; Subkey: "Software\My Company"; Flags: uninsdeletekeyifempty
|
||||
Root: HKLM; Subkey: "Software\My Company\My Program"; Flags: uninsdeletekey
|
||||
Root: HKLM; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "Path"; ValueData: "{app}"
|
||||
46
Greenshot/tools/innosetup/Examples/ISPPExample1.iss
Normal file
46
Greenshot/tools/innosetup/Examples/ISPPExample1.iss
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
; -- ISPPExample1.iss --
|
||||
;
|
||||
; This script shows various basic things you can achieve using Inno Setup Preprocessor (ISPP) by Alex Yackimoff.
|
||||
; To enable commented #define's, either remove the ';' or use ISPPCC with the /D switch.
|
||||
;
|
||||
; To download and install ISPP, get the Inno Setup QuickStart Pack from http://www.jrsoftware.org/isdl.php#qsp
|
||||
|
||||
#pragma option -v+
|
||||
#pragma verboselevel 9
|
||||
|
||||
#define Debug
|
||||
|
||||
;#define AppEnterprise
|
||||
|
||||
#ifdef AppEnterprise
|
||||
#define AppName "My Program Enterprise Edition"
|
||||
#else
|
||||
#define AppName "My Program"
|
||||
#endif
|
||||
|
||||
#define AppVersion GetFileVersion(AddBackslash(SourcePath) + "MyProg.exe")
|
||||
|
||||
[Setup]
|
||||
AppName={#AppName}
|
||||
AppVersion={#AppVersion}
|
||||
DefaultDirName={pf}\{#AppName}
|
||||
DefaultGroupName={#AppName}
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
LicenseFile={#file AddBackslash(SourcePath) + "ISPPExample1License.txt"}
|
||||
VersionInfoVersion={#AppVersion}
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
#ifdef AppEnterprise
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
#endif
|
||||
Source: "Readme.txt"; DestDir: "{app}"; \
|
||||
Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\{#AppName}"; Filename: "{app}\MyProg.exe"
|
||||
|
||||
#ifdef Debug
|
||||
#expr SaveToFile(AddBackslash(SourcePath) + "Preprocessed.iss")
|
||||
#endif
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
#pragma option -e+
|
||||
{#AppName} version {#AppVersion} License
|
||||
|
||||
Bla bla bla
|
||||
59
Greenshot/tools/innosetup/Examples/Languages.iss
Normal file
59
Greenshot/tools/innosetup/Examples/Languages.iss
Normal file
|
|
@ -0,0 +1,59 @@
|
|||
; -- Languages.iss --
|
||||
; Demonstrates a multilingual installation.
|
||||
|
||||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
|
||||
|
||||
[Setup]
|
||||
AppName={cm:MyAppName}
|
||||
AppId=My Program
|
||||
AppVerName={cm:MyAppVerName,1.5}
|
||||
DefaultDirName={pf}\{cm:MyAppName}
|
||||
DefaultGroupName={cm:MyAppName}
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
VersionInfoDescription=My Program Setup
|
||||
VersionInfoProductName=My Program
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
; Uncomment the following line to disable the "Select Setup Language"
|
||||
; dialog and have it rely solely on auto-detection.
|
||||
;ShowLanguageDialog=no
|
||||
; If you want all languages to be listed in the "Select Setup Language"
|
||||
; dialog, even those that can't be displayed in the active code page,
|
||||
; uncomment the following line. Note: Unicode Inno Setup always displays
|
||||
; all languages.
|
||||
;ShowUndisplayableLanguages=yes
|
||||
|
||||
[Languages]
|
||||
Name: en; MessagesFile: "compiler:Default.isl"
|
||||
Name: nl; MessagesFile: "compiler:Languages\Dutch.isl"
|
||||
Name: de; MessagesFile: "compiler:Languages\German.isl"
|
||||
|
||||
[Messages]
|
||||
en.BeveledLabel=English
|
||||
nl.BeveledLabel=Nederlands
|
||||
de.BeveledLabel=Deutsch
|
||||
|
||||
[CustomMessages]
|
||||
en.MyDescription=My description
|
||||
en.MyAppName=My Program
|
||||
en.MyAppVerName=My Program %1
|
||||
nl.MyDescription=Mijn omschrijving
|
||||
nl.MyAppName=Mijn programma
|
||||
nl.MyAppVerName=Mijn programma %1
|
||||
de.MyDescription=Meine Beschreibung
|
||||
de.MyAppName=Meine Anwendung
|
||||
de.MyAppVerName=Meine Anwendung %1
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"; Languages: en
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Languages: en; Flags: isreadme
|
||||
Source: "Readme-Dutch.txt"; DestName: "Leesmij.txt"; DestDir: "{app}"; Languages: nl; Flags: isreadme
|
||||
Source: "Readme-German.txt"; DestName: "Liesmich.txt"; DestDir: "{app}"; Languages: de; Flags: isreadme
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\{cm:MyAppName}"; Filename: "{app}\MyProg.exe"
|
||||
Name: "{group}\{cm:UninstallProgram,{cm:MyAppName}}"; Filename: "{uninstallexe}"
|
||||
|
||||
[Tasks]
|
||||
; The following task doesn't do anything and is only meant to show [CustomMessages] usage
|
||||
Name: mytask; Description: "{cm:MyDescription}"
|
||||
BIN
Greenshot/tools/innosetup/Examples/MyDll.dll
Normal file
BIN
Greenshot/tools/innosetup/Examples/MyDll.dll
Normal file
Binary file not shown.
6
Greenshot/tools/innosetup/Examples/MyDll/C/MyDll.c
Normal file
6
Greenshot/tools/innosetup/Examples/MyDll/C/MyDll.c
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
#include <windows.h>
|
||||
|
||||
void __stdcall MyDllFunc(HWND hWnd, char *lpText, char *lpCaption, UINT uType)
|
||||
{
|
||||
MessageBox(hWnd, lpText, lpCaption, uType);
|
||||
}
|
||||
2
Greenshot/tools/innosetup/Examples/MyDll/C/MyDll.def
Normal file
2
Greenshot/tools/innosetup/Examples/MyDll/C/MyDll.def
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
EXPORTS
|
||||
MyDllFunc
|
||||
76
Greenshot/tools/innosetup/Examples/MyDll/C/MyDll.dsp
Normal file
76
Greenshot/tools/innosetup/Examples/MyDll/C/MyDll.dsp
Normal file
|
|
@ -0,0 +1,76 @@
|
|||
# Microsoft Developer Studio Project File - Name="MyDll" - Package Owner=<4>
|
||||
# Microsoft Developer Studio Generated Build File, Format Version 6.00
|
||||
# ** DO NOT EDIT **
|
||||
|
||||
# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
|
||||
|
||||
CFG=MyDll - Win32 Release
|
||||
!MESSAGE This is not a valid makefile. To build this project using NMAKE,
|
||||
!MESSAGE use the Export Makefile command and run
|
||||
!MESSAGE
|
||||
!MESSAGE NMAKE /f "MyDll.mak".
|
||||
!MESSAGE
|
||||
!MESSAGE You can specify a configuration when running NMAKE
|
||||
!MESSAGE by defining the macro CFG on the command line. For example:
|
||||
!MESSAGE
|
||||
!MESSAGE NMAKE /f "MyDll.mak" CFG="MyDll - Win32 Release"
|
||||
!MESSAGE
|
||||
!MESSAGE Possible choices for configuration are:
|
||||
!MESSAGE
|
||||
!MESSAGE "MyDll - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library")
|
||||
!MESSAGE
|
||||
|
||||
# Begin Project
|
||||
# PROP AllowPerConfigDependencies 0
|
||||
# PROP Scc_ProjName ""
|
||||
# PROP Scc_LocalPath ""
|
||||
CPP=cl.exe
|
||||
MTL=midl.exe
|
||||
RSC=rc.exe
|
||||
# PROP BASE Use_MFC 0
|
||||
# PROP BASE Use_Debug_Libraries 0
|
||||
# PROP BASE Output_Dir "Release"
|
||||
# PROP BASE Intermediate_Dir "Release"
|
||||
# PROP BASE Target_Dir ""
|
||||
# PROP Use_MFC 0
|
||||
# PROP Use_Debug_Libraries 0
|
||||
# PROP Output_Dir "."
|
||||
# PROP Intermediate_Dir "."
|
||||
# PROP Target_Dir ""
|
||||
# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "MYDLL_EXPORTS" /YX /FD /c
|
||||
# ADD CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "MYDLL_EXPORTS" /YX /FD /c
|
||||
# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
|
||||
# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
|
||||
# ADD BASE RSC /l 0x413 /d "NDEBUG"
|
||||
# ADD RSC /l 0x413 /d "NDEBUG"
|
||||
BSC32=bscmake.exe
|
||||
# ADD BASE BSC32 /nologo
|
||||
# ADD BSC32 /nologo
|
||||
LINK32=link.exe
|
||||
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
|
||||
# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
|
||||
# Begin Target
|
||||
|
||||
# Name "MyDll - Win32 Release"
|
||||
# Begin Group "Source Files"
|
||||
|
||||
# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\MyDll.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\MyDll.def
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Header Files"
|
||||
|
||||
# PROP Default_Filter "h;hpp;hxx;hm;inl"
|
||||
# End Group
|
||||
# Begin Group "Resource Files"
|
||||
|
||||
# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
|
||||
# End Group
|
||||
# End Target
|
||||
# End Project
|
||||
14
Greenshot/tools/innosetup/Examples/MyDll/Delphi/MyDll.dpr
Normal file
14
Greenshot/tools/innosetup/Examples/MyDll/Delphi/MyDll.dpr
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
library MyDll;
|
||||
|
||||
uses
|
||||
Windows;
|
||||
|
||||
procedure MyDllFunc(hWnd: Integer; lpText, lpCaption: PAnsiChar; uType: Cardinal); stdcall;
|
||||
begin
|
||||
MessageBoxA(hWnd, lpText, lpCaption, uType);
|
||||
end;
|
||||
|
||||
exports MyDllFunc;
|
||||
|
||||
begin
|
||||
end.
|
||||
BIN
Greenshot/tools/innosetup/Examples/MyProg-IA64.exe
Normal file
BIN
Greenshot/tools/innosetup/Examples/MyProg-IA64.exe
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/Examples/MyProg-x64.exe
Normal file
BIN
Greenshot/tools/innosetup/Examples/MyProg-x64.exe
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/Examples/MyProg.chm
Normal file
BIN
Greenshot/tools/innosetup/Examples/MyProg.chm
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/Examples/MyProg.exe
Normal file
BIN
Greenshot/tools/innosetup/Examples/MyProg.exe
Normal file
Binary file not shown.
1
Greenshot/tools/innosetup/Examples/Readme-Dutch.txt
Normal file
1
Greenshot/tools/innosetup/Examples/Readme-Dutch.txt
Normal file
|
|
@ -0,0 +1 @@
|
|||
Dit is het Leesmij bestand voor My Program.
|
||||
1
Greenshot/tools/innosetup/Examples/Readme-German.txt
Normal file
1
Greenshot/tools/innosetup/Examples/Readme-German.txt
Normal file
|
|
@ -0,0 +1 @@
|
|||
Dies ist die LIESMICH-Datei für "My Program".
|
||||
1
Greenshot/tools/innosetup/Examples/Readme.txt
Normal file
1
Greenshot/tools/innosetup/Examples/Readme.txt
Normal file
|
|
@ -0,0 +1 @@
|
|||
This is the README file for My Program.
|
||||
BIN
Greenshot/tools/innosetup/Examples/Setup.ico
Normal file
BIN
Greenshot/tools/innosetup/Examples/Setup.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.9 KiB |
440
Greenshot/tools/innosetup/Examples/Setup.iss
Normal file
440
Greenshot/tools/innosetup/Examples/Setup.iss
Normal file
|
|
@ -0,0 +1,440 @@
|
|||
; Inno Setup
|
||||
; Copyright (C) 1997-2009 Jordan Russell. All rights reserved.
|
||||
; Portions by Martijn Laan
|
||||
; For conditions of distribution and use, see LICENSE.TXT.
|
||||
;
|
||||
; Inno Setup QuickStart Pack Setup script by Martijn Laan
|
||||
;
|
||||
; $jrsoftware: ispack/setup.iss,v 1.92 2010/06/11 11:45:27 mlaan Exp $
|
||||
|
||||
[Setup]
|
||||
AppName=Inno Setup QuickStart Pack
|
||||
AppId=Inno Setup 5
|
||||
AppVersion=5.3.10
|
||||
AppPublisher=Martijn Laan
|
||||
AppPublisherURL=http://www.innosetup.com/
|
||||
AppSupportURL=http://www.innosetup.com/
|
||||
AppUpdatesURL=http://www.innosetup.com/
|
||||
AppMutex=InnoSetupCompilerAppMutex,Global\InnoSetupCompilerAppMutex
|
||||
MinVersion=4.1,
|
||||
DefaultDirName={pf}\Inno Setup 5
|
||||
DefaultGroupName=Inno Setup 5
|
||||
AllowNoIcons=yes
|
||||
Compression=lzma2/ultra
|
||||
InternalCompressLevel=ultra
|
||||
SolidCompression=yes
|
||||
UninstallDisplayIcon={app}\Compil32.exe
|
||||
LicenseFile=isfiles\license.txt
|
||||
AppModifyPath="{app}\Ispack-setup.exe" /modify=1
|
||||
WizardImageFile=compiler:WizModernImage-IS.bmp
|
||||
WizardSmallImageFile=compiler:WizModernSmallImage-IS.bmp
|
||||
SetupIconFile=Setup.ico
|
||||
SignTool=ispacksigntool
|
||||
SignedUninstaller=yes
|
||||
|
||||
[Messages]
|
||||
AboutSetupNote=Inno Setup Preprocessor home page:%nhttp://ispp.sourceforge.net/
|
||||
|
||||
[Tasks]
|
||||
Name: desktopicon; Description: "{cm:CreateDesktopIcon}"
|
||||
;Name: fileassoc; Description: "{cm:AssocFileExtension,Inno Setup,.iss}"
|
||||
|
||||
[Files]
|
||||
;first the files used by [Code] so these can be quickly decompressed despite solid compression
|
||||
Source: "otherfiles\ISTool.ico"; Flags: dontcopy
|
||||
Source: "otherfiles\ISPP.ico"; Flags: dontcopy
|
||||
Source: "otherfiles\ISCrypt.ico"; Flags: dontcopy
|
||||
Source: "isxdlfiles\isxdl.dll"; Flags: dontcopy
|
||||
Source: "isfiles\WizModernSmallImage-IS.bmp"; Flags: dontcopy
|
||||
;other files
|
||||
Source: "isfiles\license.txt"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\ISetup.chm"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isppfiles\ISPP.chm"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\Compil32.exe"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\ISCC.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: not ISPPCheck
|
||||
Source: "isppfiles\ISPPCC.exe"; DestDir: "{app}"; DestName: "ISCC.exe"; Flags: ignoreversion; Check: ISPPCheck
|
||||
Source: "isfiles\ISCmplr.dll"; DestDir: "{app}"; Flags: ignoreversion; Check: not ISPPCheck
|
||||
Source: "isppfiles\ISCmplr.dll"; DestDir: "{app}"; Flags: ignoreversion; Check: ISPPCheck
|
||||
Source: "isfiles\ISCmplr.dll"; DestDir: "{app}"; DestName: "ISCmplr.dls"; Flags: ignoreversion; Check: ISPPCheck
|
||||
Source: "isppfiles\Builtins.iss"; DestDir: "{app}"; Flags: ignoreversion; Check: ISPPCheck
|
||||
Source: "isfiles\Setup.e32"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\SetupLdr.e32"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\Default.isl"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Basque.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\BrazilianPortuguese.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Catalan.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Czech.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Danish.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Dutch.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Finnish.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\French.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\German.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Hebrew.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Hungarian.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Italian.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Japanese.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Norwegian.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Polish.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Portuguese.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Russian.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Slovak.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Slovenian.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\Languages\Spanish.isl"; DestDir: "{app}\Languages"; Flags: ignoreversion
|
||||
Source: "isfiles\WizModernImage.bmp"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\WizModernImage-IS.bmp"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\WizModernSmallImage.bmp"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\WizModernSmallImage-IS.bmp"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\iszlib.dll"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\isunzlib.dll"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\isbzip.dll"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\isbunzip.dll"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\islzma.dll"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\islzma32.exe"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\islzma64.exe"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\whatsnew.htm"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\isfaq.htm"; DestDir: "{app}"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Example1.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Example2.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Example3.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\64Bit.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\64BitThreeArch.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\64BitTwoArch.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Components.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Languages.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyProg.exe"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyProg-x64.exe"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyProg-IA64.exe"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyProg.chm"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Readme.txt"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Readme-Dutch.txt"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\Readme-German.txt"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodeExample1.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodeDlg.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodeClasses.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodeDll.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodeAutomation.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodeAutomation2.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\CodePrepareToInstall.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\UninstallCodeExample1.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyDll.dll"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyDll\C\MyDll.c"; DestDir: "{app}\Examples\MyDll\C"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyDll\C\MyDll.def"; DestDir: "{app}\Examples\MyDll\C"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyDll\C\MyDll.dsp"; DestDir: "{app}\Examples\MyDll\C"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\MyDll\Delphi\MyDll.dpr"; DestDir: "{app}\Examples\MyDll\Delphi"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\ISPPExample1.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "isfiles\Examples\ISPPExample1License.txt"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "Setup.iss"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
Source: "Setup.ico"; DestDir: "{app}\Examples"; Flags: ignoreversion
|
||||
;external files
|
||||
Source: "{tmp}\ISCrypt.dll"; DestDir: "{app}"; Flags: external ignoreversion; Check: ISCryptCheck
|
||||
Source: "{srcexe}"; DestDir: "{app}"; DestName: "Ispack-setup.exe"; Flags: external ignoreversion; Check: not ModifyingCheck
|
||||
|
||||
[InstallDelete]
|
||||
;optional ISPP files
|
||||
Type: files; Name: {app}\Iscmplr.dls
|
||||
Type: files; Name: {app}\Builtins.iss
|
||||
;optional ISCrypt files
|
||||
Type: files; Name: {app}\IsCrypt.dll
|
||||
;optional desktop icon files
|
||||
Type: files; Name: {commondesktop}\Inno Setup Compiler.lnk
|
||||
;older versions created the desktop icon under {userdesktop}
|
||||
Type: files; Name: "{userdesktop}\Inno Setup Compiler.lnk"
|
||||
|
||||
[UninstallDelete]
|
||||
Type: files; Name: "{app}\Examples\Output\setup.exe"
|
||||
Type: files; Name: "{app}\Examples\Output\setup-*.bin"
|
||||
Type: dirifempty; Name: "{app}\Examples\Output"
|
||||
Type: dirifempty; Name: "{app}\Examples\MyDll\Delphi"
|
||||
Type: dirifempty; Name: "{app}\Examples\MyDll\C"
|
||||
Type: dirifempty; Name: "{app}\Examples\MyDll"
|
||||
Type: dirifempty; Name: "{app}\Examples"
|
||||
|
||||
[Icons]
|
||||
Name: "{group}\Inno Setup Compiler"; Filename: "{app}\Compil32.exe"; WorkingDir: "{app}"; AppUserModelID: "JR.InnoSetup.IDE.5"
|
||||
Name: "{group}\Inno Setup Documentation"; Filename: "{app}\ISetup.chm";
|
||||
Name: "{group}\Inno Setup Example Scripts"; Filename: "{app}\Examples\";
|
||||
Name: "{group}\Inno Setup Preprocessor Documentation"; Filename: "{app}\ISPP.chm";
|
||||
Name: "{group}\Inno Setup FAQ"; Filename: "{app}\isfaq.htm";
|
||||
Name: "{group}\Inno Setup Revision History"; Filename: "{app}\whatsnew.htm";
|
||||
Name: "{commondesktop}\Inno Setup Compiler"; Filename: "{app}\Compil32.exe"; WorkingDir: "{app}"; AppUserModelID: "JR.InnoSetup.IDE.5"; Tasks: desktopicon; Check: not ISToolCheck
|
||||
|
||||
[Dirs]
|
||||
Name: "{localappdata}\ISTool"
|
||||
|
||||
[INI]
|
||||
Filename: "{localappdata}\ISTool\ISTool.ini"; Section: "prefs"; Key: "InnoFolder"; String: "{app}"; Flags: createkeyifdoesntexist
|
||||
|
||||
[Run]
|
||||
Filename: "{tmp}\istool-setup.exe"; StatusMsg: "Installing ISTool..."; Parameters: "/verysilent /group=""{groupname}\ISTool"" desktopicon"; Flags: skipifdoesntexist; Check: ISToolCheck; Tasks: desktopicon
|
||||
Filename: "{tmp}\istool-setup.exe"; StatusMsg: "Installing ISTool..."; Parameters: "/verysilent /group=""{groupname}\ISTool"""; Flags: skipifdoesntexist; Check: ISToolCheck; Tasks: not desktopicon
|
||||
Filename: "{app}\Compil32.exe"; Parameters: "/ASSOC"; StatusMsg: "{cm:AssocingFileExtension,Inno Setup,.iss}"; Check: not ISToolCheck
|
||||
Filename: "{app}\Compil32.exe"; WorkingDir: "{app}"; Description: "{cm:LaunchProgram,Inno Setup}"; Flags: nowait postinstall skipifsilent; Check: not ISToolCheck and not ModifyingCheck
|
||||
Filename: "{code:GetISToolPath}\ISTool.exe"; WorkingDir: "{code:GetISToolPath}"; Description: "{cm:LaunchProgram,ISTool}"; Flags: nowait postinstall skipifsilent skipifdoesntexist; Check: ISToolCheck and not ModifyingCheck
|
||||
|
||||
[UninstallRun]
|
||||
Filename: "{app}\Compil32.exe"; Parameters: "/UNASSOC"; RunOnceId: "RemoveISSAssoc"
|
||||
|
||||
[Code]
|
||||
var
|
||||
Modifying: Boolean;
|
||||
|
||||
ISToolPage, ISPPPage, ISCryptPage: TWizardPage;
|
||||
ISToolCheckBox, ISPPCheckBox, ISCryptCheckBox: TCheckBox;
|
||||
ISToolOrg: Boolean;
|
||||
|
||||
FilesDownloaded: Boolean;
|
||||
|
||||
ISToolPath: String;
|
||||
ISToolPathRead: Boolean;
|
||||
|
||||
procedure isxdl_AddFile(URL, Filename: AnsiString);
|
||||
external 'isxdl_AddFile@files:isxdl.dll stdcall';
|
||||
function isxdl_DownloadFiles(hWnd: Integer): Integer;
|
||||
external 'isxdl_DownloadFiles@files:isxdl.dll stdcall';
|
||||
function isxdl_SetOption(Option, Value: AnsiString): Integer;
|
||||
external 'isxdl_SetOption@files:isxdl.dll stdcall';
|
||||
|
||||
function GetModuleHandle(lpModuleName: LongInt): LongInt;
|
||||
external 'GetModuleHandleA@kernel32.dll stdcall';
|
||||
function ExtractIcon(hInst: LongInt; lpszExeFileName: AnsiString; nIconIndex: LongInt): LongInt;
|
||||
external 'ExtractIconA@shell32.dll stdcall';
|
||||
function DrawIconEx(hdc: LongInt; xLeft, yTop: Integer; hIcon: LongInt; cxWidth, cyWidth: Integer; istepIfAniCur: LongInt; hbrFlickerFreeDraw, diFlags: LongInt): LongInt;
|
||||
external 'DrawIconEx@user32.dll stdcall';
|
||||
function DestroyIcon(hIcon: LongInt): LongInt;
|
||||
external 'DestroyIcon@user32.dll stdcall';
|
||||
|
||||
const
|
||||
DI_NORMAL = 3;
|
||||
|
||||
function InitializeSetup(): Boolean;
|
||||
begin
|
||||
Modifying := ExpandConstant('{param:modify|0}') = '1';
|
||||
FilesDownloaded := False;
|
||||
ISToolPathRead := False;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function CreateCustomOptionPage(AAfterId: Integer; ACaption, ASubCaption, AIconFileName, ALabel1Caption, ALabel2Caption,
|
||||
ACheckCaption: String; var CheckBox: TCheckBox): TWizardPage;
|
||||
var
|
||||
Page: TWizardPage;
|
||||
Rect: TRect;
|
||||
hIcon: LongInt;
|
||||
Label1, Label2: TNewStaticText;
|
||||
begin
|
||||
Page := CreateCustomPage(AAfterID, ACaption, ASubCaption);
|
||||
|
||||
try
|
||||
AIconFileName := ExpandConstant('{tmp}\' + AIconFileName);
|
||||
if not FileExists(AIconFileName) then
|
||||
ExtractTemporaryFile(ExtractFileName(AIconFileName));
|
||||
|
||||
Rect.Left := 0;
|
||||
Rect.Top := 0;
|
||||
Rect.Right := 32;
|
||||
Rect.Bottom := 32;
|
||||
|
||||
hIcon := ExtractIcon(GetModuleHandle(0), AIconFileName, 0);
|
||||
try
|
||||
with TBitmapImage.Create(Page) do begin
|
||||
with Bitmap do begin
|
||||
Width := 32;
|
||||
Height := 32;
|
||||
Canvas.Brush.Color := WizardForm.Color;
|
||||
Canvas.FillRect(Rect);
|
||||
DrawIconEx(Canvas.Handle, 0, 0, hIcon, 32, 32, 0, 0, DI_NORMAL);
|
||||
end;
|
||||
Parent := Page.Surface;
|
||||
end;
|
||||
finally
|
||||
DestroyIcon(hIcon);
|
||||
end;
|
||||
except
|
||||
end;
|
||||
|
||||
Label1 := TNewStaticText.Create(Page);
|
||||
with Label1 do begin
|
||||
AutoSize := False;
|
||||
Left := WizardForm.SelectDirLabel.Left;
|
||||
Width := Page.SurfaceWidth - Left;
|
||||
WordWrap := True;
|
||||
Caption := ALabel1Caption;
|
||||
Parent := Page.Surface;
|
||||
end;
|
||||
WizardForm.AdjustLabelHeight(Label1);
|
||||
|
||||
Label2 := TNewStaticText.Create(Page);
|
||||
with Label2 do begin
|
||||
Top := Label1.Top + Label1.Height + ScaleY(12);
|
||||
Caption := ALabel2Caption;
|
||||
Parent := Page.Surface;
|
||||
end;
|
||||
WizardForm.AdjustLabelHeight(Label2);
|
||||
|
||||
CheckBox := TCheckBox.Create(Page);
|
||||
with CheckBox do begin
|
||||
Top := Label2.Top + Label2.Height + ScaleY(12);
|
||||
Width := Page.SurfaceWidth;
|
||||
Caption := ACheckCaption;
|
||||
Parent := Page.Surface;
|
||||
end;
|
||||
|
||||
Result := Page;
|
||||
end;
|
||||
|
||||
procedure CreateCustomPages;
|
||||
var
|
||||
Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption: String;
|
||||
begin
|
||||
Caption := 'ISTool';
|
||||
SubCaption1 := 'Would you like to download and install ISTool?';
|
||||
IconFileName := 'ISTool.ico';
|
||||
Label1Caption :=
|
||||
'ISTool is an easy to use Inno Setup Script editor by Bjørnar Henden and meant as a replacement of the standard' +
|
||||
' Compiler IDE that comes with Inno Setup. See http://www.istool.org/ for more information.' + #13#10#13#10 +
|
||||
'Using ISTool is especially recommended for new users.' + #13#10#13#10 +
|
||||
'Note: the ISTool editor does NOT support Unicode text at the moment.';
|
||||
Label2Caption := 'Select whether you would like to download and install ISTool, then click Next.';
|
||||
CheckCaption := '&Download and install ISTool';
|
||||
|
||||
ISToolPage := CreateCustomOptionPage(wpSelectProgramGroup, Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption, ISToolCheckBox);
|
||||
|
||||
Caption := 'Inno Setup Preprocessor';
|
||||
SubCaption1 := 'Would you like to install Inno Setup Preprocessor?';
|
||||
IconFileName := 'ISPP.ico';
|
||||
Label1Caption :=
|
||||
'Inno Setup Preprocessor (ISPP) is an add-on by Alex Yackimoff for Inno Setup. ISPP allows' +
|
||||
' you to conditionally compile parts of scripts, to use compile time variables in your scripts and to use built-in' +
|
||||
' functions which for example can read from the registry or INI files at compile time.' + #13#10#13#10 +
|
||||
'ISPP also contains a special version of the ISCC command line compiler which can take variable definitions as command' +
|
||||
' line parameters and use them during compilation.' + #13#10#13#10 +
|
||||
'ISPP is compatible with ISTool.';
|
||||
Label2Caption := 'Select whether you would like to install ISPP, then click Next.';
|
||||
CheckCaption := '&Install Inno Setup Preprocessor';
|
||||
|
||||
ISPPPage := CreateCustomOptionPage(ISToolPage.ID, Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption, ISPPCheckBox);
|
||||
|
||||
Caption := 'Encryption Support';
|
||||
SubCaption1 := 'Would you like to download encryption support?';
|
||||
IconFileName := 'ISCrypt.ico';
|
||||
Label1Caption :=
|
||||
'Inno Setup supports encryption. However, because of encryption import/export laws in some countries, encryption support is not included in the main' +
|
||||
' Inno Setup installer. Instead, it can be downloaded from a server located in the Netherlands now.';
|
||||
Label2Caption := 'Select whether you would like to download encryption support, then click Next.';
|
||||
CheckCaption := '&Download and install encryption support';
|
||||
|
||||
ISCryptPage := CreateCustomOptionPage(ISPPPage.ID, Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption, ISCryptCheckBox);
|
||||
end;
|
||||
|
||||
procedure InitializeWizard;
|
||||
begin
|
||||
CreateCustomPages;
|
||||
|
||||
ISToolCheckBox.Checked := GetPreviousData('ISTool', '1') = '1';
|
||||
ISPPCheckBox.Checked := GetPreviousData('ISPP', '1') = '1';
|
||||
ISCryptCheckBox.Checked := GetPreviousData('ISCrypt', '1') = '1';
|
||||
|
||||
ISToolOrg := ISToolCheckBox.Checked;
|
||||
end;
|
||||
|
||||
procedure RegisterPreviousData(PreviousDataKey: Integer);
|
||||
begin
|
||||
SetPreviousData(PreviousDataKey, 'ISTool', IntToStr(Ord(ISToolCheckBox.Checked)));
|
||||
SetPreviousData(PreviousDataKey, 'ISPP', IntToStr(Ord(ISPPCheckBox.Checked)));
|
||||
SetPreviousData(PreviousDataKey, 'ISCrypt', IntToStr(Ord(ISCryptCheckBox.Checked)));
|
||||
end;
|
||||
|
||||
procedure DownloadFiles(ISTool, ISCrypt: Boolean);
|
||||
var
|
||||
hWnd: Integer;
|
||||
URL, FileName: String;
|
||||
begin
|
||||
isxdl_SetOption('label', 'Downloading extra files');
|
||||
isxdl_SetOption('description', 'Please wait while Setup is downloading extra files to your computer.');
|
||||
|
||||
try
|
||||
FileName := ExpandConstant('{tmp}\WizModernSmallImage-IS.bmp');
|
||||
if not FileExists(FileName) then
|
||||
ExtractTemporaryFile(ExtractFileName(FileName));
|
||||
isxdl_SetOption('smallwizardimage', FileName);
|
||||
except
|
||||
end;
|
||||
|
||||
//turn off isxdl resume so it won't leave partially downloaded files behind
|
||||
//resuming wouldn't help anyway since we're going to download to {tmp}
|
||||
isxdl_SetOption('resume', 'false');
|
||||
|
||||
hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));
|
||||
|
||||
if ISTool then begin
|
||||
//URL := 'http://www.istool.org/getistool.aspx?version=5';
|
||||
URL := 'http://downloads.sourceforge.net/istool/istool-5.3.0.1.exe';
|
||||
FileName := ExpandConstant('{tmp}\istool-setup.exe');
|
||||
isxdl_AddFile(URL, FileName);
|
||||
end;
|
||||
|
||||
if ISCrypt then begin
|
||||
URL := 'http://www.xs4all.nl/~mlaan2/iscrypt/ISCrypt.dll';
|
||||
FileName := ExpandConstant('{tmp}\ISCrypt.dll');
|
||||
isxdl_AddFile(URL, FileName);
|
||||
end;
|
||||
|
||||
if isxdl_DownloadFiles(hWnd) <> 0 then
|
||||
FilesDownloaded := True
|
||||
else
|
||||
SuppressibleMsgBox('Setup could not download the extra files. Try again later or download and install the extra files manually.' + #13#13 + 'Setup will now continue installing normally.', mbError, mb_Ok, idOk);
|
||||
end;
|
||||
|
||||
function PrepareToInstall(var NeedsRestart: Boolean): String;
|
||||
begin
|
||||
if ISToolCheckBox.Checked or ISCryptCheckBox.Checked then
|
||||
DownloadFiles(ISToolCheckBox.Checked, ISCryptCheckBox.Checked);
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
||||
begin
|
||||
Result := Modifying and ((PageID = wpSelectDir) or (PageID = wpSelectProgramGroup) or ((PageID = ISToolPage.ID) and ISToolOrg));
|
||||
end;
|
||||
|
||||
function ModifyingCheck: Boolean;
|
||||
begin
|
||||
Result := Modifying;
|
||||
end;
|
||||
|
||||
function ISToolCheck: Boolean;
|
||||
begin
|
||||
Result := ISToolCheckBox.Checked and FilesDownloaded;
|
||||
end;
|
||||
|
||||
function ISPPCheck: Boolean;
|
||||
begin
|
||||
Result := ISPPCheckBox.Checked;
|
||||
end;
|
||||
|
||||
function ISCryptCheck: Boolean;
|
||||
begin
|
||||
Result := ISCryptCheckBox.Checked and FilesDownloaded;
|
||||
end;
|
||||
|
||||
function GetISToolPath(S: String): String;
|
||||
var
|
||||
ISToolPathKeyName, ISToolPathValueName: String;
|
||||
begin
|
||||
if not ISToolPathRead then begin
|
||||
ISToolPathKeyName := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{A9E12684-DD23-4D11-ACAF-6041954BCA00}_is1';
|
||||
ISToolPathValueName := 'Inno Setup: App Path';
|
||||
|
||||
if not RegQueryStringValue(HKLM, ISToolPathKeyName, ISToolPathValueName, ISToolPath) then begin
|
||||
if not RegQueryStringValue(HKCU, ISToolPathKeyName, ISToolPathValueName, ISToolPath) then begin
|
||||
SuppressibleMsgBox('Error launching ISTool:'#13'Could not read ISTool path from registry.', mbError, mb_Ok, idOk);
|
||||
ISToolPath := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
ISToolPathRead := True;
|
||||
end;
|
||||
|
||||
Result := ISToolPath;
|
||||
end;
|
||||
45
Greenshot/tools/innosetup/Examples/UninstallCodeExample1.iss
Normal file
45
Greenshot/tools/innosetup/Examples/UninstallCodeExample1.iss
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
; -- UninstallCodeExample1.iss --
|
||||
;
|
||||
; This script shows various things you can achieve using a [Code] section for Uninstall
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
DefaultDirName={pf}\My Program
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
|
||||
[Files]
|
||||
Source: "MyProg.exe"; DestDir: "{app}"
|
||||
Source: "MyProg.chm"; DestDir: "{app}"
|
||||
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
|
||||
|
||||
[Code]
|
||||
function InitializeUninstall(): Boolean;
|
||||
begin
|
||||
Result := MsgBox('InitializeUninstall:' #13#13 'Uninstall is initializing. Do you really want to start Uninstall?', mbConfirmation, MB_YESNO) = idYes;
|
||||
if Result = False then
|
||||
MsgBox('InitializeUninstall:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
|
||||
end;
|
||||
|
||||
procedure DeinitializeUninstall();
|
||||
begin
|
||||
MsgBox('DeinitializeUninstall:' #13#13 'Bye bye!', mbInformation, MB_OK);
|
||||
end;
|
||||
|
||||
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||||
begin
|
||||
case CurUninstallStep of
|
||||
usUninstall:
|
||||
begin
|
||||
MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall is about to start.', mbInformation, MB_OK)
|
||||
// ...insert code to perform pre-uninstall tasks here...
|
||||
end;
|
||||
usPostUninstall:
|
||||
begin
|
||||
MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);
|
||||
// ...insert code to perform post-uninstall tasks here...
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
Binary file not shown.
Binary file not shown.
BIN
Greenshot/tools/innosetup/ISCmplr.dls
Normal file
BIN
Greenshot/tools/innosetup/ISCmplr.dls
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/ISCrypt.dll
Normal file
BIN
Greenshot/tools/innosetup/ISCrypt.dll
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/ISPP.chm
Normal file
BIN
Greenshot/tools/innosetup/ISPP.chm
Normal file
Binary file not shown.
Binary file not shown.
BIN
Greenshot/tools/innosetup/Ispack-setup.exe
Normal file
BIN
Greenshot/tools/innosetup/Ispack-setup.exe
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
Greenshot/tools/innosetup/unins000.dat
Normal file
BIN
Greenshot/tools/innosetup/unins000.dat
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/unins000.exe
Normal file
BIN
Greenshot/tools/innosetup/unins000.exe
Normal file
Binary file not shown.
BIN
Greenshot/tools/innosetup/unins000.msg
Normal file
BIN
Greenshot/tools/innosetup/unins000.msg
Normal file
Binary file not shown.
|
|
@ -19,7 +19,7 @@
|
|||
</head>
|
||||
<body>
|
||||
|
||||
<!-- $jrsoftware: issrc/whatsnew.htm,v 1.664 2010/04/09 19:37:09 jr Exp $ -->
|
||||
<!-- $jrsoftware: issrc/whatsnew.htm,v 1.672 2010/06/10 13:48:26 mlaan Exp $ -->
|
||||
|
||||
<div class="bluehead"><span class="head1">Inno Setup 5</span><br /><span class="head2">Revision History</span></div>
|
||||
|
||||
|
|
@ -28,6 +28,33 @@ Portions Copyright © 2000-2010 Martijn Laan. All rights reserved.<br />
|
|||
For conditions of distribution and use, see <a href="http://www.jrsoftware.org/files/is/license.txt">LICENSE.TXT</a>.
|
||||
</p>
|
||||
|
||||
<p><a name="5.3.10"></a><span class="ver">5.3.10 </span><span class="date">(2010-06-11)</span></p>
|
||||
<ul>
|
||||
<li>Added .NET Framework 4.0 support:
|
||||
<ul>
|
||||
<li>Added constants <tt>{dotnet40}</tt>, <tt>{dotnet4032}</tt>, and <tt>{dotnet4064}</tt>. An exception will be raised if an attempt is made to expand these constants on a system with no .NET Framework version 4.0 present.</li>
|
||||
<li>[Files] section flag <tt>gacinstall</tt> can now be used on .NET Framework 4.0 assemblies too.</li>
|
||||
</ul>
|
||||
</li>
|
||||
<li>Windows 7 changes:
|
||||
<ul>
|
||||
<li>[Icons] section flag <tt>foldershortcut</tt> is now ignored when running on Windows 7 (or later), as folder shortcuts do not expand properly on the Start Menu anymore.</li>
|
||||
</ul>
|
||||
</li>
|
||||
<li>[Setup] section directive changes:
|
||||
<ul>
|
||||
<li>When <tt>SignedUninstaller</tt> is set to <tt>yes</tt>, any temporary self-copies used by Setup are now digitally signed too.</li>
|
||||
<li><tt>Uninstallable</tt> may now be set to a boolean expression, which may contain calls to check functions. For example: <tt>Uninstallable=not IsTaskSelected('portablemode')</tt>. See the <tt>Uninstallable</tt> documentation for details.</li>
|
||||
<li><tt>AppVerName</tt> is no longer required if <tt>AppVersion</tt> is specified. It will now effectively default to: <tt>{cm:NameAndVersion,[AppName],[AppVersion]}</tt>. The Compiler IDE's New Script Wizard now also asks for an <tt>AppVersion</tt> instead of an <tt>AppVerName</tt>.</li>
|
||||
<li>If a text <tt>VersionInfo*</tt> directive is set to an empty string (as opposed to not being specified), then the version info field is really set to an empty string now, instead of forcing a default value.</li>
|
||||
<li><tt>VersionInfoProductTextVersion</tt> now defaults to <tt>VersionInfoProductVersion</tt> if set, else <tt>AppVersion</tt> if <tt>AppVersion</tt> is set and does not include constants, else <tt>VersionInfoTextVersion</tt>.</li>
|
||||
</ul>
|
||||
</li>
|
||||
<li>Unicode Inno Setup: an issue with the taskbar button re-appearing on /VERYSILENT installs has been fixed.</li>
|
||||
<li>Unicode [Code] based on RemObjects Pascal Script SVN code revision 228.</li>
|
||||
<li>Minor tweaks.</li>
|
||||
</ul>
|
||||
|
||||
<p><a name="5.3.9"></a><span class="ver">5.3.9 </span><span class="date">(2010-04-10)</span></p>
|
||||
<ul>
|
||||
<li>For better appearance on Windows 7 and Vista when ClearType is enabled, Tahoma is the new default font used by Setup and Uninstall. A new [Setup] section directive <tt>DefaultDialogFontName</tt> has also been added to make it easy to override the default dialog font for all languages that do not have a custom <tt>DialogFontName</tt> setting. If you would like to revert to the dialog font used in previous versions of Inno Setup (Microsoft Sans Serif if available, else MS Sans Serif), set <tt>DefaultDialogFontName</tt> to an empty string (<tt>DefaultDialogFontName=</tt>).</li>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue