Files
diy-layout-creator/diylc/diylc-swing/install.iss
T
2020-03-22 00:38:19 +01:00

63 lines
2.1 KiB
Plaintext

[Setup]
AppName=DIY Layout Creator
AppVersion={#diylcver}
DefaultDirName={pf}\DIYLC
DefaultGroupName=DIY Layout Creator
UninstallDisplayIcon={app}\diylc.exe
Compression=lzma2
SolidCompression=yes
OutputDir=build
OutputBaseFilename=diylc
ChangesAssociations=yes
AlwaysShowDirOnReadyPage=yes
[Files]
Source: "diylc.exe"; DestDir: "{app}"
Source: "diylc.l4j.ini"; DestDir: "{app}"
Source: "diylc.ico"; DestDir: "{app}"
Source: "build\jar\diylc.jar"; DestDir: "{app}"
Source: "build\jar\lib\*"; DestDir: "{app}\lib"
Source: "build\jar\library\*"; DestDir: "{app}\library"
Source: "themes\*"; DestDir: "{app}\themes"
Source: "fonts\*"; DestDir: "{app}\fonts"
Source: "innosetup\donate.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
[Registry]
Root: HKCR; Subkey: ".diy"; ValueData: "DIYLC"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""
Root: HKCR; Subkey: "DIYLC"; ValueData: "Program DIYLC"; Flags: uninsdeletekey; ValueType: string; ValueName: ""
Root: HKCR; Subkey: "DIYLC\DefaultIcon"; ValueData: "{app}\diylc.ico"; ValueType: string; ValueName: ""
Root: HKCR; Subkey: "DIYLC\shell\open\command"; ValueData: """{app}\diylc.exe"" ""%1"""; ValueType: string; ValueName: ""
[Icons]
Name: "{group}\DIY Layout Creator"; Filename: "{app}\diylc.exe"
[Run]
Filename: "{app}\diylc.exe"; Description: "Launch DIYLC on exit"; Flags: postinstall skipifsilent
[Code]
procedure LicenseLinkClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.diy-fever.com/donate', '', '', SW_SHOW, ewNoWait,
ErrorCode);
end;
procedure InitializeWizard;
var donateImage: TBitmapImage;
begin
ExtractTemporaryFile('donate.bmp');
donateImage := TBitmapImage.Create(WizardForm);
donateImage.Parent:= WizardForm;
donateImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\donate.bmp'));
donateImage.Stretch := True;
donateImage.Width := 142;
donateImage.Height := 27;
donateImage.Left := 8;
donateImage.Top := WizardForm.InnerPage.Height + 10;
donateImage.Cursor := crHand;
donateImage.OnClick := @LicenseLinkClick;
end;