function TForm1.Favoritesfolder: string;
var
pidl: PItemIDList;
buf: array[0..MAX_PATH] of Char;
begin
if Succeeded(ShGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl))
then begin
ShGetPathfromIDList(pidl, buf);
Result := buf;
end else Result:='';
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := Favoritesfolder;
end;