Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Shlobj;

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

{ Application : }
procedure TForm.MyButtonClick(Sender: TObject);
begin
  MyLabel.Caption := SpecialFolder(CSIDL_PERSONAL);
end;
Si qqn peut me traduire cela en C.
Oumexpliquer les paralettres,etc...
Merci