Discussion :

[Coucougnou]

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

[ALT]

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.

[dot-_-net]

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

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.

[Coucougnou]

C'est exactement ça que je cherchais Seulement 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

[Coucougnou]

C'est bon problème résolu Merci quand même !!!!!!

[dot-_-net]

C'est bon problème résolu Merci quand même !!!!!!

Si ton problème est résolut donc n’oubli pas la

[bsdocuments]

Au lieu de tapez tous ça,

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.

Cette ligne est trés satisfaisante:

Code :

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

1
2
 
  Write('Le Chemin est: ', ParamStr(0))

a+