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

Signaler
Messages postés
226
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
28 septembre 2020
-
Messages postés
258
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
6 octobre 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
258
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
6 octobre 2020
8
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;
@+