mirror of
https://github.com/greenshot/greenshot
synced 2025-08-19 13:10:00 -07:00
Deleting some stuff we don't need
git-svn-id: http://svn.code.sf.net/p/greenshot/code/trunk@1283 7dccd23d-a4a3-4e1f-8c07-b4c1b4018ab4
This commit is contained in:
RKrom
parent
f3b0878b02
commit
ecf971b0da
30 changed files with 0 additions and 1992 deletions
|
|
@ -1,32 +0,0 @@
|
||||||
; -- 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"
|
|
||||||
|
|
@ -1,48 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
|
|
@ -1,34 +0,0 @@
|
||||||
; -- 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"
|
|
||||||
|
|
@ -1,310 +0,0 @@
|
||||||
; -- 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 ShellExecAsOriginalUser('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;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,298 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,361 +0,0 @@
|
||||||
; -- 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 BitmapImageOnClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
MsgBox('You clicked the image!', 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, ProgressBar2, ProgressBar3: 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;
|
|
||||||
|
|
||||||
ProgressBar2 := TNewProgressBar.Create(Page);
|
|
||||||
ProgressBar2.Left := ProgressBarLabel.Width + ScaleX(8);
|
|
||||||
ProgressBar2.Top := ProgressBar.Top + ProgressBar.Height + ScaleY(4);
|
|
||||||
ProgressBar2.Width := Page.SurfaceWidth - ProgressBar.Left;
|
|
||||||
ProgressBar2.Height := ProgressBarLabel.Height + ScaleY(8);
|
|
||||||
ProgressBar2.Parent := Page.Surface;
|
|
||||||
ProgressBar2.Position := 50;
|
|
||||||
{ Note: TNewProgressBar.State property only has an effect on Windows Vista and newer }
|
|
||||||
ProgressBar2.State := npbsError;
|
|
||||||
|
|
||||||
ProgressBar3 := TNewProgressBar.Create(Page);
|
|
||||||
ProgressBar3.Left := ProgressBarLabel.Width + ScaleX(8);
|
|
||||||
ProgressBar3.Top := ProgressBar2.Top + ProgressBar2.Height + ScaleY(4);
|
|
||||||
ProgressBar3.Width := Page.SurfaceWidth - ProgressBar.Left;
|
|
||||||
ProgressBar3.Height := ProgressBarLabel.Height + ScaleY(8);
|
|
||||||
ProgressBar3.Parent := Page.Surface;
|
|
||||||
{ Note: TNewProgressBar.Style property only has an effect on Windows XP and newer }
|
|
||||||
ProgressBar3.Style := npbstMarquee;
|
|
||||||
|
|
||||||
{ 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.Cursor := crHand;
|
|
||||||
BitmapImage.OnClick := @BitmapImageOnClick;
|
|
||||||
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.Cursor := crHand;
|
|
||||||
BitmapImage2.OnClick := @BitmapImageOnClick;
|
|
||||||
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.Cursor := crHand;
|
|
||||||
BitmapImage3.OnClick := @BitmapImageOnClick;
|
|
||||||
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
|
|
||||||
ShellExecAsOriginalUser('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;
|
|
||||||
|
|
||||||
|
|
@ -1,204 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
|
|
@ -1,149 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
|
|
||||||
|
|
@ -1,117 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
|
|
||||||
|
|
@ -1,33 +0,0 @@
|
||||||
; -- 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"
|
|
||||||
|
|
@ -1,22 +0,0 @@
|
||||||
; -- 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"
|
|
||||||
|
|
@ -1,24 +0,0 @@
|
||||||
; -- 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"
|
|
||||||
|
|
@ -1,35 +0,0 @@
|
||||||
; -- 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}"
|
|
||||||
|
|
@ -1,44 +0,0 @@
|
||||||
; -- ISPPExample1.iss --
|
|
||||||
;
|
|
||||||
; This script shows various basic things you can achieve using Inno Setup Preprocessor (ISPP).
|
|
||||||
; To enable commented #define's, either remove the ';' or use ISCC with the /D switch.
|
|
||||||
|
|
||||||
#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
|
|
||||||
|
|
@ -1,4 +0,0 @@
|
||||||
#pragma option -e+
|
|
||||||
{#AppName} version {#AppVersion} License
|
|
||||||
|
|
||||||
Bla bla bla
|
|
||||||
|
|
@ -1,59 +0,0 @@
|
||||||
; -- 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}"
|
|
||||||
Binary file not shown.
|
|
@ -1,6 +0,0 @@
|
||||||
#include <windows.h>
|
|
||||||
|
|
||||||
void __stdcall MyDllFunc(HWND hWnd, char *lpText, char *lpCaption, UINT uType)
|
|
||||||
{
|
|
||||||
MessageBox(hWnd, lpText, lpCaption, uType);
|
|
||||||
}
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
EXPORTS
|
|
||||||
MyDllFunc
|
|
||||||
|
|
@ -1,76 +0,0 @@
|
||||||
# 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
|
|
||||||
|
|
@ -1,14 +0,0 @@
|
||||||
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.
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -1 +0,0 @@
|
||||||
Dit is het Leesmij bestand voor My Program.
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
Dies ist die LIESMICH-Datei für "My Program".
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
This is the README file for My Program.
|
|
||||||
|
|
@ -1,45 +0,0 @@
|
||||||
; -- 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;
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue