| Class TAppInstance (unit AppCtrl) |
TComponent
| Constructors |
constructor Create (AOwner : TComponent);| Functions |
procedure Close;
destructor Destroy;
procedure Open;
procedure Refresh;
procedure CloseControlFile;
procedure DetectAbort (AInstance : TInstance) ;
procedure FindInstance;
function GetActive : Boolean;
function IsActive : Boolean;
procedure Loaded;
procedure LockControlFile;
procedure LockNextFreeRecord;
function LockRecord (nRecno : Integer) : Boolean;
procedure OpenControlFile;
procedure SetActive (Value : Boolean);
procedure SetControlFile (const Value : TFileName);
procedure SetMaxInstances (Value : Integer);
procedure SetMaxUsers (Value : Integer);
procedure SetUserName (const Value : TUserName);
procedure UnlockControlFile;
procedure UnlockRecord (nRecno : Integer);
procedure WriteInstance;| Properties |
property Active : Boolean
property ControlFile : TFileName
property MaxInstances : Integer
property MaxUsers : Integer
property UserName : TUserName
property Instances : TStrings
property Users : TStrings| Events |
event OnClose : TInstanceEvent
event OnDetectAbort : TInstanceEvent
event OnMaxInstances : TInstanceEvent
event OnMaxUsers : TInstanceEvent
event OnOpen : TInstanceEvent| Variables |
FControlFile : TFileName;
FInstances : TStrings;
FMaxInstances : Integer;
FMaxUsers : Integer;
FOnClose : TInstanceEvent;
FOnDetectAbort : TInstanceEvent;
FOnMaxInstances : TInstanceEvent;
FOnMaxUsers : TInstanceEvent;
FOnOpen : TInstanceEvent;
FUsers : TStrings;
hControlFile : THandle;
lWantActivate : Boolean;
Recno : Integer;
rInstance : TInstance;| Constructors |
constructor Create (AOwner : TComponent);| Functions |
procedure Close;
destructor Destroy;
procedure Open;
procedure Refresh;
procedure CloseControlFile;
procedure DetectAbort (AInstance : TInstance) ;
procedure FindInstance;
function GetActive : Boolean;
function IsActive : Boolean;
procedure Loaded;
procedure LockControlFile;
procedure LockNextFreeRecord;delete, to keep ControlFile small, but maybe not all Aborts are detected } // DeleteFile (FControlFile);
function LockRecord (nRecno : Integer) : Boolean;
procedure OpenControlFile;
procedure SetActive (Value : Boolean);
procedure SetControlFile (const Value : TFileName);
procedure SetMaxInstances (Value : Integer);
procedure SetMaxUsers (Value : Integer);
procedure SetUserName (const Value : TUserName);
procedure UnlockControlFile;
procedure UnlockRecord (nRecno : Integer);
procedure WriteInstance;| Properties |
property Active : Boolean
property ControlFile : TFileName
property MaxInstances : Integerin the network
property MaxUsers : Integerwith the same control-file
property UserName : TUserNamesame control-file
property Instances : TStrings
property Users : TStrings| Events |
event OnClose : TInstanceEvent
event OnDetectAbort : TInstanceEventActive is set to true
event OnMaxInstances : TInstanceEventif not assigned an exeption is raised
event OnMaxUsers : TInstanceEvent
event OnOpen : TInstanceEventclosed correctly
| Variables |
FControlFile : TFileName;
FInstances : TStrings;
FMaxInstances : Integer;
FMaxUsers : Integer;
FOnClose : TInstanceEvent;
FOnDetectAbort : TInstanceEvent;
FOnMaxInstances : TInstanceEvent;
FOnMaxUsers : TInstanceEvent;
FOnOpen : TInstanceEvent;
FUsers : TStrings;
hControlFile : THandle;
lWantActivate : Boolean;
Recno : Integer;
rInstance : TInstance;