IsRunning:=FindWindowByWindowName('东方宽频网络电视');

end;

end;

end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin

case CurUninstallStep of

usUninstall:

begin // 开始卸载

end;

usPostUninstall:

begin // 卸载完成

// MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);

// ...insert code to perform post-uninstall tasks here...

ShellExec('open', '', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end;

end;

end;

13、 删除文件和删除文件夹

//删除文件 用 DeleteFile 只能删除一个文件，不能使用通配符来删除多个文件

DeleteFile(ExpandConstant('{app}\abc.exe'));

//删除所有文件及文件夹

DelTree(ExpandConstant('{app}'), True, True, False);

14、BorderStyle

TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin); 无边界式（bsNone) ，单边固定式（bsSingle），双边可变式（bsSizeable），对话框式（bsDialog)

15、if else

function NextButtonClick(CurPageID: Integer): Boolean;

var

ResultCode: Integer;

begin

Result := True;