Discussion :

[diam's]

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

J'ai bien trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[diam's]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[diam's]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Une idée ?

[SergioMaster]

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 .....

[diam's]

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

[thierrybo]

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é).