Menu

▼

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. Jochy26 de agosto de 2018, 8:30 p.m.

    Gracias por la ayuda

    ResponderBorrar
  2. Emir Teófilo Calife Neto Calife Neto14 de marzo de 2019, 9:18 a.m.

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

    ResponderBorrar

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