Installshiled 脚本 程序进程运行状态检测与退出

Installshiled 脚本 运行进程 检测 脚本见附件，调用地方如下:OnMaintUIBefore() function OnMaintUIBefore() number nResult, nType, nMediaFlags; string szTitle, szMsg, szIgnore; begin // nType defaults to MODIFY. nType = MODIFY; //Initialize SQL OnSQLServerInitializeMaint(); // Beginning of UI Sequence Dlg_Start: // Added in Version 9.5 - Support for REMOVEONLY option. if( !REMOVEONLY ) then // In standard mode show maintenance dialog Disable( BACKBUTTON ); nType = SdWelcomeMaint( szTitle, szMsg, nType ); //check programrun if ProcessRunning("pcmt") then MessageBox("对不起，请先退出正在运行的XXX程序!", INFORMATION); goto Dlg_Start; endif; // ....... }