Gracias Pancho!
El 16 de mayo de 2015, 0:03, francisco prieto <[email protected]> escribió: > Grupo, > > Les comparto esta funcion que acabo de armar basada en un ejemplo que > encontre hecho en visual basic. > > #Define PERMISO_LECTURA 0x80000000 > #Define PERMISO_ESCRITURA 0x40000000 > #Define PERMISO_EJECUCION 0x20000000 > LOCAL lnManager > DECLARE Integer OpenSCManager in Advapi32.dll Integer,Integer,Integer > DECLARE Integer CloseServiceHandle in Advapi32.dll Integer > lnManager=OpenSCManager(0,0,PERMISO_LECTURA+PERMISO_ESCRITURA+PERMISO_EJECUCION) > > if lnManager#0 > CloseServiceHandle(lnManager) > ENDIF > RETURN (lnManager>0) > > Saludos, > > Pancho > Córdoba > Argentina >
