Kill Your TV
3cd1281167
* support installation of both x64 and x86 binaries * add readme * add function to convert line endings. The README.md file currently has Windows line endings, but if that ever changes this function will automatically make the file "Windows friendly".
100 lines
3.3 KiB
Plaintext
100 lines
3.3 KiB
Plaintext
|
|
#define I2Pd_AppName "i2pd"
|
|
#define I2Pd_ver "0.2"
|
|
|
|
[Setup]
|
|
AppName={#I2Pd_AppName}
|
|
AppVersion={#I2Pd_ver}
|
|
DefaultDirName={pf}\I2Pd
|
|
DefaultGroupName=I2Pd
|
|
UninstallDisplayIcon={app}\I2Pd.exe
|
|
Compression=lzma2
|
|
SolidCompression=yes
|
|
OutputDir=.
|
|
LicenseFile=.\..\LICENSE
|
|
OutputBaseFilename=setup_{#I2Pd_AppName}_v{#I2Pd_ver}
|
|
ArchitecturesInstallIn64BitMode=x64
|
|
|
|
|
|
[Files]
|
|
Source: "x64\Release\i2pd.exe"; DestDir: "{app}"; DestName: "i2pd.exe"; Check: Is64BitInstallMode
|
|
Source: "Release\i2pd.exe"; DestDir: "{app}"; Check: not Is64BitInstallMode
|
|
Source: "..\README.md"; DestDir: "{app}"; DestName: "Readme.txt"; AfterInstall: ConvertLineEndings
|
|
|
|
[Icons]
|
|
Name: "{group}\I2Pd"; Filename: "{app}\i2pd.exe"
|
|
Name: "{group}\Readme"; Filename: "{app}\Readme.txt"
|
|
|
|
[Code]
|
|
|
|
var
|
|
DefaultTop,
|
|
DefaultLeft,
|
|
DefaultHeight,
|
|
DefaultBackTop,
|
|
DefaultNextTop,
|
|
DefaultCancelTop,
|
|
DefaultBevelTop,
|
|
DefaultOuterHeight: Integer;
|
|
|
|
const
|
|
LicenseHeight = 400;
|
|
LF = #10;
|
|
CR = #13;
|
|
CRLF = CR + LF;
|
|
|
|
procedure ConvertLineEndings();
|
|
var
|
|
FilePath : String;
|
|
FileContents : String;
|
|
begin
|
|
FilePath := ExpandConstant(CurrentFileName)
|
|
LoadStringFromFile(FilePath, FileContents);
|
|
StringChangeEx(FileContents, LF, CRLF, False);
|
|
SaveStringToFile(FilePath, FileContents, False);
|
|
end;
|
|
|
|
procedure InitializeWizard();
|
|
begin
|
|
DefaultTop := WizardForm.Top;
|
|
DefaultLeft := WizardForm.Left;
|
|
DefaultHeight := WizardForm.Height;
|
|
DefaultBackTop := WizardForm.BackButton.Top;
|
|
DefaultNextTop := WizardForm.NextButton.Top;
|
|
DefaultCancelTop := WizardForm.CancelButton.Top;
|
|
DefaultBevelTop := WizardForm.Bevel.Top;
|
|
DefaultOuterHeight := WizardForm.OuterNotebook.Height;
|
|
|
|
WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (LicenseHeight - DefaultHeight);
|
|
WizardForm.InnerNotebook.Height := WizardForm.InnerNotebook.Height + (LicenseHeight - DefaultHeight);
|
|
WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (LicenseHeight - DefaultHeight);
|
|
WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (LicenseHeight - DefaultHeight);
|
|
WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (LicenseHeight - DefaultHeight);
|
|
WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (LicenseHeight - DefaultHeight);
|
|
|
|
end;
|
|
|
|
procedure CurPageChanged(CurPageID: Integer);
|
|
begin
|
|
if CurPageID = wpLicense then
|
|
begin
|
|
WizardForm.Top := DefaultTop - (LicenseHeight - DefaultHeight) div 2;
|
|
WizardForm.Height := LicenseHeight;
|
|
WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (LicenseHeight - DefaultHeight);
|
|
WizardForm.CancelButton.Top := DefaultCancelTop + (LicenseHeight - DefaultHeight);
|
|
WizardForm.NextButton.Top := DefaultNextTop + (LicenseHeight - DefaultHeight);
|
|
WizardForm.BackButton.Top := DefaultBackTop + (LicenseHeight - DefaultHeight);
|
|
WizardForm.Bevel.Top := DefaultBevelTop + (LicenseHeight - DefaultHeight);
|
|
end
|
|
else
|
|
begin
|
|
WizardForm.Top := DefaultTop;
|
|
WizardForm.Left := DefaultLeft;
|
|
WizardForm.Height := DefaultHeight;
|
|
WizardForm.OuterNotebook.Height := DefaultOuterHeight;
|
|
WizardForm.CancelButton.Top := DefaultCancelTop;
|
|
WizardForm.NextButton.Top := DefaultNextTop;
|
|
WizardForm.BackButton.Top := DefaultBackTop;
|
|
WizardForm.Bevel.Top := DefaultBevelTop;
|
|
end;
|
|
end; |