PARAMETERS  lcFilename
 
#DEFINE OF_READ                0
#DEFINE OF_SHARE_DENY_NONE    64
#DEFINE HFILE_ERROR           -1
#DEFINE dwordPlus 0xffffffff + 1
 
LOCAL lpReOpenBuff, hFile, lnSizeLo, lnSizeHi
 
lpReOpenBuff = REPLI (Chr(0), 250)
hFile = OpenFile (lcFilename, @lpReOpenBuff, OF_SHARE_DENY_NONE)
 
IF hFile <> HFILE_ERROR
    lnSizeHi = 0
    lnSizeLo = GetFileSize (hFile, @lnSizeHi)
    RETURN lnSizeHi * dwordPlus + lnSizeLo
    = CloseHandle (hFile)
ELSE
    RETURN 0
ENDIF
 
PROCEDURE  decl
    DECLARE INTEGER GetFileSize IN kernel32;
        INTEGER   hFile,;
        INTEGER @ lpFileSizeHigh
 
    DECLARE INTEGER OpenFile IN kernel32;
        STRING   lpFileName,;
        STRING @ lpReOpenBuff,;
        INTEGER  wStyle
 
    DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject