Class TUserInfo (unit InfoUser)

Inherits from

TComponent

********************************************************************} {** InfoUser - provides information about the current user. **} {** ---------------------------------------------------------------- **} {** Written By - Warren F. Young. **} {** ---------------------------------------------------------------- **} {** History - Version 1.00 (29/August/1996). Initial release. **} {** - Version 1.30 (03/Oct/1996) Released to WWW. **} {** - Version 1.40 (08/Nov/1996). Change to InfoDisk only**} {** ---------------------------------------------------------------- **} {** Copyright - ©copyright 1996 by Warren F. Young. **} {** Free to use and redistribute, but my name must **} {** appear somewhere in the source code. No warranty **} {** is given by the author, expressed or implied. **} {

Constructors


constructor Create(AOwner: TComponent );

Public declarations


Functions

procedure DummyStr(Value: String);

Protected declarations

TUserInfo.


Properties

property CompanyName : string

Published declarations

property ComputerName : string


property UserName : string


Events

Variables

FCompany : String;

Private declarations

FComputer : String;


FUser : String;



Constructors


constructor Create(AOwner: TComponent );

Public declarations


Functions


procedure DummyStr(Value: String);

Protected declarations

TUserInfo.Create


Properties


property CompanyName : string

Published declarations


property ComputerName : string


property UserName : string


Events


Variables


FCompany : String;

Private declarations


FComputer : String;


FUser : String;