TfrmAbout -
FreeLibrary16 -
GetProcAddress16 -
GlobalMemoryStatus - Calls to Kernel32.
LoadLibrary16 -
QT_Thunk -
GFSR_PROC
MemoryStatus
GFSR_GDIRESOURCES
GFSR_USERRESOURCES
kernel32
frmAbout
userFunc
user_fsr
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;
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
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
frmAbout : TfrmAbout
userFunc : GFSR_PROC
user_fsr : word