Comment retrouver le repertoire pere de l'application en cours? [Résolu]
justevero
- Messages postés
- 14
- Date d'inscription
- jeudi 7 juillet 2005
- Dernière intervention
- 2 février 2007
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
A voir également:
- Delphi lastdelimiter
- Repertoire racine de l'application ✓ - Forum - C# / .NET
- Retrouver le répertoire de l'exécutable ✓ - Forum - VB.NET
- [VB.NET] retrouver le repertoire d'un openfiledialog ✓ - Forum - Visual Basic
- Trouver le nom de la classe windows d'une application en cours - Codes sources - Visual Basic / VB.NET (API)
- Comment faire une liste des applications en cours sur votre pc - Codes sources - Visual Basic / VB.NET (API)
8 réponses
Meilleure réponse
- Messages postés
- 14
- Date d'inscription
- jeudi 7 juillet 2005
- Dernière intervention
- 2 février 2007
en fait j'ai fait comme ceci
maposition:=LastDelimiter('\', ExtractFileDir(Application.exename));
//on copie de la chaine jusqu'au delimiteur
Chemin:=copy(ExtractFileDir(Application.exename),0, maposition-1);
maposition:=LastDelimiter('\', Chemin);
//on recherche encore le dernier '\'
//et on obtient le chmin pour les bases de donnees
Chemin:=copy(Chemin,0, maposition-1);
maposition:=LastDelimiter('\', ExtractFileDir(Application.exename));
//on copie de la chaine jusqu'au delimiteur
Chemin:=copy(ExtractFileDir(Application.exename),0, maposition-1);
maposition:=LastDelimiter('\', Chemin);
//on recherche encore le dernier '\'
//et on obtient le chmin pour les bases de donnees
Chemin:=copy(Chemin,0, maposition-1);
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Pour récupérer un répertoire "Papy", tu peux également faire :
var
PathAppli, Chemin: String;
begin
PathAppli := ExtractFilePath(Application.ExeName);
ChDir('..\..\'); // on remonte de 2 niveaux
Chemin := GetCurrentDir;
ChDir(PathAppli); // on revient
end;
C'est juste pour montrer une autre manière de procéder...
Bonne prog'
japee
var
PathAppli, Chemin: String;
begin
PathAppli := ExtractFilePath(Application.ExeName);
ChDir('..\..\'); // on remonte de 2 niveaux
Chemin := GetCurrentDir;
ChDir(PathAppli); // on revient
end;
C'est juste pour montrer une autre manière de procéder...
Bonne prog'
japee
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1237
- Date d'inscription
- samedi 8 novembre 2003
- Dernière intervention
- 3 septembre 2006
Chemin:=ExtractFilePath(ParamStr(0));
===========
Validez les réponses si ok...
ViewVite XP : HTML
===========
Validez les réponses si ok...
ViewVite XP : HTML
- Messages postés
- 14
- Date d'inscription
- jeudi 7 juillet 2005
- Dernière intervention
- 2 février 2007
oui mais ce que je voudrais c'est simplement acceder au repertoire parent et pour ca je crois que je suis obligé de faire un truc du style
ExtractFileDir(Application.exename);
//puis retrouver le dernier '\' de la chaine retournee et de supprimer le reste
ce que j'aurais aimé c'est d'avoir une fonction comme en php ou on fait ../application.exename
et le tour et joué mais je crois que je reve un peu trop...
ExtractFileDir(Application.exename);
//puis retrouver le dernier '\' de la chaine retournee et de supprimer le reste
ce que j'aurais aimé c'est d'avoir une fonction comme en php ou on fait ../application.exename
et le tour et joué mais je crois que je reve un peu trop...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.