Harbour equivalent of xHarbour function GetActiveObject()

Board index FiveWin for Harbour/xHarbour Harbour equivalent of xHarbour function GetActiveObject()

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Harbour equivalent of xHarbour function GetActiveObject()
Posted: Tue Feb 24, 2009 05:46 AM

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 (fw): Select all Collapse

#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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Harbour equivalent of xHarbour function GetActiveObject()
Posted: Tue Feb 24, 2009 09:41 AM

Anser,

The same function GetActiveObject() is available in Harbour too

regards, saludos

Antonio Linares
www.fivetechsoft.com

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Harbour equivalent of xHarbour function GetActiveObject()
Posted: Tue Feb 24, 2009 10:04 AM

Mr.Antonio,

Thankyou for the information.

Regards

Anser

FiveTech Support Forums

Continue the discussion