Ho risolto da solo
funzione SHGetFolderPath della unit shfolder.
Function SHGetFolderPath (Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall;
Assegnando a Csidl uno di questi valori
CSIDL_PROGRAMS
CSIDL_PERSONAL
CSIDL_FAVORITES
CSIDL_STARTUP
CSIDL_RECENT
CSIDL_SENDTO
CSIDL_STARTMENU
CSIDL_MYMUSIC
CSIDL_MYVIDEO
CSIDL_DESKTOPDIRECTORY
CSIDL_NETHOOD
CSIDL_TEMPLATES
CSIDL_COMMON_STARTMENU
CSIDL_COMMON_PROGRAMS
CSIDL_COMMON_STARTUP
CSIDL_COMMON_DESKTOPDIRECTORY
CSIDL_APPDATA
CSIDL_PRINTHOOD
CSIDL_LOCAL_APPDATA
CSIDL_COMMON_FAVORITES
CSIDL_INTERNET_CACHE
CSIDL_COOKIES
CSIDL_HISTORY
CSIDL_COMMON_APPDATA
CSIDL_WINDOWS
CSIDL_SYSTEM
CSIDL_PROGRAM_FILES
CSIDL_MYPICTURES
CSIDL_PROFILE
CSIDL_PROGRAM_FILES_COMMON
CSIDL_COMMON_TEMPLATES
CSIDL_COMMON_DOCUMENTS
CSIDL_COMMON_ADMINTOOLS
CSIDL_ADMINTOOLS
CSIDL_COMMON_MUSIC
CSIDL_COMMON_PICTURES
CSIDL_COMMON_VIDEO
CSIDL_CDBURN_AREA
CSIDL_PROFILES
|