delphi obtenir chemin d'accès au dossier

Je travaille avec Delphi 7 et je veux trouver le chemin de mon .. /Tous les Utilisateurs/Documents répertoire.

Je suis tombé sur le code suivant 

uses shlobj, ...

function GetMyDocuments: string;
 var
  r: Bool;
  path: array[0..Max_Path] of Char;
 begin
  r := ShGetSpecialFolderPath(0, path, CSIDL_Personal, False) ;
  if not r then 
    raise Exception.Create('Could not find MyDocuments folder location.') ;
  Result := Path;
 end;

Il fonctionne très bien mais il ne prend pas en charge CSIDL_COMMON_DOCUMENTS qui retourne le chemin d'accès souhaité.

En outre, comme par MS CSIDL ne devrait plus être utilisée au lieu d'utiliser KNOWNFOLDERID .

Et je n'ai besoin de travailler cette application sur plusieurs OS (windows uniquement).

Comment puis-je faire cela ?

L'aide est apprécié 🙂

OriginalL'auteur Shirish11 | 2012-01-03

  1. 5

    À mon avis, il n'y a rien de mal avec l'appel de SHGetSpecialFolderPath passant CSIDL_COMMON_DOCUMENTS. Si vous avez besoin de support XP, alors vous ne pouvez pas utiliser connue dossier Id. Vous pouvez écrire du code qui utilisé connue dossier Id sur Vista, et jusqu', et retomba à CSIDL sur les systèmes antérieurs. Mais pourquoi s'embêter? MS ont fait pour vous avec SHGetSpecialFolderPath.

    Je ne trouve pas CSIDL_COMMON_DOCUMENTS décélération dans mon Shlobj.pas fichier.
    Il a de la valeur $002E, vous aurez à déclarer la constante dans votre code

    OriginalL'auteur David Heffernan

  2. 3

    N'êtes-vous pas censé utiliser ShGetFolderPath de shell32.dll? Cela suppose l'utilisation de windows 2000 avec IE5 ou plus récent.

    vous devez ajouter shlobj pour les utilisations en ligne pour le code qui permet de l'utiliser.

    Comme il n'y a pas de définition pour SHGetFolderPath dans la source, vous pouvez utiliser les informations suivantes avant le code qui l'utilise:

    function SHGetFolderPath(hwnd: HWND; csidl: Integer; hToken: THandle; dwFlags: DWORD; pszPath: PChar): HResult; stdcall; external 'shfolder.dll' name 'SHGetFolderPathA';

    Delphi 7 ne pas faire usage de la version Large de la routine, de sorte que vous pouvez utiliser ce code.

    J'ai shlobj dans ma clause utilise et je ne peux pas trouver ShGetFolderPath en Delphi 7.
    Ah, ShGetFolderPath est plus récente que la votre .dcu - je vais mettre à jour la réponse à une modification de votre fichier qui devrait lui permettre de travailler

    OriginalL'auteur Petesh

  3. 2

    Que David a déjà indiqué, l'utilisation de la SHGetSpecialFolderPath) de la fonction.
    Vista et W7 va faire le CSIDL/Dossier de conversion pour vous.
    Si vous souhaitez utiliser la nouvelle API, Cela devrait le truc:
    Veuillez noter que cela ne fonctionnera qu'à partir de vista.

    unit Unit1;

interface

uses
  Windows, ActiveX, Forms, SysUtils, OleAuto, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


type
 TShGetKnownFolderPath = function(const rfid: TGUID; dwFlags: DWord; hToken: THandle; out ppszPath: PWideChar): HResult; stdcall;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ShGetKnownFolderPath(const rfid: TGUID; dwFlags: DWord; hToken: THandle; out ppszPath: PWideChar): HResult;

var Shell: HModule;
    Fn: TShGetKnownFolderPath;

begin
 Shell := LoadLibrary('shell32.dll');
 Win32Check(Shell <> 0);
 try
  @Fn := GetProcAddress(Shell, 'SHGetKnownFolderPath');
  Win32Check(Assigned(Fn));
  Result := Fn(rfid, dwFlags, hToken, ppszPath);
 finally
  FreeLibrary(Shell);
 end;
end;

function GetPublicDocuments: string;
 var
  ret: HResult;
  Buffer: PWideChar;
begin
  ret := ShGetKnownFolderPath(StringToGuid('{ED4824AF-DCE4-45A8-81E2-FC7965083634}'), 0, 0, Buffer) ;
  OleCheck(ret);
  try
   Result := Buffer;
  finally
    CoTaskMemFree(Buffer);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowMessage(GetPublicDocuments);
end;

end.

    OriginalL'auteur whosrdaddy

  4. 2

    Comme recommandé par Embarcadero dans cette doc: VistaUACandDelphi.pdf 

    Uses SHFolder;

function GetSpecialFolder (CSIDL: Integer; ForceFolder: Boolean = FALSE): string;
CONST SHGFP_TYPE_CURRENT = 0;
VAR i: Integer;
begin
 SetLength(Result, MAX_PATH);
 if ForceFolder
 then ShGetFolderPath(0, CSIDL OR CSIDL_FLAG_CREATE, 0, 0, PChar(Result))= S_ok
 else ShGetFolderPath(0, CSIDL, 0, 0, PChar(Result));
 i:= Pos(#0, Result);
 if i> 0
 then SetLength(Result, pred(i));

 Result:= Trail (Result);
end;

    L'utiliser comme ceci:

    s:= GetSpecialFolder(CSIDL_LOCAL_APPDATA, true);

    OriginalL'auteur Rigel