UNKNOWN '************************************** 'Windows API/Global Declarations for :Ex ' clusive Mode (Updated) '************************************** Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long '************************************** ' Name: Exclusive Mode (Updated) ' Description:This function allows the a ' pplication to enter and exit exclusive m ' ode. In this mode any message boxes or p ' rompts from Windows and other applicatio ' ns will not show up infront of the progr ' am. This is useful when you don't want a ' nything to come up infront of your appli ' cation window. ' By: Jan Nawara ' ' ' Inputs:Reguires a True to turn exclusi ' ve mode on and False to turn it off. ' ' Returns:None ' 'Assumes:Essentially this code makes Win ' dows think that your application is a sc ' reen saver. The only type of application ' that Windows will not interupt with mess ' age boxes, etc. ' 'Side Effects:This code may cause some p ' roblems with screen savers that do not u ' se the normal Windows interface such as ' After Dark. Users should be made aware o ' f this. 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.762/lngWId.1/qx/v ' b/scripts/ShowCode.htm 'for details. '************************************** Public Sub Exclusive_Mode(Use As Boolean) 'If True was passed makes app exclusive 'Else makes app not exclusive Dim Scrap Scrap = SystemParametersInfo(97, Use, "", 0) End Sub