{$IFNDEF FPC_DOTTEDUNITS} unit WinDirs; {$ENDIF FPC_DOTTEDUNITS} {******************************************************************************* IMPORTANT NOTES: SHGetFolderPath function is deprecated. Only some CSIDL values are supported. As of Windows Vista, this function is merely a wrapper for SHGetKnownFolderPath. The CSIDL value is translated to its associated KNOWNFOLDERID and then SHGetKnownFolderPath is called. New applications should use the known folder system rather than the older CSIDL system, which is supported only for backward compatibility. Official list of CSIDL and FOLDERID constants: https://msdn.microsoft.com/en-us/library/windows/desktop/bb762494.aspx https://msdn.microsoft.com/en-us/library/windows/desktop/dd378457.aspx *******************************************************************************} {$mode objfpc} {$H+} interface // CSIDL_* constants are also declared in "ShellApi" and "shfolder" units. // If changed, remember to add an appropriate mapping in CSIDLtoFOLDERID list. const CSIDL_PROGRAMS = $0002; { %SYSTEMDRIVE%\Program Files } CSIDL_PERSONAL = $0005; { %USERPROFILE%\My Documents } CSIDL_FAVORITES = $0006; { %USERPROFILE%\Favorites } CSIDL_STARTUP = $0007; { %USERPROFILE%\Start menu\Programs\Startup } CSIDL_RECENT = $0008; { %USERPROFILE%\Recent } CSIDL_SENDTO = $0009; { %USERPROFILE%\Sendto } CSIDL_STARTMENU = $000B; { %USERPROFILE%\Start menu } CSIDL_MYMUSIC = $000D; { %USERPROFILE%\Documents\My Music } CSIDL_MYVIDEO = $000E; { %USERPROFILE%\Documents\My Videos } CSIDL_DESKTOPDIRECTORY = $0010; { %USERPROFILE%\Desktop } CSIDL_NETHOOD = $0013; { %USERPROFILE%\NetHood } CSIDL_FONTS = $0014; { %SYSTEMROOT%\Fonts } CSIDL_TEMPLATES = $0015; { %USERPROFILE%\Templates } CSIDL_COMMON_STARTMENU = $0016; { %PROFILEPATH%\All users\Start menu } CSIDL_COMMON_PROGRAMS = $0017; { %PROFILEPATH%\All users\Start menu\Programs } CSIDL_COMMON_STARTUP = $0018; { %PROFILEPATH%\All users\Start menu\Programs\Startup } CSIDL_COMMON_DESKTOPDIRECTORY = $0019; { %PROFILEPATH%\All users\Desktop } CSIDL_APPDATA = $001A; { %USERPROFILE%\Application Data (roaming) } CSIDL_PRINTHOOD = $001B; { %USERPROFILE%\Printhood } CSIDL_LOCAL_APPDATA = $001C; { %USERPROFILE%\Local Settings\Application Data (non roaming) } CSIDL_COMMON_FAVORITES = $001F; { %PROFILEPATH%\All users\Favorites } CSIDL_INTERNET_CACHE = $0020; { %USERPROFILE%\Local Settings\Temporary Internet Files } CSIDL_COOKIES = $0021; { %USERPROFILE%\Cookies } CSIDL_HISTORY = $0022; { %USERPROFILE%\Local settings\History } CSIDL_COMMON_APPDATA = $0023; { %PROFILESPATH%\All Users\Application Data } CSIDL_WINDOWS = $0024; { %SYSTEMROOT% } CSIDL_SYSTEM = $0025; { %SYSTEMROOT%\SYSTEM32 (may be system on 95/98/ME) } CSIDL_PROGRAM_FILES = $0026; { %SYSTEMDRIVE%\Program Files } CSIDL_MYPICTURES = $0027; { %USERPROFILE%\My Documents\My Pictures } CSIDL_PROFILE = $0028; { %USERPROFILE% } CSIDL_PROGRAM_FILES_COMMON = $002B; { %SYSTEMDRIVE%\Program Files\Common } CSIDL_COMMON_TEMPLATES = $002D; { %PROFILEPATH%\All Users\Templates } CSIDL_COMMON_DOCUMENTS = $002E; { %PROFILEPATH%\All Users\Documents } CSIDL_COMMON_ADMINTOOLS = $002F; { %PROFILEPATH%\All Users\Start Menu\Programs\Administrative Tools } CSIDL_ADMINTOOLS = $0030; { %USERPROFILE%\Start Menu\Programs\Administrative Tools } CSIDL_COMMON_MUSIC = $0035; { %PROFILEPATH%\All Users\Documents\my music } CSIDL_COMMON_PICTURES = $0036; { %PROFILEPATH%\All Users\Documents\my pictures } CSIDL_COMMON_VIDEO = $0037; { %PROFILEPATH%\All Users\Documents\my videos } CSIDL_CDBURN_AREA = $003B; { %USERPROFILE%\Local Settings\Application Data\Microsoft\CD Burning } CSIDL_PROFILES = $003E; { %PROFILEPATH% } // NOTE: CSIDL_PROFILES has been removed from Microsoft official documentation! CSIDL_FLAG_CREATE = $8000; { (force creation of requested folder if it doesn't exist yet) } // FOLDERID_* constants parsed from KnownFolders.h file in // Windows 10 SDK for Fall Creators Update (10.0.16299.91). // If changed, remember to add an appropriate mapping in CSIDLtoFOLDERID list. const FOLDERID_AccountPictures : TGUID = '{008CA0B1-55B4-4C56-B8A8-4DE4B299D3BE}'; FOLDERID_AddNewPrograms : TGUID = '{DE61D971-5EBC-4F02-A3A9-6C82895E5C04}'; FOLDERID_AdminTools : TGUID = '{724EF170-A42D-4FEF-9F26-B60E846FBA4F}'; FOLDERID_AllAppMods : TGUID = '{7AD67899-66AF-43BA-9156-6AAD42E6C596}'; FOLDERID_AppCaptures : TGUID = '{EDC0FE71-98D8-4F4A-B920-C8DC133CB165}'; FOLDERID_AppDataDesktop : TGUID = '{B2C5E279-7ADD-439F-B28C-C41FE1BBF672}'; FOLDERID_AppDataDocuments : TGUID = '{7BE16610-1F7F-44AC-BFF0-83E15F2FFCA1}'; FOLDERID_AppDataFavorites : TGUID = '{7CFBEFBC-DE1F-45AA-B843-A542AC536CC9}'; FOLDERID_AppDataProgramData : TGUID = '{559D40A3-A036-40FA-AF61-84CB430A4D34}'; FOLDERID_AppUpdates : TGUID = '{A305CE99-F527-492B-8B1A-7E76FA98D6E4}'; FOLDERID_ApplicationShortcuts : TGUID = '{A3918781-E5F2-4890-B3D9-A7E54332328C}'; FOLDERID_AppsFolder : TGUID = '{1E87508D-89C2-42F0-8A7E-645A0F50CA58}'; FOLDERID_CDBurning : TGUID = '{9E52AB10-F80D-49DF-ACB8-4330F5687855}'; FOLDERID_CameraRoll : TGUID = '{AB5FB87B-7CE2-4F83-915D-550846C9537B}'; FOLDERID_CameraRollLibrary : TGUID = '{2B20DF75-1EDA-4039-8097-38798227D5B7}'; FOLDERID_ChangeRemovePrograms : TGUID = '{DF7266AC-9274-4867-8D55-3BD661DE872D}'; FOLDERID_CommonAdminTools : TGUID = '{D0384E7D-BAC3-4797-8F14-CBA229B392B5}'; FOLDERID_CommonOEMLinks : TGUID = '{C1BAE2D0-10DF-4334-BEDD-7AA20B227A9D}'; FOLDERID_CommonPrograms : TGUID = '{0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8}'; FOLDERID_CommonStartMenu : TGUID = '{A4115719-D62E-491D-AA7C-E74B8BE3B067}'; FOLDERID_CommonStartMenuPlaces : TGUID = '{A440879F-87A0-4F7D-B700-0207B966194A}'; FOLDERID_CommonStartup : TGUID = '{82A5EA35-D9CD-47C5-9629-E15D2F714E6E}'; FOLDERID_CommonTemplates : TGUID = '{B94237E7-57AC-4347-9151-B08C6C32D1F7}'; FOLDERID_ComputerFolder : TGUID = '{0AC0837C-BBF8-452A-850D-79D08E667CA7}'; FOLDERID_ConflictFolder : TGUID = '{4BFEFB45-347D-4006-A5BE-AC0CB0567192}'; FOLDERID_ConnectionsFolder : TGUID = '{6F0CD92B-2E97-45D1-88FF-B0D186B8DEDD}'; FOLDERID_Contacts : TGUID = '{56784854-C6CB-462B-8169-88E350ACB882}'; FOLDERID_ControlPanelFolder : TGUID = '{82A74AEB-AEB4-465C-A014-D097EE346D63}'; FOLDERID_Cookies : TGUID = '{2B0F765D-C0E9-4171-908E-08A611B84FF6}'; FOLDERID_CurrentAppMods : TGUID = '{3DB40B20-2A30-4DBE-917E-771DD21DD099}'; FOLDERID_Desktop : TGUID = '{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}'; FOLDERID_DevelopmentFiles : TGUID = '{DBE8E08E-3053-4BBC-B183-2A7B2B191E59}'; FOLDERID_Device : TGUID = '{1C2AC1DC-4358-4B6C-9733-AF21156576F0}'; FOLDERID_DeviceMetadataStore : TGUID = '{5CE4A5E9-E4EB-479D-B89F-130C02886155}'; FOLDERID_Documents : TGUID = '{FDD39AD0-238F-46AF-ADB4-6C85480369C7}'; FOLDERID_DocumentsLibrary : TGUID = '{7B0DB17D-9CD2-4A93-9733-46CC89022E7C}'; FOLDERID_Downloads : TGUID = '{374DE290-123F-4565-9164-39C4925E467B}'; FOLDERID_Favorites : TGUID = '{1777F761-68AD-4D8A-87BD-30B759FA33DD}'; FOLDERID_Fonts : TGUID = '{FD228CB7-AE11-4AE3-864C-16F3910AB8FE}'; FOLDERID_GameTasks : TGUID = '{054FAE61-4DD8-4787-80B6-090220C4B700}'; FOLDERID_Games : TGUID = '{CAC52C1A-B53D-4EDC-92D7-6B2E8AC19434}'; FOLDERID_History : TGUID = '{D9DC8A3B-B784-432E-A781-5A1130A75963}'; FOLDERID_HomeGroup : TGUID = '{52528A6B-B9E3-4ADD-B60D-588C2DBA842D}'; FOLDERID_HomeGroupCurrentUser : TGUID = '{9B74B6A3-0DFD-4F11-9E78-5F7800F2E772}'; FOLDERID_ImplicitAppShortcuts : TGUID = '{BCB5256F-79F6-4CEE-B725-DC34E402FD46}'; FOLDERID_InternetCache : TGUID = '{352481E8-33BE-4251-BA85-6007CAEDCF9D}'; FOLDERID_InternetFolder : TGUID = '{4D9F7874-4E0C-4904-967B-40B0D20C3E4B}'; FOLDERID_Libraries : TGUID = '{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}'; FOLDERID_Links : TGUID = '{BFB9D5E0-C6A9-404C-B2B2-AE6DB6AF4968}'; FOLDERID_LocalAppData : TGUID = '{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}'; FOLDERID_LocalAppDataLow : TGUID = '{A520A1A4-1780-4FF6-BD18-167343C5AF16}'; FOLDERID_LocalDocuments : TGUID = '{F42EE2D3-909F-4907-8871-4C22FC0BF756}'; FOLDERID_LocalDownloads : TGUID = '{7D83EE9B-2244-4E70-B1F5-5393042AF1E4}'; FOLDERID_LocalMusic : TGUID = '{A0C69A99-21C8-4671-8703-7934162FCF1D}'; FOLDERID_LocalPictures : TGUID = '{0DDD015D-B06C-45D5-8C4C-F59713854639}'; FOLDERID_LocalVideos : TGUID = '{35286A68-3C57-41A1-BBB1-0EAE73D76C95}'; FOLDERID_LocalizedResourcesDir : TGUID = '{2A00375E-224C-49DE-B8D1-440DF7EF3DDC}'; FOLDERID_Music : TGUID = '{4BD8D571-6D19-48D3-BE97-422220080E43}'; FOLDERID_MusicLibrary : TGUID = '{2112AB0A-C86A-4FFE-A368-0DE96E47012E}'; FOLDERID_NetHood : TGUID = '{C5ABBF53-E17F-4121-8900-86626FC2C973}'; FOLDERID_NetworkFolder : TGUID = '{D20BEEC4-5CA8-4905-AE3B-BF251EA09B53}'; FOLDERID_Objects3D : TGUID = '{31C0DD25-9439-4F12-BF41-7FF4EDA38722}'; FOLDERID_OneDrive : TGUID = '{A52BBA46-E9E1-435F-B3D9-28DAA648C0F6}'; FOLDERID_OriginalImages : TGUID = '{2C36C0AA-5812-4B87-BFD0-4CD0DFB19B39}'; FOLDERID_PhotoAlbums : TGUID = '{69D2CF90-FC33-4FB7-9A0C-EBB0F0FCB43C}'; FOLDERID_Pictures : TGUID = '{33E28130-4E1E-4676-835A-98395C3BC3BB}'; FOLDERID_PicturesLibrary : TGUID = '{A990AE9F-A03B-4E80-94BC-9912D7504104}'; FOLDERID_Playlists : TGUID = '{DE92C1C7-837F-4F69-A3BB-86E631204A23}'; FOLDERID_PrintHood : TGUID = '{9274BD8D-CFD1-41C3-B35E-B13F55A758F4}'; FOLDERID_PrintersFolder : TGUID = '{76FC4E2D-D6AD-4519-A663-37BD56068185}'; FOLDERID_Profile : TGUID = '{5E6C858F-0E22-4760-9AFE-EA3317B67173}'; FOLDERID_ProgramData : TGUID = '{62AB5D82-FDC1-4DC3-A9DD-070D1D495D97}'; FOLDERID_ProgramFiles : TGUID = '{905E63B6-C1BF-494E-B29C-65B732D3D21A}'; FOLDERID_ProgramFilesCommon : TGUID = '{F7F1ED05-9F6D-47A2-AAAE-29D317C6F066}'; FOLDERID_ProgramFilesCommonX64 : TGUID = '{6365D5A7-0F0D-45E5-87F6-0DA56B6A4F7D}'; FOLDERID_ProgramFilesCommonX86 : TGUID = '{DE974D24-D9C6-4D3E-BF91-F4455120B917}'; FOLDERID_ProgramFilesX64 : TGUID = '{6D809377-6AF0-444B-8957-A3773F02200E}'; FOLDERID_ProgramFilesX86 : TGUID = '{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}'; FOLDERID_Programs : TGUID = '{A77F5D77-2E2B-44C3-A6A2-ABA601054A51}'; FOLDERID_Public : TGUID = '{DFDF76A2-C82A-4D63-906A-5644AC457385}'; FOLDERID_PublicDesktop : TGUID = '{C4AA340D-F20F-4863-AFEF-F87EF2E6BA25}'; FOLDERID_PublicDocuments : TGUID = '{ED4824AF-DCE4-45A8-81E2-FC7965083634}'; FOLDERID_PublicDownloads : TGUID = '{3D644C9B-1FB8-4F30-9B45-F670235F79C0}'; FOLDERID_PublicGameTasks : TGUID = '{DEBF2536-E1A8-4C59-B6A2-414586476AEA}'; FOLDERID_PublicLibraries : TGUID = '{48DAF80B-E6CF-4F4E-B800-0E69D84EE384}'; FOLDERID_PublicMusic : TGUID = '{3214FAB5-9757-4298-BB61-92A9DEAA44FF}'; FOLDERID_PublicPictures : TGUID = '{B6EBFB86-6907-413C-9AF7-4FC2ABF07CC5}'; FOLDERID_PublicRingtones : TGUID = '{E555AB60-153B-4D17-9F04-A5FE99FC15EC}'; FOLDERID_PublicUserTiles : TGUID = '{0482AF6C-08F1-4C34-8C90-E17EC98B1E17}'; FOLDERID_PublicVideos : TGUID = '{2400183A-6185-49FB-A2D8-4A392A602BA3}'; FOLDERID_QuickLaunch : TGUID = '{52A4F021-7B75-48A9-9F6B-4B87A210BC8F}'; FOLDERID_Recent : TGUID = '{AE50C081-EBD2-438A-8655-8A092E34987A}'; FOLDERID_RecordedCalls : TGUID = '{2F8B40C2-83ED-48EE-B383-A1F157EC6F9A}'; FOLDERID_RecordedTVLibrary : TGUID = '{1A6FDBA2-F42D-4358-A798-B74D745926C5}'; FOLDERID_RecycleBinFolder : TGUID = '{B7534046-3ECB-4C18-BE4E-64CD4CB7D6AC}'; FOLDERID_ResourceDir : TGUID = '{8AD10C31-2ADB-4296-A8F7-E4701232C972}'; FOLDERID_RetailDemo : TGUID = '{12D4C69E-24AD-4923-BE19-31321C43A767}'; FOLDERID_Ringtones : TGUID = '{C870044B-F49E-4126-A9C3-B52A1FF411E8}'; FOLDERID_RoamedTileImages : TGUID = '{AAA8D5A5-F1D6-4259-BAA8-78E7EF60835E}'; FOLDERID_RoamingAppData : TGUID = '{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}'; FOLDERID_RoamingTiles : TGUID = '{00BCFC5A-ED94-4E48-96A1-3F6217F21990}'; FOLDERID_SEARCH_CSC : TGUID = '{EE32E446-31CA-4ABA-814F-A5EBD2FD6D5E}'; FOLDERID_SEARCH_MAPI : TGUID = '{98EC0E18-2098-4D44-8644-66979315A281}'; FOLDERID_SampleMusic : TGUID = '{B250C668-F57D-4EE1-A63C-290EE7D1AA1F}'; FOLDERID_SamplePictures : TGUID = '{C4900540-2379-4C75-844B-64E6FAF8716B}'; FOLDERID_SamplePlaylists : TGUID = '{15CA69B3-30EE-49C1-ACE1-6B5EC372AFB5}'; FOLDERID_SampleVideos : TGUID = '{859EAD94-2E85-48AD-A71A-0969CB56A6CD}'; FOLDERID_SavedGames : TGUID = '{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}'; FOLDERID_SavedPictures : TGUID = '{3B193882-D3AD-4EAB-965A-69829D1FB59F}'; FOLDERID_SavedPicturesLibrary : TGUID = '{E25B5812-BE88-4BD9-94B0-29233477B6C3}'; FOLDERID_SavedSearches : TGUID = '{7D1D3A04-DEBB-4115-95CF-2F29DA2920DA}'; FOLDERID_Screenshots : TGUID = '{B7BEDE81-DF94-4682-A7D8-57A52620B86F}'; FOLDERID_SearchHistory : TGUID = '{0D4C3DB6-03A3-462F-A0E6-08924C41B5D4}'; FOLDERID_SearchHome : TGUID = '{190337D1-B8CA-4121-A639-6D472D16972A}'; FOLDERID_SearchTemplates : TGUID = '{7E636BFE-DFA9-4D5E-B456-D7B39851D8A9}'; FOLDERID_SendTo : TGUID = '{8983036C-27C0-404B-8F08-102D10DCFD74}'; FOLDERID_SidebarDefaultParts : TGUID = '{7B396E54-9EC5-4300-BE0A-2482EBAE1A26}'; FOLDERID_SidebarParts : TGUID = '{A75D362E-50FC-4FB7-AC2C-A8BEAA314493}'; FOLDERID_SkyDrive : TGUID = '{A52BBA46-E9E1-435F-B3D9-28DAA648C0F6}'; FOLDERID_SkyDriveCameraRoll : TGUID = '{767E6811-49CB-4273-87C2-20F355E1085B}'; FOLDERID_SkyDriveDocuments : TGUID = '{24D89E24-2F19-4534-9DDE-6A6671FBB8FE}'; FOLDERID_SkyDriveMusic : TGUID = '{C3F2459E-80D6-45DC-BFEF-1F769F2BE730}'; FOLDERID_SkyDrivePictures : TGUID = '{339719B5-8C47-4894-94C2-D8F77ADD44A6}'; FOLDERID_StartMenu : TGUID = '{625B53C3-AB48-4EC1-BA1F-A1EF4146FC19}'; FOLDERID_StartMenuAllPrograms : TGUID = '{F26305EF-6948-40B9-B255-81453D09C785}'; FOLDERID_Startup : TGUID = '{B97D20BB-F46A-4C97-BA10-5E3608430854}'; FOLDERID_SyncManagerFolder : TGUID = '{43668BF8-C14E-49B2-97C9-747784D784B7}'; FOLDERID_SyncResultsFolder : TGUID = '{289A9A43-BE44-4057-A41B-587A76D7E7F9}'; FOLDERID_SyncSetupFolder : TGUID = '{0F214138-B1D3-4A90-BBA9-27CBC0C5389A}'; FOLDERID_System : TGUID = '{1AC14E77-02E7-4E5D-B744-2EB1AE5198B7}'; FOLDERID_SystemX86 : TGUID = '{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}'; FOLDERID_Templates : TGUID = '{A63293E8-664E-48DB-A079-DF759E0509F7}'; FOLDERID_UserPinned : TGUID = '{9E3995AB-1F9C-4F13-B827-48B24B6C7174}'; FOLDERID_UserProfiles : TGUID = '{0762D272-C50A-4BB0-A382-697DCD729B80}'; FOLDERID_UserProgramFiles : TGUID = '{5CD7AEE2-2219-4A67-B85D-6C9CE15660CB}'; FOLDERID_UserProgramFilesCommon : TGUID = '{BCBD3057-CA5C-4622-B42D-BC56DB0AE516}'; FOLDERID_UsersFiles : TGUID = '{F3CE0F7C-4901-4ACC-8648-D5D44B04EF8F}'; FOLDERID_UsersLibraries : TGUID = '{A302545D-DEFF-464B-ABE8-61C8648D939B}'; FOLDERID_Videos : TGUID = '{18989B1D-99B5-455B-841C-AB7C74E4DDFC}'; FOLDERID_VideosLibrary : TGUID = '{491E922F-5643-4AF4-A7EB-4E7A138D8174}'; FOLDERID_Windows : TGUID = '{F38BF404-1D43-42F2-9305-67DE0B28FC23}'; // KNOWN_FOLDER_FLAG enumeration const KF_FLAG_DEFAULT = DWORD(0); KF_FLAG_CREATE = DWORD($8000); function GetWindowsSpecialDir(ID: Integer; CreateIfNotExists: Boolean = True): String; function GetWindowsSpecialDir(const GUID: TGUID; CreateIfNotExists: Boolean = True): String; function GetWindowsSpecialDirUnicode(ID: Integer; CreateIfNotExists: Boolean = True): UnicodeString; function GetWindowsSpecialDirUnicode(const GUID: TGUID; CreateIfNotExists: Boolean = True): UnicodeString; function GetWindowsSystemDirectory: String; function GetWindowsSystemDirectoryUnicode: UnicodeString; function ConvertCSIDLtoFOLDERID(CSIDL: Integer; out FOLDERID: TGUID): Boolean; function ConvertFOLDERIDtoCSIDL(const FOLDERID: TGUID; out CSIDL: Integer): Boolean; implementation {$IFDEF FPC_DOTTEDUNITS} uses WinApi.Windows; {$ELSE FPC_DOTTEDUNITS} uses Windows; {$ENDIF FPC_DOTTEDUNITS} type TCSIDLtoFOLDERID = record CSIDL: Integer; FOLDERID: PGUID; end; const // Mapping of legacy CSIDL_* constants to their appropriate FOLDERID_* counterparts. CSIDLtoFOLDERID: array [1..40] of TCSIDLtoFOLDERID = ( (CSIDL: CSIDL_PROGRAMS; FOLDERID: @FOLDERID_Programs), (CSIDL: CSIDL_PERSONAL; FOLDERID: @FOLDERID_Documents), (CSIDL: CSIDL_FAVORITES; FOLDERID: @FOLDERID_Favorites), (CSIDL: CSIDL_STARTUP; FOLDERID: @FOLDERID_Startup), (CSIDL: CSIDL_RECENT; FOLDERID: @FOLDERID_Recent), (CSIDL: CSIDL_SENDTO; FOLDERID: @FOLDERID_SendTo), (CSIDL: CSIDL_STARTMENU; FOLDERID: @FOLDERID_StartMenu), (CSIDL: CSIDL_MYMUSIC; FOLDERID: @FOLDERID_Music), (CSIDL: CSIDL_MYVIDEO; FOLDERID: @FOLDERID_Videos), (CSIDL: CSIDL_DESKTOPDIRECTORY; FOLDERID: @FOLDERID_Desktop), (CSIDL: CSIDL_NETHOOD; FOLDERID: @FOLDERID_NetHood), (CSIDL: CSIDL_FONTS; FOLDERID: @FOLDERID_Fonts), (CSIDL: CSIDL_TEMPLATES; FOLDERID: @FOLDERID_Templates), (CSIDL: CSIDL_COMMON_STARTMENU; FOLDERID: @FOLDERID_CommonStartMenu), (CSIDL: CSIDL_COMMON_PROGRAMS; FOLDERID: @FOLDERID_CommonPrograms), (CSIDL: CSIDL_COMMON_STARTUP; FOLDERID: @FOLDERID_CommonStartup), (CSIDL: CSIDL_COMMON_DESKTOPDIRECTORY; FOLDERID: @FOLDERID_PublicDesktop), (CSIDL: CSIDL_APPDATA; FOLDERID: @FOLDERID_RoamingAppData), (CSIDL: CSIDL_PRINTHOOD; FOLDERID: @FOLDERID_PrintHood), (CSIDL: CSIDL_LOCAL_APPDATA; FOLDERID: @FOLDERID_LocalAppData), (CSIDL: CSIDL_COMMON_FAVORITES; FOLDERID: @FOLDERID_Favorites), (CSIDL: CSIDL_INTERNET_CACHE; FOLDERID: @FOLDERID_InternetCache), (CSIDL: CSIDL_COOKIES; FOLDERID: @FOLDERID_Cookies), (CSIDL: CSIDL_HISTORY; FOLDERID: @FOLDERID_History), (CSIDL: CSIDL_COMMON_APPDATA; FOLDERID: @FOLDERID_ProgramData), (CSIDL: CSIDL_WINDOWS; FOLDERID: @FOLDERID_Windows), (CSIDL: CSIDL_SYSTEM; FOLDERID: @FOLDERID_System), (CSIDL: CSIDL_PROGRAM_FILES; FOLDERID: @FOLDERID_ProgramFiles), (CSIDL: CSIDL_MYPICTURES; FOLDERID: @FOLDERID_Pictures), (CSIDL: CSIDL_PROFILE; FOLDERID: @FOLDERID_Profile), (CSIDL: CSIDL_PROGRAM_FILES_COMMON; FOLDERID: @FOLDERID_ProgramFilesCommon), (CSIDL: CSIDL_COMMON_TEMPLATES; FOLDERID: @FOLDERID_CommonTemplates), (CSIDL: CSIDL_COMMON_DOCUMENTS; FOLDERID: @FOLDERID_PublicDocuments), (CSIDL: CSIDL_COMMON_ADMINTOOLS; FOLDERID: @FOLDERID_CommonAdminTools), (CSIDL: CSIDL_ADMINTOOLS; FOLDERID: @FOLDERID_AdminTools), (CSIDL: CSIDL_COMMON_MUSIC; FOLDERID: @FOLDERID_PublicMusic), (CSIDL: CSIDL_COMMON_PICTURES; FOLDERID: @FOLDERID_PublicPictures), (CSIDL: CSIDL_COMMON_VIDEO; FOLDERID: @FOLDERID_PublicVideos), (CSIDL: CSIDL_CDBURN_AREA; FOLDERID: @FOLDERID_CDBurning), (CSIDL: CSIDL_PROFILES; FOLDERID: @FOLDERID_UserProfiles) ); type KNOWNFOLDERID = TGUID; type // HRESULT SHGetFolderPath( // _In_ HWND hwndOwner, // _In_ int nFolder, // _In_ HANDLE hToken, // _In_ DWORD dwFlags, // _Out_ LPTSTR pszPath // ); // DLL: Shell32.dll (version 5.0 or later) // OS: Windows 2000 and newer TSHGetFolderPathW = function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWORD; Path: PWideChar): HRESULT; stdcall; // HRESULT SHGetKnownFolderPath( // _In_ REFKNOWNFOLDERID rfid, // _In_ DWORD dwFlags, // _In_opt_ HANDLE hToken, // _Out_ PWSTR *ppszPath // ); // DLL: Shell32.dll (version 6.0.6000 or later) // OS: Windows Vista / Server 2008 and newer TSHGetKnownFolderPathW = function(const rfid: KNOWNFOLDERID; dwFlags: DWORD; hToken: THandle; out ppszPath: LPWSTR): HRESULT; stdcall; var _SHGetFolderPathW : TSHGetFolderPathW = nil; _SHGetKnownFolderPathW: TSHGetKnownFolderPathW = nil; // CoTaskMemFree is required for the use of SHGetKnownFolderPath function. // CoTaskMemFree function signature was copied from ActiveX unit. _CoTaskMemFree: procedure(_para1:PVOID); stdcall; = nil; Shell32DLLHandle: THandle = 0; Ole32DLLHandle: THandle = 0; { Taken from sysutils } function StrPas(Str: PWideChar): UnicodeString;overload; begin Result:=Str; end; function IncludeTrailingPathDelimiter(Const S : String) : String; begin Result:=S; if (Result='') or (Result[Length(Result)]<>DirectorySeparator) then Result:=Result+DirectorySeparator; end; function IsEqualGUID(const guid1, guid2: TGUID): Boolean; var a1,a2: PIntegerArray; begin a1:=PIntegerArray(@guid1); a2:=PIntegerArray(@guid2); Result:=(a1^[0]=a2^[0]) and (a1^[1]=a2^[1]) and (a1^[2]=a2^[2]) and (a1^[3]=a2^[3]); end; { End of taken from Sysutils } procedure InitDLL; begin if Shell32DLLHandle <> 0 then exit; { Btw, contrary to Mantis #18185 these DLLs are “Known DLLs” so relative paths won’t check the app folder. (And even if they did, so what: wrong app.exe can be spoofed just as well as wrong shell32.dll). } Shell32DLLHandle := LoadLibraryW('shell32.dll'); Pointer(_SHGetFolderPathW) := GetProcAddress(Shell32DLLHandle, 'SHGetFolderPathW'); Pointer(_SHGetKnownFolderPathW) := GetProcAddress(Shell32DLLHandle, 'SHGetKnownFolderPath'); Ole32DLLHandle := LoadLibraryW('ole32.dll'); Pointer(_CoTaskMemFree) := GetProcAddress(Ole32DLLHandle, 'CoTaskMemFree'); end; function GetWindowsSystemDirectoryUnicode: UnicodeString; var Buffer: array [0..MAX_PATH] of WideChar; CharCount: Integer; begin CharCount := GetSystemDirectoryW(@Buffer[0], Length(Buffer)); // CharCount is length in TCHARs not including the terminating null character. // If result did not fit, CharCount will be bigger than buffer size. if CharCount > High(Buffer) then CharCount := 0; SetString(Result, PWideChar(Buffer), CharCount); end; function GetWindowsSystemDirectory: String; begin Result := String(GetWindowsSystemDirectoryUnicode); end; function GetWindowsSpecialDirUnicode(ID: Integer; CreateIfNotExists: Boolean = True): UnicodeString; var Buffer: array [0..MAX_PATH] of WideChar; FOLDERID: TGUID; begin InitDLL; Result := ''; if CreateIfNotExists then ID := ID or CSIDL_FLAG_CREATE; if _SHGetFolderPathW(0, ID, 0, 0, @Buffer[0]) = S_OK then Result := IncludeTrailingPathDelimiter(StrPas(Buffer)); end; function GetWindowsSpecialDirUnicode(const GUID: TGUID; CreateIfNotExists: Boolean = True): UnicodeString; var Flags: DWORD; Path: LPWSTR; CSIDL: Integer; begin InitDLL; Result := ''; if _SHGetKnownFolderPathW = nil then begin if ConvertFOLDERIDtoCSIDL(GUID, CSIDL) then Result := GetWindowsSpecialDirUnicode(CSIDL, CreateIfNotExists); end else begin Path := nil; Flags := KF_FLAG_DEFAULT; if CreateIfNotExists then Flags := Flags or KF_FLAG_CREATE; if _SHGetKnownFolderPathW(GUID, Flags, 0, Path) = S_OK then begin Result := StrPas(Path); _CoTaskMemFree(Path); end; end; end; function GetWindowsSpecialDir(ID: Integer; CreateIfNotExists: Boolean = True): String; begin Result := String(GetWindowsSpecialDirUnicode(ID, CreateIfNotExists)); end; function GetWindowsSpecialDir(const GUID: TGUID; CreateIfNotExists: Boolean = True): String; begin Result := String(GetWindowsSpecialDirUnicode(GUID, CreateIfNotExists)); end; function ConvertCSIDLtoFOLDERID(CSIDL: Integer; out FOLDERID: TGUID): Boolean; var I: Integer; begin Result := False; for I := Low(CSIDLtoFOLDERID) to High(CSIDLtoFOLDERID) do if CSIDLtoFOLDERID[I].CSIDL = CSIDL then begin FOLDERID := CSIDLtoFOLDERID[I].FOLDERID^; Exit(True); end; end; function ConvertFOLDERIDtoCSIDL(const FOLDERID: TGUID; out CSIDL: Integer): Boolean; var I: Integer; begin Result := False; for I := Low(CSIDLtoFOLDERID) to High(CSIDLtoFOLDERID) do if IsEqualGUID(CSIDLtoFOLDERID[I].FOLDERID^, FOLDERID) then begin CSIDL := CSIDLtoFOLDERID[I].CSIDL; Exit(True); end; end; finalization if Shell32DLLHandle <> 0 then FreeLibrary(Shell32DLLHandle); if Ole32DLLHandle <> 0 then FreeLibrary(Ole32DLLHandle); end.