Eigenes Favoriten-Menü

[djpaull]

Ich bin auch grad dabei meine Favs zu erstellen. Habe den Code von MathiasSimmack im Beitrag #8 (Seite 1) genutzt. Habe alles soweits es ging deklariert. Nur in der Zeile   xPath := GetSpecialFolder(CSIDL_FAVORITES); kommt ein Fehler : nicht deklarierter Bezeichner 'GetSpecialFolder'. Habe das hier gefunden. Nur komme ich nicht weiter. Wenn ich das hier

Delphi-Quellcode:

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String; 
var 
  pMalloc: IMalloc; 
  pidl: PItemIDList; 
  Path: PChar; 
begin 
  // get IMalloc interface pointer 
  if (SHGetMalloc(pMalloc) <> S_OK) then 
  begin 
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.', 
               'SHGetMalloc(pMalloc)', 16); 
    Exit; 
  end; 

  // retrieve path 
  SHGetSpecialFolderLocation(hWindow, Folder, pidl); 
  GetMem(Path, MAX_PATH); 
  SHGetPathFromIDList(pidl, Path); 
  Result := Path; 
  FreeMem(Path); 

  // free memory allocated by SHGetSpecialFolderLocation 
  pMalloc.Free(pidl); 
end;

einbinde, sagt mir Delphi in der Zeile   xPath := GetSpecialFolder(CSIDL_FAVORITES); "Nicht genug wirkliche Parameter". Was habe ich vergessen?