Bonjour, je désirais savoir s'il était possible de récupérer le chemin d'accés du dossier dans lequel le projet est compilé sous la forme d'un string ??
Merci d'avance
Quentin
Bonjour, je désirais savoir s'il était possible de récupérer le chemin d'accés du dossier dans lequel le projet est compilé sous la forme d'un string ??
Merci d'avance
Quentin
Il est probable que l'exécutable de ton programme se trouve dans ce répertoire.
Un appel système te permettra de récupérer le chemin complet de l'exécutable, donc, tant qu'il n'est pas déplacé, le répertoire de compilation. En TP7, une lecture de la variable d'environnement (par la fonction EnvStr) suffit.
Est-ce que c’est ça ce que tu recherche ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 uses Dos; var S: PathStr; begin S := FSearch('TURBO.EXE',GetEnv('PATH')); if S = '' then WriteLn('TURBO.EXE not found') else { Show full path } WriteLn('Found as ',FExpand(S)); readln; end.
C'est exactement ça que je cherchaisSeulement je ne veux pas que 'Turbo.exe' apparaisse à la fin du chemin d'accès... comment faire pour enlever des lettres ??!? En effet si je remplace les lettres par des espaces, le chemin d'accés sera faux...
Merci d'avance
Au lieu de tapez tous ça,
Cette ligne est trés satisfaisante:
a+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Write('Le Chemin est: ', ParamStr(0))![]()
Partager