Chemin relatif dans une application

[Résolu]
Signaler
Messages postés
31
Date d'inscription
jeudi 8 avril 2004
Statut
Membre
Dernière intervention
16 mars 2005
-
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
-
voilà je voudrai utiliser la boite de dialogue d'ouverture de fichier.

Pour celà, je sais que j'ai un répertoire nommé image dans le répertoire ou se trouve l'application. Quelque soit l'endroit ou elle se trouve. Je voudrai donc utiliser une forme du genre : chemincomplet = application.path + '/images';

de cette facon lorsque le fichier n'est pas dans ce dossier, j'ouvre la boite de dialogue. Donc il me faudrait egalement tester si un fichier image existe ou pas.

Merci d'avance

3 réponses

Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
Hello,



var

PictureFolder, SearchPicture : String;

OpenDialog1 : TOpendialog;



begin

PictureFolder := ExtractFilePath(Application.ExeName) + '\Images\'; //Chemin des images
SearchPicture := PictureFolder + 'MonImage.bmp'; //Fichier Image que l'on cherche



If Not(FileExists(SearchPicture)) then //Si le fichier n'existe pas

begin

OpenDialog1 := TOpenDialog.Create; //On crée la boite de dialogue



Try



If OpenDialog1.Execute then //On ouvre la boite

begin

//Ton code ici par exemple:

ShowMessage(OpenDialog1.FileName);

end;

Finally

OpenDialog.Free; //Libération de la mémoire

end;

end;

end;


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Messages postés
31
Date d'inscription
jeudi 8 avril 2004
Statut
Membre
Dernière intervention
16 mars 2005

nickel merci
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
Pas de souci heureux d'avoir pu te depanner.

Bonne continuation,
JMP77.