Unit UAbout

Classes

TWAbout - -- To Access the Windows Registry

Functions

LoadAboutbox - -- Exported procedure to load the About Box
WinVerString - -- Returns the Windows Version

-- Unload the instance of our Aboutbox

Types

Constants

Variables

ApplicationName
CurVerKey
OVI
WAbout


Functions


procedure LoadAboutbox(Handle: THandle; AppName: ShortString);

-- Exported procedure to load the About Box

function WinVerString(I: byte): String;

-- Returns the Windows Version

-- Unload the instance of our Aboutbox


Types


Constants


Variables

ApplicationName : String

-- Copies the Name of the Application

CurVerKey : PChar

-- To store the Windows Version from Registery

OVI : TOSVersionInfo

-- stores the obtained extended information about the version -- of the operating system via GetVersionEx(

WAbout : TWAbout

Public declarations