InnoSetup

Uninstall Feedback in InnoSetup

If user is uninstalling your application, it is reasonable to ask him what he did not liked in the application. Usually developers open web browser for submission of feedback.

I think this is not a good practise — most users do not like applications opening web browser without their confirmation. My opinion it is a lot better to implement sending of such kind of feedback using desktop's regular mail application, such as Outlook and Thunderbird.

For example, this is IndieVolume Uninstall Feedback window:

This is InnoSetup pascal code I have developed to implement above window:

#include "fixfonts.iss"
#include "feedback.iss"

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    UninstallFeedback('IndieVolume Uninstall Feedback', 'Send', 'Cancel',
      'To help us with future versions of IndieVolume, we want to know about any troubles or difficulties you have experienced while using IndieVolume.'#13#10  +
      ''#13#10'Please let us know why are you uninstalling IndieVolume. Thank You.',
      'support@gerixsoft.com', 'IndieVolume Uninstall Feedback');
  end;
end;                

 Attached you can find feedback.iss. For fixfonts.iss see this post

System Font in InnoSetup

InnoSetup does not support Windows system font, it is using MS Sans Serif 8 instead.

Use the following code to fix this:

#include "fixfonts.iss"

procedure InitializeWizard();
begin
  SetSystemFont(WizardForm.Font);
  FixSystemFont(WizardForm);
end;

fixfonts.iss is attached below. This code has been in use in IndieVolume for years, confirmed to work ok.

Syndicate content