[Inno Setup] nevoyer un mail après l'installation d'un produit
bjrttlemonde
Messages postés17Date d'inscriptionlundi 14 avril 2008StatutMembreDernière intervention 7 juillet 2010
-
9 juil. 2009 à 18:34
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDerniè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;