Chemin relatif dans une applicationRésolu

Question

voil&#224; je voudrai utiliser la boite de dialogue d'ouverture de fichier.

Pour cel&#224;, je sais que j'ai un r&#233;pertoire nomm&#233; image dans le r&#233;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

jmp77 · Accepted Answer

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&#233;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&#233;ration de la m&#233;moire

      end;

   end;

end;


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_TkILLA · Answer

nickel merci

jmp77 · Answer

Pas de souci heureux d'avoir pu te depanner.

Bonne continuation,
JMP77.

Chemin relatif dans une application

3 réponses

Votre réponse

Discussions similaires