Harbour equivalent of xHarbour function GetActiveObject()

[anserkk]

Hi,

What is the Harbour equivalent of xHarbour function GetActiveObject()
To make ot more clear :-
In xHarbour we have the function GetActiveObject(). Is there a similiar function in Harbour which does the same.

Code: Select all  Expand view

#ifdef __XHARBOUR__

   TRY
      oExcel   := GetActiveObject( "Excel.Application" )
   CATCH
      TRY
         oExcel   := CreateObject( "Excel.Application" )
      CATCH
         MsgAlert( "Excel not installed" )
         return Self
      END
   END

#else
   oExcel   := TOLEAuto():New( "Excel.Application" )
#endif

Regards

Anser

[Antonio Linares]

Anser,

The same function GetActiveObject() is available in Harbour too

[anserkk]

Mr.Antonio,

Thankyou for the information.

Regards

Anser