%MyDocPath% ?Résolu

Question

Bonjours, je voudrai savoir si il y à un moyen de connaitre le chemins de "mes documents" et du "bureau" de windows, quel que soi la langue de windows, (et si possible quel que sois la version de windows)...

Merci 

PS : je sais qu'il existe des varables d'environement pour la pluspart des dossier spéciaux, (%WINDIR%,...) Mais j'en ai pas trouver pour ces 2 dossier la...

Cirec · Accepted Answer

Salut,

Uses ShlObj,

Function GetFolder(CSIDLValue: integer): String;
Var
  IdList            : PITEMIDLIST;
  Folder            : Array[0..MAX_PATH] Of Char;
Begin
  If SHGetSpecialFolderLocation(0, CSIDLValue, IdList) = 
    NOERROR  Then 
    Begin
      SHGetPathFromIDList(IdList, Folder);
      Result : = String(Folder);
    End
  Else Result :=  '';
 End ;

Label1.Caption : = GetFolder(CSIDL_PERSONAL);

@+
Cirec

Cirec · Answer

ps : javais oublier pour le bureau c'est : CSIDL_DESKTOP

Voilà il en existe encore d'autres une peite recherche sur le net devrait te donner des résultats

@+
Cirec

flo160fr · Answer

Merci bcp Cirec...

Au passage, tu pourai me doner le
CSIDL du dossier du menu démarré et celui de programme du menu démarré

(si c'est pas trop demander)

et encore merci

Cirec · Answer

Pour les autres voir ici :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp

@+
Cirec

MathU Zalem · Answer

Boujour à tous,
J'arrive après la bataille, mais (si ça peut aider les débutants qui hésitent à s'aventurer sur le MSDN - c'est grand, on se perd facilement!) quand on a le "bootstrap" (merci Cirec :o), il suffit de tirer dessus: Delphi >  aide  > SDK Windows, puis dans Index: SHGet..., déjà avec 5 lettres, on a plein de fonctions intéressantes dont SHGetSpecialFolderLocation(...) et dans cette fiche toutes (? dixit Win32 doc) les valeurs possibles pour CSIDL_...

Bonne Prog à tous

MathUZalem

%MyDocPath% ?

5 réponses

Votre réponse