Installshield 脚本：安装脚本集合

function CheckRequirements() // 检测安装所需要的环境 　　　NUMBER nvDx, nvDy, nvResult; 　　　STRING svResult; 　　　begin 　　　　bIsShellExplorer = FALSE; 　　　　bIsWindowsNT4 = FALSE; 　　　　bIsWindowsNT351 = FALSE; 　　　　bIsWindows95 = FALSE; 　　　　bIsWindows98 = FALSE; 　　　　// 测量屏幕分辨率，最小要求为640 x 480 　　　　GetExtents( nvDx, nvDy ); 　　　　if (nvDy < 480) then 　　　　　MessageBox( @ERROR_VGARESOLUTION, WARNING ); 　　　　　abort; 　　　　endif; 　　　　// 设置"安装"操作模式 　　　　bIs32BitSetup = TRUE; 　　　　GetSystemInfo( ISTYPE, nvResult, svResult ); // 获得操作系统的类型信息 　　　　if (nvResult = 16) then 　　　　　bIs32BitSetup = FALSE;// 行16位安装程序 　　　　　return 0; 　　　　endif; // 检测目标操作系统 　　　　GetSystemInfo( OS, nvResult, svResult ); 　　　if (nvResult = IS_WINDOWSNT) then 　　　　　// 判定操作系统是Windows NT 4.0还是Windows NT 3.51, 　　　　if (GetSystemInfo( WINMAJOR, nvResult, svResult ) = 0) then 　　　　　if (nvResult >= 4) then 　　　　　　bIsShellExplorer = TRUE; 　　　　　　bIsWindowsNT4 = TRUE; 　　　　　else 　　　　　　bIsWindowsNT351 = TRUE; 　　　　　endif; 　　　　endif; 　　　elseif (nvResult = IS_WINDOWS9X) then 　　　　bIsShellExplorer = TRUE; 　　　　// 判定操作系统是Windows 95还是Windows 98 　　　　GetSystemInfo (WINMINOR, nvResult, svResult); 　　　　if (nvResult < 10) then 　　　　　bIsWindows95 = TRUE; 　　　　else 　　　　　bIsWindows98 = TRUE; 　　　　endif; 　　　endif; 　　end;