Foros Club Delphi - Como hacer que mi sistema se ejecute solo si esta en una carpeta deteminada

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como hacer que mi sistema se ejecute solo si esta en una carpeta deteminada (https://www.clubdelphi.com/foros/showthread.php?t=90539)

Como hacer que mi sistema se ejecute solo si esta en una carpeta deteminada

Hola
NEcesito saber como hacer para que mi sistema se ejecute solo si esta en una carpeta. Que quiero decir, que para ejecutarse la unica forma de hacerlo sea ir a la carpeta donde se encuentra y ahi ejecutarlo. que no se puedan hacer accesos directos ni ejecuciones si se copia en otra carpeta
espero que se entienda la pregunta
gracias

Código Delphi [-]if not (ExtractFilePath(Application.ExeName) = 'C:\MiCarpeta\') then exitprocess(0)

Cita:

Empezado por dardusso23 (Mensaje 506744)

Hola
que no se puedan hacer accesos directos ni ejecuciones si se copia en otra carpeta

Lo de que no pueda estar en otra carpeta, es fácil tal y como te han dicho, porque puedes saber dónde se está ejecutando tu programa.

El tema del acceso directo, creo que es más difícil porque cuando ejecutas un programa mediante un acceso directo realmente estás ejecutando el programa. Si el programa está en la carpeta correcta, no se si vas a encontrar alguna diferencia ejecutándolo directamente o mediante un link. Tal vez WMI, pero lo desconozco.

Tal vez si explicaras cual es el problema que quieres solventar con esto, podamos ayudarte a encontrar otra solución, porque esta petición suena un poco "rara".