Problème avec GetCurrentDir : exécution depuis un raccourci

c'est simple j'ai fait une install qui met un raccourci vers mon pogramme sur le bureau,

le probleme c'est que lorsque j'execute ce raccourci mon programme pense se situer sur le bureau... ce qui fausse certaines manip (besoin de fichiers txt dans le dossier du prog)

Salut

Quand tu ouvres un fichier, définis pleinement le nom du fichier (emplacement+nom du fichier), ne te contente pas du seul nom du fichier. Au lieu de :

Code:

---

1 2 3

// exemple FS := TFileStream('toto.txt',fmCreate);

---

Ecris :

Code:

---

1 2 3 4

// exemple wdir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0))); FS := TFileStream(wdir+'toto.txt',fmCreate);

---

(code non testé, indicatif)
Cela te rend indépendant de la définition du répertoire de travail et rend explicite l'emplacement du fichier.

cdlt.

e-ric