[utilitaire] accedez facilement aux répertoires du système et peut importe leurs localisations

Description

Au départ cette unité était prévue pour donner un exemple très simple
sur les classes et plus particulièrement la propriété par défaut, qui à mon
avis est trop souvent méconnue voir même inconnue.

Mais il s'avère que cette unité est devenue bien plus utile que pédagogique,
enfin pour moi, je m'en sert tout le temps.

C'est pour ces raisons que je vous la propose en tant qu'utilitaire
et non en tant qu'exemple.

Petite précision :

Un Path se termine toujours avec un BackSlash " \ "
contrairement au Dir qui n'en a pas.

Ex. ExtractFilePath(ParmStr(0)) ---> C:\MonDossier\
ExtractFileDir(ParmStr(0)) ---> C:\MonDossier

L'utilisation est très simple :
Placez l'unité UPath dans un répertoire connu de Delphi (\Lib par Ex.)
et il suffit de déclarer UPath dans les Uses
et par Ex. :
Bmp.LoadFromFile(Path.MyPictures + 'Nom_du_Fichier.BMP');
qui est équivalent à :
Bmp.LoadFromFile(Path[CSIDL_MYPICTURES] + 'Nom_du_Fichier.BMP');

pour le reste voir la Démo

Source / Exemple :


all in Zip ... ;-)

Conclusion :


Remerciements :

à Matt et à Francky pour les testes qu'ils ont éffectués

à CptPingu pour la correction orthographique (LOCATION --> LOCALISATIONS)

Codes Sources

A voir également

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.