add donate button in the installer

diylc/diylc-swing/install.iss

@@ -9,6 +9,7 @@ SolidCompression=yes
 OutputDir=build
 OutputBaseFilename=diylc
 ChangesAssociations=yes
+AlwaysShowDirOnReadyPage=yes
 
 [Files]
 Source: "diylc.exe"; DestDir: "{app}"
@@ -19,9 +20,9 @@ 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: "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: ""
@@ -31,4 +32,31 @@ Root: HKCR; Subkey: "DIYLC\shell\open\command";  ValueData: """{app}\diylc.exe""
 Name: "{group}\DIY Layout Creator"; Filename: "{app}\diylc.exe"
 
 [Run]
-Filename: "{app}\diylc.exe"; Flags: postinstall skipifsilent
+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;