//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      EnumProcessModules.Pkg
//
// Purpose:
//      Defines interface to WinAPI function EnumProcessModules.
//
// Author:
//      Ulbe Stellema, Vincent Oorsprong
//
// Date:
//      2002, June, 29th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Use GetCurrentProcessId.Pkg
Use OpenProcess.Pkg
Use CloseHandle.Pkg

#IFNDEF U_cProcessModulesArray
External_Function WinAPI_EnumProcessModules "EnumProcessModules" Psapi.Dll Handle hProcess Pointer lphModule Integer cb Pointer lpcbNeeded Returns Integer

//****************************************************************************
// $Module type: CLASS
// $Module name: cProcessModulesArray
// $Author     : VO
// Created     : 06/29/02 @ 10:58
//
// Description
//      Create an object of this class to enumerate the process modules and
//      retrieve the names from the array
//
// $Rev History
//      06/29/02 VO Module header created
//****************************************************************************
Class cProcessModulesArray Is An Array
    //****************************************************************************
    // $Module type: PROCEDURE
    // $Module name: DoEnumProcessModules
    // $Author     : VO
    // Created     : 06/29/02 @ 10:59
    //
    // Description
    //      This is the public message to run the enumeration
    //
    // $Rev History
    //      06/29/02 VO Module header created
    //****************************************************************************
    Procedure DoEnumProcessModules
        Handle hProcess hModule
        Dword dwProcessId
        String sArrayOfProcessIds sModuleHandle sModuleName
        Integer iSizeOfProcessIdsArray iVoid iModule iModules 
        Integer iOldDelegationMode iModuleFileNameLength
        Boolean bOk
    
        // Remove all previous enumerated process modules if they exist
        Send Delete_Data
    
        Get Delegation_Mode To iOldDelegationMode
        Set Delegation_Mode To Delegate_To_Parent
    
        Get GetCurrentProcessId To dwProcessId
        If (dwProcessId <> 0) Begin
            Get OpenProcess (PROCESS_VM_READ + PROCESS_QUERY_INFORMATION) dwProcessId To hProcess
            If (hProcess <> 0) Begin
                Move 0 To iSizeOfProcessIdsArray
                ZeroString 1 To sArrayOfProcessIds
                Move (WinAPI_EnumProcessModules (hProcess, AddressOf (sArrayOfProcessIds), 0, AddressOf (iSizeOfProcessIdsArray))) To bOk
                If (Not (bOk)) Begin
                    Get ShowLastError To iVoid
                End
                Else Begin
                    ZeroString iSizeOfProcessIdsArray To sArrayOfProcessIds
                    Move (WinAPI_EnumProcessModules (hProcess, AddressOf (sArrayOfProcessIds), iSizeOfProcessIdsArray, AddressOf (iSizeOfProcessIdsArray))) To bOk
                    If (Not (bOk)) Begin
                        Get ShowLastError To iVoid
                    End
                    Else Begin
                        Move (iSizeOfProcessIdsArray / 4) To iModules
                        For iModule From 1 To iModules
                            Move (Mid (sArrayOfProcessIds, 4, (((iModule - 1) * 4) + 1))) To sModuleHandle
                            Get BytesToDWord sModuleHandle 1 To hModule
                            ZeroString 255 To sModuleName
                            Move (GetModuleFileName (hModule, AddressOf (sModuleName), 255)) To iModuleFileNameLength
                            If (iModuleFileNameLength = 0) Begin
                                Get ShowLastError To iVoid
                            End
                            Else Begin
                                Move (CString (sModuleName)) To sModuleName
                                Set Array_Value Item (Item_Count (Self)) To sModuleName
                            End
                        Loop
                    End
                End
                Get CloseHandle hProcess To bOk
            End
        End
    
        Set Delegation_Mode To iOldDelegationMode
    End_Procedure // DoEnumProcessModules
End_Class // cProcessModulesArray
#ENDIF