PROCEDURE RegisterFile
LPARAMETERS lcFileName

*** Get Windows System 32 directory
DECLARE INTEGER GetSystemDirectory IN KERNEL32 STRING @, INTEGER
lcWinDir = SPACE(254)
lnWinDirLen = 254
lnWinDirLen = GetSystemDirectory(@lcWinDir, lnWinDirLen)
lcWindowsSysDir = LEFT(lcWinDir, lnWinDirLen) + "\"

lcRegFile = lcWindowsSysDir + lcFileName
DECLARE INTEGER DllRegisterServer IN (lcRegFile)

llsuccess = (DllRegisterServer() = 0)
IF llsuccess 
    DO LogEvent WITH "Registered: " + lcRegFile
ELSE
    DO LogEvent WITH "Could NOT Register: " + lcRegFile
ENDIF
RETURN llsuccess