Unit about95

Classes

TfrmAbout -

Functions

FreeLibrary16 -
GetProcAddress16 -
GlobalMemoryStatus - Calls to Kernel32.
LoadLibrary16 -
QT_Thunk -

Types

GFSR_PROC
MemoryStatus

Constants

GFSR_GDIRESOURCES
GFSR_USERRESOURCES
kernel32

Variables

frmAbout
userFunc
user_fsr


Functions


procedure FreeLibrary16(AnINSTANCE:THandle);


function GetProcAddress16(AnINSTANCE:THandle; lpFuncName:PAnsiChar):TFarProc stdcall;


procedure GlobalMemoryStatus(var MemoryStruct:MemoryStatus);

Calls to Kernel32.dll - referenced by index for run-speed

function LoadLibrary16(lpStrLibrary: PAnsiChar): THandle stdcall;


procedure QT_Thunk;


Types


GFSR_PROC = function(iValue: integer) : integer

MemoryStatus = record
dwLength : dword
dwMemoryLoad : dword
dwTotalPhys : dword
dwAvailPhys : dword
dwTotalPageFile : dword
dwAvailPageFile : dword
dwTotalVirtual : dword
dwAvailVirtual : dword
end;
Record to receive Memory Available to Windows

Constants

GFSR_GDIRESOURCES = $0001

GFSR_USERRESOURCES = $0002

kernel32 = 'kernel32.dll'

Windows 95 stlye 'About Dialog'. All code by Damien Guard/Envy Technologies except 'System Resources' code by Matt Pietrek/Roy Nelson. This form will attempt to pickup as much info as it can from your app but may need some customisation - user name & company name are NOT shown as they should be FOR YOUR APP and not the Windows 95 ones ;-) Recommended use is to add this to your object repository and create new instances each time, modifying as required but with a little more work perhaps could be reusable. An icon, ABOUT95.ICO, is included should you add this to the object repository. Show this form with frmAbout.ShowModal Release: 0.1 5/4/96 This is freeware, share & enjoy. envy@guernsey.net

Variables

frmAbout : TfrmAbout

userFunc : GFSR_PROC

user_fsr : word