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

TMgPrevInstance -

Functions

LookAtAllWindows - always call the inherited method first } {if run-time check for previous instances
Register -

Types

TmgFoundAction
TOnAllowedInstancesExceededEvent

Constants

Variables


Functions


function LookAtAllWindows(Handle: HWnd; Temp: Longint): BOOL;

always call the inherited method first } {if run-time check for previous instances

procedure Register;


Types


TmgFoundAction = (mgfaRestoreAndQuit, mgfaRestore, mgfaQuit, mgfaNone);

TOnAllowedInstancesExceededEvent = procedure(Sender : TObject;
                                               InstanceCount : Integer;
                                               var Action : TmgFoundAction) of Object

Constants


Variables