Discussion :

[braoru]

Bonjours.

Voici mon problème.

J’ai une application qui se trouve dans son propre sous répertoire.
Disons
/APP
Monprog.exe
/Rep1
/Rep de log

Le programme dans sont répertoire de compilation arrive bien a créer des fichier dans le répertoire rep1.

Mais des que je déplace mon programme sur une autre machine il n’arrive plus (Erreur : nom de fichier invalide). (Le chemin est obtenu via un Tedit qui est par défaut avec le chemin du répertoire « rep1»).
Par contre si dans le programme je refais un chemin (dans le TEdit) par exemple c:\ les fichiers ce crée normalement.

Une idée de ce qui pourrais causé cette erreur ? Je travail uniquement avec des chemin nom complet c'est-à-dire avec le répertoire courent de l’application comme base (chemin en Rep1\monfichier).

Mercis d’avance.
seb

[braoru]

La situation a avancé.

A un moment du programme j’ouvre un assistant de sélection de fichier pour choisir une source de donnée. Ces donnée sont dans un autre répertoire si dans se répertoire disant je fais un répertoire /rep1 les données son crée dan ce nouveaux sous répertoire distant. Le pointeur de racine du programme change donc de place en cours de fonctionnement.

Est t’il possible d’obtenir l’emplacement du point exe du programme en delphi ?

[Cl@udius]

Salut,

Code :

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

1
2
 
  CheminAppli := ExtractFilePath(Application.ExeName);

Voilou !

@+

[Rayek]

Code :

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

1
2
 
Le_chemin_De_Lapplication := ExtractFilePath(Paramstr(0));

ou

Code :

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

1
2
 
Le_chemin_De_Lapplication := ExtractFilePAth(Application.exeName);

[braoru]

Comme il perd le chemin entre temps et q’il ne pourra dont plus retrouver son propre.exe dans le nouveaux répertoire courent je penche donc pour param0 .
Mercis beaucoup pour ton aide.

[Cl@udius]

Salut,

ParamStr(0) ou Application.ExeName c'est du pareil au même.
Puisque ExeName est implémenté ainsi:

Code :

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

1
2
3
4
5
 
function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

@+

[Rayek]

Salut,

ParamStr(0) ou Application.ExeName c'est du pareil au même.
Puisque ExeName est implémenté ainsi:

Code :

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

1
2
3
4
5
 
function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

@+

[Mode Flemard On]
Avec le Paramstr(0) on ecrit moins de lettre que le application.ExeName
[Mode Flemard Off]

[Cl@udius]

@Malatar
Cette remarque était destinée à braoru puisqu'il hésitait entre les deux solutions.

[Mode flemard On/Off] !!

[Rire] [/rire]

@+