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