Unit MGPrInst |
Renamed from PrevInst.pas 6/20/1998 Paul Rice to avoid conflicts with others' work.} {= PrevInst Unit Version 1.0 =} {= =} {= The TMgPrevInstance component is a 16/32 bit non-visual component which =} {= checks for other instances of the current EXE running. Once a specified =} {= number of instances is exceeded, an event id fired and optionally the last =} {= of the other instances is brought to the front of the windows Z-order. =} {= =} {= Copyright © 1997 by Malcolm Groves. =} {==============================================================================} {= History =} {= 13/06/96 v1.0 Initial Version =} {= 20/03/97 v1.1 Fixed up some 16 bit incompatibilities. =} {= (Thanks to Joe from Uni. of Vienna for pointing them out) =} {==============================================================================
Classes |
Functions |
LookAtAllWindows - always call the inherited method first } {if run-time check for previous instances
Register -
Types |
TmgFoundAction
TOnAllowedInstancesExceededEvent
Constants |
Variables |
Functions |
Types |
TmgFoundAction = (mgfaRestoreAndQuit, mgfaRestore, mgfaQuit, mgfaNone);
TOnAllowedInstancesExceededEvent = procedure(Sender : TObject; InstanceCount : Integer; var Action : TmgFoundAction) of Object
Constants |
Variables |