 
 /*------------------------------------------------------------------------
    File        : VirtualUI
    Purpose     : 
    Syntax      : 
    Description : 
    Author(s)   : 
    Created     : Wed Aug 19 10:40:54 ART 2020
    Notes       : 
  ----------------------------------------------------------------------*/

USING Progress.Lang.*.

BLOCK-LEVEL ON ERROR UNDO, THROW.

CLASS VirtualUI: 
    DEFINE PRIVATE VARIABLE m_LibHandle AS HANDLE NO-UNDO.
    DEFINE PRIVATE VARIABLE m_VirtualUI AS COM-HANDLE NO-UNDO.
    
    CONSTRUCTOR PUBLIC VirtualUI (  ):
        SUPER ().
        LoadLibrary().
        
        MESSAGE "Creating VirtualUI object from class." VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
        CREATE VALUE("Thinfinity.VirtualUI") m_VirtualUI NO-ERROR.
        IF ERROR-STATUS:ERROR = FALSE THEN
            m_VirtualUI:START(30).
        ELSE
            MESSAGE "Error creating VirtualUI object from class." VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
    END CONSTRUCTOR.

    DESTRUCTOR PUBLIC VirtualUI ( ):

    END DESTRUCTOR.
    
    METHOD PRIVATE VOID LoadLibrary().
        CREATE CALL m_LibHandle.
        ASSIGN m_LibHandle:CALL-NAME             = "DllGetInstance"
               m_LibHandle:LIBRARY               = "E:\GitHub\dev-main\Products\VirtualUI\bin64\Thinfinity.VirtualUI.dll"
               m_LibHandle:CALL-TYPE             = DLL-CALL-TYPE
               m_LibHandle:RETURN-VALUE-DLL-TYPE = "LONG".
    END METHOD.

END CLASS.