Class TNames (unit INISec)

Inherits from

TPersistent

Constructors


constructor Create;



Functions

procedure AssignWindowsUser;


function IsGroupNameStored:Boolean;


function IsUserNameStored:Boolean;


procedure SetGroupName(const sGroup:string);


procedure SetUserName(const sUser:string);


procedure SetWindowsUserInstead(UWUInstead:Boolean);


Properties

property Computer : string


property Group : string


property User : string


property UseWindowsUserInstead : Boolean


Events

event OnGroupNameChange : TNotifyEvent


event OnUserNameChange : TNotifyEvent


Variables

FComputerName : string;


FGroupName : string;


FOnGroupNameChange : TNotifyEvent;


FOnUserNameChange : TNotifyEvent;


FUserName : string;


FUseWindowsUserInstead : Boolean;



Constructors


constructor Create;


Functions


procedure AssignWindowsUser;


function IsGroupNameStored:Boolean;


function IsUserNameStored:Boolean;


procedure SetGroupName(const sGroup:string);


procedure SetUserName(const sUser:string);


procedure SetWindowsUserInstead(UWUInstead:Boolean);


Properties


property Computer : string


property Group : string


property User : string


property UseWindowsUserInstead : Boolean


Events


event OnGroupNameChange : TNotifyEvent


event OnUserNameChange : TNotifyEvent


Variables


FComputerName : string;


FGroupName : string;


FOnGroupNameChange : TNotifyEvent;


FOnUserNameChange : TNotifyEvent;


FUserName : string;


FUseWindowsUserInstead : Boolean;