Inno Setup, uninstall to determine whether the program is running

Var

Errorcode:integer;

Isrunning:integer;

Determine if the client is running at installation

function Initializesetup (): Boolean;

Begin

Result: =true; The Setup program continues

Isrunning:=findwindowbywindowname (' E family client ');

While isrunning<>0 do

Begin

If Msgbox (' Setup detects that the client is running. ' #13 #13 ' You must close it first and then click Yes to continue the installation, or press No to exit! ', mbconfirmation, mb_yesno) = Idno Then

Begin

Result: =false; Setup exits

IsRunning: = 0;

End ELSE begin

Result: =true; The Setup program continues

Isrunning:=findwindowbywindowname (' E family client ');

End

End

End

Determine if the client is running when uninstalling

function Initializeuninstall (): Boolean;

Begin

Result: =true; The Setup program continues

Isrunning:=findwindowbywindowname (' E family client ');

While isrunning<>0 do

Begin

If Msgbox (' Setup detects that the client is running. ' #13 #13 ' You must close it first and then click Yes to continue the installation, or press No to exit! ', mbconfirmation, mb_yesno) = Idno Then

Begin

Result: =false; Setup exits

IsRunning: = 0;

End ELSE begin

Result: =true; The Setup program continues

Isrunning:=findwindowbywindowname (' E family client ');

End

End

End

Procedure curuninstallstepchanged (Curuninstallstep:tuninstallstep);

Begin

Case Curuninstallstep of

Usuninstall:

Begin//Start unloading

End

Uspostuninstall:

Begin//Uninstall complete

MsgBox (' curuninstallstepchanged: ' #13 #13 ' Uninstall just finished. ', mbinformation, MB_OK);

Insert code to perform post-uninstall tasks here ...

Shellexec (' Open ', ' http://domain ', ', ', ', SW_SHOWNORMAL, ewnowait, ErrorCode);

End

End

End

Inno Setup, uninstall to determine whether the program is running