Discussion :

[samidz2014]

Bonjour,
Je travaille avec delphi7 et TurboDB comme BDD.

Je veux déterminer le chemin de mon exécutable "par code" dès le lancement de l'application (un ami ma dit qu'il faut l'écrire dans OnCreate de la form principale), et ça pour régler un problème de création de mon exécutable par Advanced installer.
J'ai cherché sur Google, et ExtractFilePath(Application.ExeName); me semble la solution, mais je ne sait pas comment l'utiliser.

NB: Le dossier contenant l'exécutable ainsi que les tables se trouve dans le bureau.
Quelqu’un pourrait me donner le code qui va résoudre mon cas ?.
Et merci…

[tourlourou]

Bonjour,
Ton cas n'est pas précisément décrit : "pour régler un problème de création de mon exécutable par Advanced installer" ; lequel ?
Les solutions pour récupérer le chemin de l'application t'ont été intégralement fournies par un ami et un moteur de recherche : qu'y ajouter ?

[samidz2014]

Bonjour,
Ton cas n'est pas précisément décrit : "pour régler un problème de création de mon exécutable par Advanced installer" ; lequel ?
Les solutions pour récupérer le chemin de l'application t'ont été intégralement fournies par un ami et un moteur de recherche : qu'y ajouter ?

Le problème c'est que j'ai pu créer un exécutable, mais il marche que sur mon pc, et si j'aissai de l'installer sur un autre pc un message d'erreur me dit:

Exception EDatabaseError in module Mtm_Archives.exe at 00094A79.
Cannot open TurboDB database
"C:\Users\MyComputer\Desktop\Mtm_Archives FIN\BDD\MtmArchives".

Alors j'ai dit que le problème et au niveau du chemin qui est n'est pas correcte sur les autres pc.

[FOCUS77]

Bonjour

J'utilise cette méthode pour la conception de mes applications.
Elle est efficace, l'application peut être injectée dans n'importe quel dossier, et elle fonctionne pour tous les WINDOWS (je ne l'ai pas encore essayée avec W10).
Bien que les composants LAZARUS sont différents de ceux de DELPHI, je pense que le principe reste le même.

merci

[samidz2014]

Salut...
Normalament j'ai trouvé la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DBMtmArchives.Location:=ExtractFilePath(Application.ExeName);
DBMtmArchives.Connected:=True;

merci...