Comment obtenir avec delphi le chemin du répertoire programme data ? [Résolu]

Signaler
Messages postés
210
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
3 août 2020
-
Messages postés
257
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
4 août 2020
-
Bonjour, je me demande comment obtenir avec delphi le chemin du répertoire programme data ?

a + plus denis

1 réponse

Messages postés
257
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
4 août 2020
9
Salut,
https://docs.microsoft.com/en-us/windows/win32/shell/csidl
uses Shlobj;

function SpecialFolder(Folder: Integer): String;
var
  SFolder : pItemIDList;
  SpecialPath : Array[0..MAX_PATH] Of Char;
begin
  SHGetFolderLocation(Form1.Handle, Folder, 0, SHGFP_TYPE_CURRENT, SFolder);
  SHGetPathFromIDList(SFolder, SpecialPath);
  Result := StrPas(SpecialPath);
end;

//Utilisation
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := SpecialFolder(CSIDL_APPDATA);
end;
@+