| Class TUserInfo (unit InfoUser) |
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 );| Functions |
procedure DummyStr(Value: String);TUserInfo.
| Properties |
property CompanyName : string
property ComputerName : string
property UserName : string| Events |
| Variables |
FCompany : String;
FComputer : String;
FUser : String;| Constructors |
constructor Create(AOwner: TComponent );Public declarations
| Functions |
procedure DummyStr(Value: String);Protected declarations
TUserInfo.Create
| Properties |
property CompanyName : stringPublished declarations
property ComputerName : string
property UserName : string| Events |
| Variables |
FCompany : String;Private declarations
FComputer : String;
FUser : String;