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

Soyez le premier à donner votre avis sur cette source.

Vue 4 961 fois - Téléchargée 723 fois

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

Ajouter un commentaire

Commentaires

craftsystem
Messages postés
146
Date d'inscription
samedi 21 juillet 2007
Statut
Membre
Dernière intervention
7 mars 2009
-
Merci Cirec

Ou veut tu que je te face la bise? LOL
sa sa va mettre bien utile

fini les adresse a taper a la main.
cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32 -
Merci,

oui je sais ...
mais si tu avais lu ce qu'il y a marqué dans le commentaire (juste au dessus de la fonction)
tu aurais compris le pourquoi du comment ;-) (Compatible D4)

En effet D4 ne connait pas "IncludeTrailingPathDelimiter"

Conclusion:
ceci à été fait dans un souci de compatibilité entre les versions de Delphi
et cette unité est compatible de Delphi4 à Turbo-Delphi.

En tous cas merci pour ton appréciation
Guillemouze
Messages postés
1015
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
5 -
une petite unité sympa ;)

juste une petite remarque : la fonction AddBackSlash existe deja (IncludeTrailingPathDelimiter).

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.