Connaître le chemin de Mes Documents / Home

Bonjour,

Je cherche une fonction qui me donnerait, en fonction de l'OS sur lequel tourne mon programme, soit :
- le path de "Mes Documents" si on est sous Windows
- le "/home/xxxxx" si on est sous linux (xxxxx représente le login de l'utilisateur)

Je sais qu'il faut utiliser :
- les instructions conditionnelles, mais est-ce valable pour les "uses" ?
- la façon de le faire :D

J'ai bien trouvé ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function MesDocsPath : string; var SFolder: PItemIDList; // erreur compil : identifier PItemIDList not found, error in type definition SpecialPath: array[0..MAX_PATH] of char; begin SHGetSpecialFolderLocation(Application.Handle, CSIDL_PERSONAL, SFolder); //identifier SHGetSpecialFolderLocation not found, //identifier idents no member 'Handle', //identifier CSIDL_PERSONAL not found, SHGetPathFromIDList(SFolder, SpecialPath); //identifier SHGetPathFromIDList not found Result := StrPas(SpecialPath); end;

---

Mais cela ne semble pas fonctionner sous Lazarus (c'est un code pour Delphi - j'utilise lazarus 0.9.24 beta) : le compilo ne reconnait pas par exemple 'PItemIDList' (je précise que j'ai bien inclus 'ShlObj' dans les uses)

A vos bonnes ames ;)

Bonjour,

Pour Linux, on peut utiliser directement Application.EnvironmentVariable['HOME'] (comme le proposerait certainement yann.m*). On aurait alors quelque chose comme cela

Code:

---

1 2 3 4 5 6 7

{$IFDEF Windows} //Votre code Windows {$ELSE} {$IFDEF Linux} Showmessage(Application.EnvironmentVariable['HOME']); {$ENDIF} {$ENDIF}

---

... ou de manière plus pédagogique, la fonction FpGetEnv de l'unit 'BaseUnix' [RTL] http://lazarus-ccr.sourceforge.net/d.../fpgetenv.html

Dans ce cas, dans les uses de la Form on ajoute {$IFDEF Linux} ,BaseUnix {$ENDIF}

Code:

---

1 2 3 4

uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls {$IFDEF Linux} ,BaseUnix {$ENDIF} ;

---

Et lorsqu'on veut utiliser la fonction :

Code:

---

1 2 3 4 5 6 7 8

{$IFDEF Windows} //Votre code Windows {$ELSE} {$IFDEF Linux} Showmessage(fpGetenv('HOME')); {$ENDIF} {$ENDIF}

---

*Je vous renvoie à une ancienne discussion : http://www.developpez.net/forums/d95...environnement/

Cordialement. Gilles

merci de cette réponse. Mais concernant linux, ne serait-il pas plus simple d'utiliser cette méthode (j'ai pas compilé pour linux encore) :

Code:

---

homedir:=expandfilename('~/');

---

Concernant les IFDEF : 'WINDOWS' fonctionnera-t-il quelque soit la version de Windows (98 à 7, 32/64 bits) ?

Autrement, voici l'erreur qui provoquait les problemes de compilo : il faut mettre 'windows' et pas 'ShlObj' dans les uses

Par contre, j'ai encore une petite question : le code donné précédemment, sous windows, me remplace les accents aigus par une virgule (que je remplace via une fonction ReplaceStr, mais c'est pas propre, et je ne sais pas ce que cela peut donner avec d'autres caractères accentués).

Voici de que j'obtiens :

Code:

---

C:\Documents and Settings\Propri‚taire\Mes documents\

---

au lieu de

Code:

---

C:\Documents and Settings\Propriétaire\Mes documents\

---

Une idée ?

UTF8Encode,UTF8Decode
encore une fois je suis perdu dans le monde de l'UTF8 mais le hic est là.

ou encore forcer la conversion ? StrPas(PWidechar(SpecialPath));

enfin l'esprit est là , je n'ai pas le courage de tester, c'est beau l'internationalisation des strings mais c'est .....:roll:

Merci, c'est "encode" qu'il me fallait. Moi aussi ça me fait braire cette internationalisation

Ps : en fait, c'est windows qui me ch**r à ne pas parler UTF8

Ps2 : ah, qu'est ce que c'était bien la bonne époque des caractères ascii ;)

Il y a déjà GetUserDir qui fait ça et qui fonctionne comme tu veux pour tous les systèmes basés sur Unix, par contre pas pour Windows où il te renvoie le répertoire de ton profil, pas le 'Mes documents'.
Ceci dit GetUserDir est correct, l'équivalent de /home/<user>/ est bien C:\Doc and settings\<User>\ sous XP. Mes Documents serait équivalent à /home/<user>/Documents par exemple.

Le problème c'est qu'il n'y a aucun moyen sur d'avoir ce "Mes documents" . Sous Linux c'est une convention de l'appeler Documents en français, sous Windows, il n'y a aucune variable d'environnement qui le donne et on ne peut pas assumer qu'il s'appelle "Mes Documents" sous le répertoire du profile, il peut être déplacé).