Get Mes documents chemin du dossier dans delphi

Question

i utilise le code suivant pour obtenir des répertoires spéciaux

uses 
    ActiveX, ShlObj; 

{...} 

procedure TForm1.Button1Click(Sender: TObject); 
// Replace CSIDL_HISTORY with the constants below 
var 
    Allocator: IMalloc; 
    SpecialDir: PItemIdList; 
    FBuf: array[0..MAX_PATH] of Char; 
    PerDir: string; 
begin 
    if SHGetMalloc(Allocator) = NOERROR then 
    begin 
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SpecialDir); 
    SHGetPathFromIDList(SpecialDir, @FBuf[0]); 
    Allocator.Free(SpecialDir); 
    ShowMessage(string(FBuf)); 
    end; 
end; 

Et maintenant je veux obtenir le chemin de mes documents donc j'utilise mydocfolderpath: = string (FBUF) + ' \ Documents 'et je pense que cela fonctionne bien mais mon doute est-ce le chemin mydocuments sur tous les PC Windows (personalfolder/documents) peut changer cette structure de l'utilisateur et rendre mon dossier de documents anywhare else (par exemple: c: \ documents) si l'utilisateur un changement le chemin me donner une bonne façon et j'aime savoir quel est le nom du dossier mydocuments (Mes Documents ou Documents)

Answer 1

CSIDL_PERSONAL est le dossier Mes Documents:

FOLDERID_Documents CSIDL_PERSONAL Version 6.0. Le dossier virtuel représente l'élément Mes documents Bureau . Ceci est équivalent à CSIDL_MYDOCUMENTS.

Avant la version 6.0. Le fichier répertoire système utilisé pour physiquement stocke le référentiel commun d'un utilisateur de documents. Un chemin type est C: \ Documents and Settings \ nom_utilisateur \ Mes documents . Cela doit être distingué du dossier Mes documents virtuel dans l'espace de noms. Pour accéder à ce dossier virtuel, utilisez SHGetFolderLocation, qui renvoie le ITEMIDLIST pour l'emplacement virtuel, ou se référer à la technique décrite dans Gestion du système de fichiers. Gestion du système de fichiers.

Voir: http://msdn.microsoft.com/en-us/library/bb762494(VS.85).aspx pour obtenir une liste et une description de toutes les constantes CSIDL disponibles

Answer 2

Si vous utilisez une version récente de Delphi (XE5 ou plus), vous pouvez utiliser les nouvelles classes agnostique de la plate-forme. Fondamentalement inclure System.IOUtils dans votre uses puis utilisez TPath.GetDocumentsPath pour obtenir le dossier de documents.

Vérifiez la Doc Wiki