| 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 |