Add ismail button to Setup.

donate.iss

@@ -1,32 +0,0 @@
-[Files]
-Source: "donate.bmp"; Flags: dontcopy
-
-[Code]
-procedure DonateImageOnClick(Sender: TObject);
-var
-  ErrorCode: Integer;
-begin
-  ShellExecAsOriginalUser('open', 'https://jrsoftware.org/isdonate.php', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
-end;
-
-<event('InitializeWizard')>
-procedure DonateImageInitializeWizard;
-var
-  DonateImageFileName: String;
-  DonateImage: TBitmapImage;
-  BevelTop: Integer;
-begin
-  DonateImageFileName := ExpandConstant('{tmp}\donate.bmp');
-  ExtractTemporaryFile(ExtractFileName(DonateImageFileName));
-
-  DonateImage := TBitmapImage.Create(WizardForm);
-  DonateImage.AutoSize := True;
-  DonateImage.Bitmap.LoadFromFile(DonateImageFileName);
-  DonateImage.Anchors := [akLeft, akBottom];
-  BevelTop := WizardForm.Bevel.Top;
-  DonateImage.Top := BevelTop + (WizardForm.ClientHeight - BevelTop - DonateImage.Bitmap.Height) div 2;
-  DonateImage.Left := DonateImage.Top - BevelTop;
-  DonateImage.Cursor := crHand;
-  DonateImage.OnClick := @DonateImageOnClick;
-  DonateImage.Parent := WizardForm;
-end;

isdonateandmail.iss

@@ -0,0 +1,54 @@
+[Files]
+Source: "isdonate.bmp"; Flags: dontcopy
+Source: "ismail.bmp"; Flags: dontcopy
+
+[Code]
+procedure DonateImageOnClick(Sender: TObject);
+var
+  ErrorCode: Integer;
+begin
+  ShellExecAsOriginalUser('open', 'https://jrsoftware.org/isdonate.php', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
+end;
+
+procedure MailImageOnClick(Sender: TObject);
+var
+  ErrorCode: Integer;
+begin
+  ShellExecAsOriginalUser('open', 'https://jrsoftware.org/ismail.php', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
+end;
+
+<event('InitializeWizard')>
+procedure DonateAndMailImagesInitializeWizard;
+var
+  ImageFileName: String;
+  DonateImage, MailImage: TBitmapImage;
+  BevelTop: Integer;
+begin
+  ImageFileName := ExpandConstant('{tmp}\isdonate.bmp');
+  ExtractTemporaryFile(ExtractFileName(ImageFileName));
+
+  DonateImage := TBitmapImage.Create(WizardForm);
+  DonateImage.AutoSize := True;
+  DonateImage.Bitmap.LoadFromFile(ImageFileName);
+  DonateImage.Anchors := [akLeft, akBottom];
+  BevelTop := WizardForm.Bevel.Top;
+  DonateImage.Top := BevelTop + (WizardForm.ClientHeight - BevelTop - DonateImage.Bitmap.Height) div 2;
+  DonateImage.Left := DonateImage.Top - BevelTop;
+  DonateImage.Cursor := crHand;
+  DonateImage.OnClick := @DonateImageOnClick;
+  DonateImage.Parent := WizardForm;
+
+  ImageFileName := ExpandConstant('{tmp}\ismail.bmp');
+  ExtractTemporaryFile(ExtractFileName(ImageFileName));
+
+  MailImage := TBitmapImage.Create(WizardForm);
+  MailImage.AutoSize := True;
+  MailImage.Bitmap.LoadFromFile(ImageFileName);
+  MailImage.Anchors := [akLeft, akBottom];
+  BevelTop := WizardForm.Bevel.Top;
+  MailImage.Top := DonateImage.Top
+  MailImage.Left := DonateImage.Left + DonateImage.Width + ScaleX(8);
+  MailImage.Cursor := crHand;
+  MailImage.OnClick := @MailImageOnClick;
+  MailImage.Parent := WizardForm;
+end;

setup.iss

@@ -5,7 +5,7 @@
 ;
 ; Setup script
 
-#include "donate.iss"
+#include "isdonateandmail.iss"
 
 [Setup]
 AppName=Inno Setup