oWMI := CreateObject ("wbemScripting.SwbemLocator")
oWMICon := oWMI:ConnectServer()
oADSServ := oWMICon:ExecQuery("Select * from Win32_Service where DisplayName = 'Advantage Database Server'")
IF oADSServ:State == "Stopped"
oADSServ:StartService()
ENDIF
//NOTA:ejemplo tomado de Objeto Persitente
wmormar wrote:Armando Picon,
La ExplorerLib de Andrés Reyes te servirá.
codigo-base.blogspot.com
saludos
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], sysctrl2 and 30 guests