14 de marzo de 2000

Saber si el programa que se ejecuta es un .EXE o .PRG

Como saber si el programa que se ejecuta es un .EXE o .PRG.
IF RIGHT(SYS(16,0),4) = ".EXE"
    WAIT WIND "Ejecutado desde un EXE"
ELSE
    WAIT WIND "Ejecutado desde desarrollo"
ENDIF
Luis María Guayán

2 comentarios :

  1. FUNCTION ISEXE
    IF "EXE" $ VERSION() OR (TYPE("m._ISEXE") = "L" AND m._ISEXE = .T.)
    RETURN .T.
    ELSE
    RETURN .F.
    ENDIF
    ENDFUNC

    ResponderEliminar

Los comentarios son moderados, por lo que pueden demorar varias horas para su publicación.