Sos un maestro Pancho.
Estás siempre brindando asistencia a los demás... --- NRS El 2015-05-15 19:03, francisco prieto 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
