[Inno Setup] nevoyer un mail après l'installation d'un produit

bjrttlemonde Messages postés 17 Date d'inscription lundi 14 avril 2008 Statut Membre Dernière intervention 7 juillet 2010 - 9 juil. 2009 à 18:34
cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 - 12 juil. 2009 à 16:25
Bonjour tout le monde,

Je cherche à savoir si le type TInstallStep existe sous Inno Setup, j'ai pu trouver TUninstallStep qui permet (je pense) la réaction pendant la désinstallation du produit et je me demandais s'il y a une possibilité d'agir durant l'installation, en fait je cherche à envoyer un mail à l'administrateur une fois l'installation terminer, j'ai pensé à ce code la mais il reconnait pas le type TInstallStep que je pense que c'est juste une parmi mes inventation qui servent a rien

voici le code

//envoyer un message de préinstallation
function InstallEzDesign(): Boolean;
var
    Url: String;
    Feedback: String;
    ErrorCode: Integer;
    begin
        StringChange(Feedback, '&', '%26');
        StringChange(Feedback, #13#10, '%0A');
        StringChange(Feedback, #13, '%0A');
        StringChange(Feedback, #10, '%0D');
        Url := 'mailto:frifai@novadecision.com?Subject=' +
            'Host%20Info&Body=' + Feedback;
        ShellExec('open', Url, '', '', SW_SHOW, ewNoWait, ErrorCode);
    end;

procedure CurInstallStepChanged(CurInstallStep: TInstallStep);
var
  WindowNumber: HWND;
var
  RegDir: String;
begin
  if CurInstallStep = usInstall then
  begin
    InstallEzDesign();
  end;
end;

Merci pour votre aide

1 réponse

cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 13
12 juil. 2009 à 16:25
Salut,

Regarde DeinitializeSetup. Tuto inno ici.

La doc fournie avec Inno est aussi très... fournie !
0
Rejoignez-nous