[Code] var errorcode: integer; isrunning: integer; // determines whether the client is running the function initializesetup (): Boolean; begin result: = true; // Installation Program Continue isrunning: = findwindowbywindowname ('dongfang broadband network TV '); While isrunning <> 0 do begin if msgbox (' the installer detects that the client is running. '#13 # 13' you must first close it and then click "yes" to continue the installation, or press "no" to exit! ', Mbconfirmation, mb_yesno) = IDNO then begin result: = false; // The installer exits isrunning: = 0; end else begin result: = true; // The installer continues isrunning: = findwindowbywindowname ('dongfang broadband network TV '); end; // determines whether the client is running the function initializeuninstall (): Boolean; begin result: = true; // The installer continues isrunning: = findwindowbywindowname ('dongfang broadband network TV '); While isrunning <> 0 do begin if msgbox ('installer detects that the client is running. '#13 # 13' you must first close it and then click "yes" to continue the installation, or press "no" to exit! ', Mbconfirmation, mb_yesno) = IDNO then begin result: = false; // The installer exits isrunning: = 0; end else begin result: = true; // The installer continues isrunning: = findwindowbywindowname ('dongfang broadband network TV '); end; Procedure curuninstallstepchanged (curuninstallstep: tuninstallstep); begin case curuninstallstep of usuninstall: Begin // start to uninstall end; uspostuninstall: begin // uninstall completed // msgbox ('curuninstallstepchanged: '#13 #13' uninstall just finished. ', mbinformation, mb_ OK );//... insert code to perform post-uninstall tasks here... shellexec ('open', 'HTTP: // www.baidu.com ', '','', sw_shownormal, ewnowait, errorcode); end;