Metadata
Author: Common crawl
Data
English[en]
We find its location by using the SHGetSpecialFolderLocation and SHGetPathFromIDList API calls (defined in the ShlObj unit) as follows: function GetSendToFolder: string; var pidl: PItemIDList; PPath: array[0..MAX_PATH] of AnsiChar; begin Result := ''; if SHGetSpecialFolderLocation(0, CSIDL_SENDTO, pidl) = NOERROR then begin try if SHGetPathFromIDList(pidl, PPath) then Result := PPath; finally CoTaskMemFree(pidl); end; end; end; We first use SHGetSpecialFolderLocation to get a PIDL representing the required folder.
Spanish[es]
Encontramos la ubicación llamando a las APIs SHGetSpecialFolderLocation y SHGetPathFromIDList (definidas en la unidad ShlObj) como sigue: function GetSendToFolder: string; var pidl: PItemIDList; PPath: array[0..MAX_PATH] of AnsiChar; begin Result := ''; if SHGetSpecialFolderLocation(0, CSIDL_SENDTO, pidl) = NOERROR then begin try if SHGetPathFromIDList(pidl, PPath) then Result := PPath; finally CoTaskMemFree(pidl); end; end; end; Primero usamos SHGetSpecialFolderLocation para obtener un PIDL representando la carpeta requerida.