**************************************************
Method Instantiate_Device(cProgID) class OPOSHardwareInterface
local oOle:='',n
local ciid:='{B196B284-BAB4-101A-B69C-00AA00341D07}' && <-- IconnectionPointContainer
::lDeviceInstantiated:=.f.
oOle:=CreateObject(cProgID) && <-- Create OLE here
if valtype(oOle)='O'
::lDeviceInstantiated:=.t.
aadd(::aoDevices,oOle)
endif
return oOle
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot], richard-service and 79 guests