unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls,
ComObj,
ActiveX,
// IMalloc
ShellAPI,
// SHGetSpecialFolderLocation() und SHGetPathFromIDList()
ShlObj;
// CSIDL_-Konstanten
type
KNOWNFOLDERID = TGuid;
TSHGetKnownFolderPath =
function(
const rfid: KNOWNFOLDERID; dwFlags: DWord; hToken: THandle;
var ppSzPath: LPWSTR) : HResult;
StdCall;
function SHGetFolderPath(hwnd: HWND; csidl: Integer; hToken: THandle; dwFlags: DWORD; pszPath: PChar): HResult;
stdcall;
external '
shfolder.dll'
name '
SHGetFolderPathA';
const
FOLDERID_AddNewPrograms: KNOWNFOLDERID = '
{de61d971-5ebc-4f02-a3a9-6c82895e5c04}';
FOLDERID_AdminTools: KNOWNFOLDERID = '
{724EF170-A42D-4FEF-9F26-B60E846FBA4F}';
FOLDERID_AppUpdates: KNOWNFOLDERID = '
{a305ce99-f527-492b-8b1a-7e76fa98d6e4}';
FOLDERID_CDBurning: KNOWNFOLDERID = '
{9E52AB10-F80D-49DF-ACB8-4330F5687855}';
FOLDERID_ChangeRemovePrograms: KNOWNFOLDERID = '
{df7266ac-9274-4867-8d55-3bd661de872d}';
FOLDERID_CommonAdminTools: KNOWNFOLDERID = '
{D0384E7D-BAC3-4797-8F14-CBA229B392B5}';
FOLDERID_CommonOEMLinks: KNOWNFOLDERID = '
{C1BAE2D0-10DF-4334-BEDD-7AA20B227A9D}';
FOLDERID_CommonPrograms: KNOWNFOLDERID = '
{0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8}';
FOLDERID_CommonStartMenu: KNOWNFOLDERID = '
{A4115719-D62E-491D-AA7C-E74B8BE3B067}';
FOLDERID_CommonStartup: KNOWNFOLDERID = '
{82A5EA35-D9CD-47C5-9629-E15D2F714E6E}';
FOLDERID_CommonTemplates: KNOWNFOLDERID = '
{B94237E7-57AC-4347-9151-B08C6C32D1F7}';
FOLDERID_ComputerFolder: KNOWNFOLDERID = '
{0AC0837C-BBF8-452A-850D-79D08E667CA7}';
FOLDERID_ConflictFolder: KNOWNFOLDERID = '
{4bfefb45-347d-4006-a5be-ac0cb0567192}';
FOLDERID_ConnectionsFolder: KNOWNFOLDERID = '
{6F0CD92B-2E97-45D1-88FF-B0D186B8DEDD}';
FOLDERID_Contacts: KNOWNFOLDERID = '
{56784854-C6CB-462b-8169-88E350ACB882}';
FOLDERID_ControlPanelFolder: KNOWNFOLDERID = '
{82A74AEB-AEB4-465C-A014-D097EE346D63}';
FOLDERID_Cookies: KNOWNFOLDERID = '
{2B0F765D-C0E9-4171-908E-08A611B84FF6}';
FOLDERID_Desktop: KNOWNFOLDERID = '
{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}';
FOLDERID_DeviceMetadataStore: KNOWNFOLDERID = '
{5CE4A5E9-E4EB-479D-B89F-130C02886155}';
FOLDERID_DocumentsLibrary: KNOWNFOLDERID = '
{7B0DB17D-9CD2-4A93-9733-46CC89022E7C}';
FOLDERID_Downloads: KNOWNFOLDERID = '
{374DE290-123F-4565-9164-39C4925E467B}';
FOLDERID_Favorites: KNOWNFOLDERID = '
{1777F761-68AD-4D8A-87BD-30B759FA33DD}';
FOLDERID_Fonts : KNOWNFOLDERID ='
{FD228CB7-AE11-4AE3-864C-16F3910AB8FE}';
FOLDERID_Games : KNOWNFOLDERID ='
{CAC52C1A-B53D-4edc-92D7-6B2E8AC19434}';
FOLDERID_GameTasks : KNOWNFOLDERID ='
{054FAE61-4DD8-4787-80B6-090220C4B700}';
FOLDERID_History : KNOWNFOLDERID ='
{D9DC8A3B-B784-432E-A781-5A1130A75963}';
FOLDERID_HomeGroup : KNOWNFOLDERID ='
{52528A6B-B9E3-4ADD-B60D-588C2DBA842D}';
FOLDERID_ImplicitAppShortcuts : KNOWNFOLDERID ='
{BCB5256F-79F6-4CEE-B725-DC34E402FD46}';
FOLDERID_InternetCache : KNOWNFOLDERID ='
{352481E8-33BE-4251-BA85-6007CAEDCF9D}';
FOLDERID_InternetFolder : KNOWNFOLDERID ='
{4D9F7874-4E0C-4904-967B-40B0D20C3E4B}';
FOLDERID_Libraries : KNOWNFOLDERID ='
{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}';
FOLDERID_Links : KNOWNFOLDERID ='
{bfb9d5e0-c6a9-404c-b2b2-ae6db6af4968}';
FOLDERID_LocalAppData : KNOWNFOLDERID ='
{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
FOLDERID_LocalAppDataLow : KNOWNFOLDERID ='
{A520A1A4-1780-4FF6-BD18-167343C5AF16}';
FOLDERID_LocalizedResourcesDir : KNOWNFOLDERID ='
{2A00375E-224C-49DE-B8D1-440DF7EF3DDC}';
FOLDERID_Music : KNOWNFOLDERID ='
{4BD8D571-6D19-48D3-BE97-422220080E43}';
FOLDERID_MusicLibrary : KNOWNFOLDERID ='
{2112AB0A-C86A-4FFE-A368-0DE96E47012E}';
FOLDERID_NetHood : KNOWNFOLDERID ='
{C5ABBF53-E17F-4121-8900-86626FC2C973}';
FOLDERID_NetworkFolder : KNOWNFOLDERID ='
{D20BEEC4-5CA8-4905-AE3B-BF251EA09B53}';
FOLDERID_OriginalImages : KNOWNFOLDERID ='
{2C36C0AA-5812-4b87-BFD0-4CD0DFB19B39}';
FOLDERID_PhotoAlbums : KNOWNFOLDERID ='
{69D2CF90-FC33-4FB7-9A0C-EBB0F0FCB43C}';
FOLDERID_PicturesLibrary : KNOWNFOLDERID ='
{A990AE9F-A03B-4E80-94BC-9912D7504104}';
FOLDERID_Pictures : KNOWNFOLDERID ='
{33E28130-4E1E-4676-835A-98395C3BC3BB}';
FOLDERID_Playlists : KNOWNFOLDERID ='
{DE92C1C7-837F-4F69-A3BB-86E631204A23}';
FOLDERID_PrintersFolder : KNOWNFOLDERID ='
{76FC4E2D-D6AD-4519-A663-37BD56068185}';
FOLDERID_PrintHood : KNOWNFOLDERID ='
{9274BD8D-CFD1-41C3-B35E-B13F55A758F4}';
FOLDERID_Profile : KNOWNFOLDERID ='
{5E6C858F-0E22-4760-9AFE-EA3317B67173}';
FOLDERID_ProgramData : KNOWNFOLDERID ='
{62AB5D82-FDC1-4DC3-A9DD-070D1D495D97}';
FOLDERID_ProgramFiles: KNOWNFOLDERID ='
{905e63b6-c1bf-494e-b29c-65b732d3d21a}';
FOLDERID_ProgramFilesX64: KNOWNFOLDERID ='
{6D809377-6AF0-444b-8957-A3773F02200E}';
FOLDERID_ProgramFilesX86: KNOWNFOLDERID ='
{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}';
FOLDERID_ProgramFilesCommon: KNOWNFOLDERID ='
{F7F1ED05-9F6D-47A2-AAAE-29D317C6F066}';
FOLDERID_ProgramFilesCommonX64: KNOWNFOLDERID ='
{6365D5A7-0F0D-45E5-87F6-0DA56B6A4F7D}';
FOLDERID_ProgramFilesCommonX86: KNOWNFOLDERID ='
{DE974D24-D9C6-4D3E-BF91-F4455120B917}';
FOLDERID_Programs : KNOWNFOLDERID ='
{A77F5D77-2E2B-44C3-A6A2-ABA601054A51}';
FOLDERID_Public : KNOWNFOLDERID ='
{DFDF76A2-C82A-4D63-906A-5644AC457385}';
FOLDERID_PublicDesktop : KNOWNFOLDERID ='
{C4AA340D-F20F-4863-AFEF-F87EF2E6BA25}';
FOLDERID_PublicDocuments : KNOWNFOLDERID ='
{ED4824AF-DCE4-45A8-81E2-FC7965083634}';
FOLDERID_PublicDownloads : KNOWNFOLDERID ='
{3D644C9B-1FB8-4f30-9B45-F670235F79C0}';
FOLDERID_PublicGameTasks : KNOWNFOLDERID ='
{DEBF2536-E1A8-4c59-B6A2-414586476AEA}';
FOLDERID_PublicLibraries : KNOWNFOLDERID ='
{48DAF80B-E6CF-4F4E-B800-0E69D84EE384}';
FOLDERID_PublicMusic : KNOWNFOLDERID ='
{3214FAB5-9757-4298-BB61-92A9DEAA44FF}';
FOLDERID_PublicPictures : KNOWNFOLDERID ='
{B6EBFB86-6907-413C-9AF7-4FC2ABF07CC5}';
FOLDERID_PublicRingtones : KNOWNFOLDERID ='
{E555AB60-153B-4D17-9F04-A5FE99FC15EC}';
FOLDERID_PublicVideos : KNOWNFOLDERID ='
{2400183A-6185-49FB-A2D8-4A392A602BA3}';
FOLDERID_QuickLaunch : KNOWNFOLDERID ='
{52a4f021-7b75-48a9-9f6b-4b87a210bc8f}';
FOLDERID_Recent : KNOWNFOLDERID ='
{AE50C081-EBD2-438A-8655-8A092E34987A}';
FOLDERID_RecordedTVLibrary : KNOWNFOLDERID ='
{1A6FDBA2-F42D-4358-A798-B74D745926C5}';
FOLDERID_RecycleBinFolder : KNOWNFOLDERID ='
{B7534046-3ECB-4C18-BE4E-64CD4CB7D6AC}';
FOLDERID_ResourceDir : KNOWNFOLDERID ='
{8AD10C31-2ADB-4296-A8F7-E4701232C972}';
FOLDERID_Ringtones : KNOWNFOLDERID ='
{C870044B-F49E-4126-A9C3-B52A1FF411E8}';
FOLDERID_RoamingAppData : KNOWNFOLDERID ='
{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}';
FOLDERID_SampleMusic : KNOWNFOLDERID ='
{B250C668-F57D-4EE1-A63C-290EE7D1AA1F}';
FOLDERID_SamplePictures : KNOWNFOLDERID ='
{C4900540-2379-4C75-844B-64E6FAF8716B}';
FOLDERID_SamplePlaylists : KNOWNFOLDERID ='
{15CA69B3-30EE-49C1-ACE1-6B5EC372AFB5}';
FOLDERID_SampleVideos : KNOWNFOLDERID ='
{859EAD94-2E85-48AD-A71A-0969CB56A6CD}';
FOLDERID_SavedGames : KNOWNFOLDERID ='
{4C5C32FF-BB9D-43b0-B5B4-2D72E54EAAA4}';
FOLDERID_SavedSearches : KNOWNFOLDERID ='
{7d1d3a04-debb-4115-95cf-2f29da2920da}';
FOLDERID_SEARCH_CSC : KNOWNFOLDERID ='
{ee32e446-31ca-4aba-814f-a5ebd2fd6d5e}';
FOLDERID_SEARCH_MAPI : KNOWNFOLDERID ='
{98ec0e18-2098-4d44-8644-66979315a281}';
FOLDERID_SearchHome : KNOWNFOLDERID ='
{190337d1-b8ca-4121-a639-6d472d16972a}';
FOLDERID_SendTo : KNOWNFOLDERID ='
{8983036C-27C0-404B-8F08-102D10DCFD74}';
FOLDERID_SidebarDefaultParts : KNOWNFOLDERID ='
{7B396E54-9EC5-4300-BE0A-2482EBAE1A26}';
FOLDERID_SidebarParts : KNOWNFOLDERID ='
{A75D362E-50FC-4fb7-AC2C-A8BEAA314493}';
FOLDERID_StartMenu : KNOWNFOLDERID ='
{625B53C3-AB48-4EC1-BA1F-A1EF4146FC19}';
FOLDERID_Startup : KNOWNFOLDERID ='
{B97D20BB-F46A-4C97-BA10-5E3608430854}';
FOLDERID_SyncManagerFolder : KNOWNFOLDERID ='
{43668BF8-C14E-49B2-97C9-747784D784B7}';
FOLDERID_SyncResultsFolder : KNOWNFOLDERID ='
{289a9a43-be44-4057-a41b-587a76d7e7f9}';
FOLDERID_SyncSetupFolder : KNOWNFOLDERID ='
{0F214138-B1D3-4a90-BBA9-27CBC0C5389A}';
FOLDERID_System : KNOWNFOLDERID ='
{1AC14E77-02E7-4E5D-B744-2EB1AE5198B7}';
FOLDERID_SystemX86 : KNOWNFOLDERID ='
{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}';
FOLDERID_Templates : KNOWNFOLDERID ='
{A63293E8-664E-48DB-A079-DF759E0509F7}';
FOLDERID_UserPinned : KNOWNFOLDERID ='
{9E3995AB-1F9C-4F13-B827-48B24B6C7174}';
FOLDERID_UserProfiles : KNOWNFOLDERID ='
{0762D272-C50A-4BB0-A382-697DCD729B80}';
FOLDERID_UserProgramFiles : KNOWNFOLDERID ='
{5CD7AEE2-2219-4A67-B85D-6C9CE15660CB}';
FOLDERID_UserProgramFilesCommon : KNOWNFOLDERID ='
{BCBD3057-CA5C-4622-B42D-BC56DB0AE516}';
FOLDERID_UsersFiles : KNOWNFOLDERID ='
{f3ce0f7c-4901-4acc-8648-d5d44b04ef8f}';
FOLDERID_UsersLibraries : KNOWNFOLDERID ='
{A302545D-DEFF-464b-ABE8-61C8648D939B}';
FOLDERID_Videos : KNOWNFOLDERID ='
{18989B1D-99B5-455B-841C-AB7C74E4DDFC}';
FOLDERID_VideosLibrary : KNOWNFOLDERID ='
{491E922F-5643-4AF4-A7EB-4E7A138D8174}';
FOLDERID_Windows : KNOWNFOLDERID ='
{F38BF404-1D43-42F2-9305-67DE0B28FC23}';
type
TForm1 =
class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetSpecialFolder(hWindow: HWND; Folder: Integer):
String;
var
pMalloc: IMalloc;
pidl: PItemIDList;
Path: PChar;
begin
if (SHGetMalloc(pMalloc) <> S_OK)
then
begin
MessageBox(hWindow, '
Couldn''
t get pointer to IMalloc interface.','
SHGetMalloc(pMalloc)', 16);
Exit;
end;
SHGetSpecialFolderLocation(hWindow, Folder, pidl);
GetMem(Path, MAX_PATH);
SHGetPathFromIDList(pidl, Path);
Result := Path;
FreeMem(Path);
pMalloc.Free(pidl);
end;
//---------------------------------------------------------------------
function ShGetKnownFolderPath (
const rfid: TGUID; dwFlags: DWord;
hToken: THandle;
out ppszPath: PWideChar): HResult;
var
Shell: HModule;
Fn: TShGetKnownFolderPath;
begin
Shell := LoadLibrary ('
shell32.dll');
Win32Check(Shell <> 0);
try
@Fn := GetProcAddress (Shell, '
SHGetKnownFolderPath');
Win32Check (Assigned (Fn));
Result := Fn (rfid, dwFlags, hToken, ppszPath);
finally
FreeLibrary (Shell);
end;
end;
function GetKnownFolderPath(
const rfid: KNOWNFOLDERID; dwFlags: DWord; hToken: THandle): WideString;
var buffer: LPWSTR;
begin
buffer :=
nil;
try
OleCheck(ShGetKnownFolderPath(rfid, dwFlags, hToken, buffer));
try Result := buffer;
finally CoTaskMemFree(buffer);
end;
except
Result := '
ERROR';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin //oder 255
for i := 0
to 63
do Memo1.Lines.add(IntToStr(i)+'
: '+
GetSpecialFolder(Form1.Handle,i));
end;
procedure TForm1.Button2Click(Sender: TObject);
var i : Integer; RFID : TGUID; FID :
Array[1..101]
of KNOWNFOLDERID;
begin
FID[1]:= FOLDERID_AddNewPrograms;
// : KNOWNFOLDERID = '{de61d971-5ebc-4f02-a3a9-6c82895e5c04}';
FID[2]:= FOLDERID_AdminTools;
// : KNOWNFOLDERID = '{724EF170-A42D-4FEF-9F26-B60E846FBA4F}';
FID[3]:= FOLDERID_AppUpdates;
// : KNOWNFOLDERID = '{a305ce99-f527-492b-8b1a-7e76fa98d6e4}';
FID[4]:= FOLDERID_CDBurning;
// : KNOWNFOLDERID = '{9E52AB10-F80D-49DF-ACB8-4330F5687855}';
FID[5]:= FOLDERID_ChangeRemovePrograms;
// : KNOWNFOLDERID = '{df7266ac-9274-4867-8d55-3bd661de872d}';
FID[6]:= FOLDERID_CommonAdminTools;
// : KNOWNFOLDERID = '{D0384E7D-BAC3-4797-8F14-CBA229B392B5}';
FID[7]:= FOLDERID_CommonOEMLinks;
// : KNOWNFOLDERID = '{C1BAE2D0-10DF-4334-BEDD-7AA20B227A9D}';
FID[8]:= FOLDERID_CommonPrograms;
// : KNOWNFOLDERID = '{0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8}';
FID[9]:= FOLDERID_CommonStartMenu;
// : KNOWNFOLDERID = '{A4115719-D62E-491D-AA7C-E74B8BE3B067}';
FID[10]:= FOLDERID_CommonStartup;
// : KNOWNFOLDERID = '{82A5EA35-D9CD-47C5-9629-E15D2F714E6E}';
FID[11]:= FOLDERID_CommonTemplates;
// : KNOWNFOLDERID = '{B94237E7-57AC-4347-9151-B08C6C32D1F7}';
FID[12]:= FOLDERID_ComputerFolder;
// : KNOWNFOLDERID = '{0AC0837C-BBF8-452A-850D-79D08E667CA7}';
FID[13]:= FOLDERID_ConflictFolder;
// : KNOWNFOLDERID = '{4bfefb45-347d-4006-a5be-ac0cb0567192}';
FID[14]:= FOLDERID_ConnectionsFolder;
// : KNOWNFOLDERID = '{6F0CD92B-2E97-45D1-88FF-B0D186B8DEDD}';
FID[15]:= FOLDERID_Contacts;
// : KNOWNFOLDERID = '{56784854-C6CB-462b-8169-88E350ACB882}';
FID[16]:= FOLDERID_ControlPanelFolder;
// : KNOWNFOLDERID = '{82A74AEB-AEB4-465C-A014-D097EE346D63}';
FID[17]:= FOLDERID_Cookies;
// : KNOWNFOLDERID = '{2B0F765D-C0E9-4171-908E-08A611B84FF6}';
FID[18]:= FOLDERID_Desktop;
// : KNOWNFOLDERID = '{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}';
FID[19]:= FOLDERID_DeviceMetadataStore;
// : KNOWNFOLDERID = '{5CE4A5E9-E4EB-479D-B89F-130C02886155}';
FID[20]:= FOLDERID_DocumentsLibrary;
// : KNOWNFOLDERID = '{7B0DB17D-9CD2-4A93-9733-46CC89022E7C}';
FID[21]:= FOLDERID_Downloads;
// : KNOWNFOLDERID = '{374DE290-123F-4565-9164-39C4925E467B}';
FID[22]:= FOLDERID_Favorites;
// : KNOWNFOLDERID = '{1777F761-68AD-4D8A-87BD-30B759FA33DD}';
FID[23]:= FOLDERID_Fonts ;
// : KNOWNFOLDERID ='{FD228CB7-AE11-4AE3-864C-16F3910AB8FE}';
FID[24]:= FOLDERID_Games ;
// : KNOWNFOLDERID ='{CAC52C1A-B53D-4edc-92D7-6B2E8AC19434}';
FID[25]:= FOLDERID_GameTasks ;
// : KNOWNFOLDERID ='{054FAE61-4DD8-4787-80B6-090220C4B700}';
FID[26]:= FOLDERID_History ;
// : KNOWNFOLDERID ='{D9DC8A3B-B784-432E-A781-5A1130A75963}';
FID[27]:= FOLDERID_HomeGroup ;
// : KNOWNFOLDERID ='{52528A6B-B9E3-4ADD-B60D-588C2DBA842D}';
FID[28]:= FOLDERID_ImplicitAppShortcuts ;
// : KNOWNFOLDERID ='{BCB5256F-79F6-4CEE-B725-DC34E402FD46}';
FID[29]:= FOLDERID_InternetCache ;
// : KNOWNFOLDERID ='{352481E8-33BE-4251-BA85-6007CAEDCF9D}';
FID[30]:= FOLDERID_InternetFolder ;
// : KNOWNFOLDERID ='{4D9F7874-4E0C-4904-967B-40B0D20C3E4B}';
FID[31]:= FOLDERID_Libraries ;
// : KNOWNFOLDERID ='{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}';
FID[32]:= FOLDERID_Links ;
// : KNOWNFOLDERID ='{bfb9d5e0-c6a9-404c-b2b2-ae6db6af4968}';
FID[33]:= FOLDERID_LocalAppData ;
// : KNOWNFOLDERID ='{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
FID[34]:= FOLDERID_LocalAppDataLow ;
// : KNOWNFOLDERID ='{A520A1A4-1780-4FF6-BD18-167343C5AF16}';
FID[35]:= FOLDERID_LocalizedResourcesDir ;
// : KNOWNFOLDERID ='{2A00375E-224C-49DE-B8D1-440DF7EF3DDC}';
FID[36]:= FOLDERID_Music ;
// : KNOWNFOLDERID ='{4BD8D571-6D19-48D3-BE97-422220080E43}';
FID[37]:= FOLDERID_MusicLibrary ;
// : KNOWNFOLDERID ='{2112AB0A-C86A-4FFE-A368-0DE96E47012E}';
FID[38]:= FOLDERID_NetHood ;
// : KNOWNFOLDERID ='{C5ABBF53-E17F-4121-8900-86626FC2C973}';
FID[39]:= FOLDERID_NetworkFolder ;
// : KNOWNFOLDERID ='{D20BEEC4-5CA8-4905-AE3B-BF251EA09B53}';
FID[40]:= FOLDERID_OriginalImages ;
// : KNOWNFOLDERID ='{2C36C0AA-5812-4b87-BFD0-4CD0DFB19B39}';
FID[41]:= FOLDERID_PhotoAlbums ;
// : KNOWNFOLDERID ='{69D2CF90-FC33-4FB7-9A0C-EBB0F0FCB43C}';
FID[42]:= FOLDERID_PicturesLibrary ;
// : KNOWNFOLDERID ='{A990AE9F-A03B-4E80-94BC-9912D7504104}';
FID[43]:= FOLDERID_Pictures ;
// : KNOWNFOLDERID ='{33E28130-4E1E-4676-835A-98395C3BC3BB}';
FID[44]:= FOLDERID_Playlists ;
// : KNOWNFOLDERID ='{DE92C1C7-837F-4F69-A3BB-86E631204A23}';
FID[45]:= FOLDERID_PrintersFolder ;
// : KNOWNFOLDERID ='{76FC4E2D-D6AD-4519-A663-37BD56068185}';
FID[46]:= FOLDERID_PrintHood ;
// : KNOWNFOLDERID ='{9274BD8D-CFD1-41C3-B35E-B13F55A758F4}';
FID[47]:= FOLDERID_Profile ;
// : KNOWNFOLDERID ='{5E6C858F-0E22-4760-9AFE-EA3317B67173}';
FID[48]:= FOLDERID_ProgramData ;
// : KNOWNFOLDERID ='{62AB5D82-FDC1-4DC3-A9DD-070D1D495D97}';
FID[49]:= FOLDERID_ProgramFiles;
// : KNOWNFOLDERID ='{905e63b6-c1bf-494e-b29c-65b732d3d21a}';
FID[50]:= FOLDERID_ProgramFilesX64;
// : KNOWNFOLDERID ='{6D809377-6AF0-444b-8957-A3773F02200E}';
FID[51]:= FOLDERID_ProgramFilesX86;
// : KNOWNFOLDERID ='{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}';
FID[52]:= FOLDERID_ProgramFilesCommon;
// : KNOWNFOLDERID ='{F7F1ED05-9F6D-47A2-AAAE-29D317C6F066}';
FID[53]:= FOLDERID_ProgramFilesCommonX64;
// : KNOWNFOLDERID ='{6365D5A7-0F0D-45E5-87F6-0DA56B6A4F7D}';
FID[54]:= FOLDERID_ProgramFilesCommonX86;
// : KNOWNFOLDERID ='{DE974D24-D9C6-4D3E-BF91-F4455120B917}';
FID[55]:= FOLDERID_Programs ;
// : KNOWNFOLDERID ='{A77F5D77-2E2B-44C3-A6A2-ABA601054A51}';
FID[56]:= FOLDERID_Public ;
// : KNOWNFOLDERID ='{DFDF76A2-C82A-4D63-906A-5644AC457385}';
FID[57]:= FOLDERID_PublicDesktop ;
// : KNOWNFOLDERID ='{C4AA340D-F20F-4863-AFEF-F87EF2E6BA25}';
FID[58]:= FOLDERID_PublicDocuments ;
// : KNOWNFOLDERID ='{ED4824AF-DCE4-45A8-81E2-FC7965083634}';
FID[59]:= FOLDERID_PublicDownloads ;
// : KNOWNFOLDERID ='{3D644C9B-1FB8-4f30-9B45-F670235F79C0}';
FID[60]:= FOLDERID_PublicGameTasks ;
// : KNOWNFOLDERID ='{DEBF2536-E1A8-4c59-B6A2-414586476AEA}';
FID[61]:= FOLDERID_PublicLibraries ;
// : KNOWNFOLDERID ='{48DAF80B-E6CF-4F4E-B800-0E69D84EE384}';
FID[62]:= FOLDERID_PublicMusic ;
// : KNOWNFOLDERID ='{3214FAB5-9757-4298-BB61-92A9DEAA44FF}';
FID[63]:= FOLDERID_PublicPictures ;
// : KNOWNFOLDERID ='{B6EBFB86-6907-413C-9AF7-4FC2ABF07CC5}';
FID[64]:= FOLDERID_PublicRingtones ;
// : KNOWNFOLDERID ='{E555AB60-153B-4D17-9F04-A5FE99FC15EC}';
FID[65]:= FOLDERID_PublicVideos ;
// : KNOWNFOLDERID ='{2400183A-6185-49FB-A2D8-4A392A602BA3}';
FID[66]:= FOLDERID_QuickLaunch ;
// : KNOWNFOLDERID ='{52a4f021-7b75-48a9-9f6b-4b87a210bc8f}';
FID[67]:= FOLDERID_Recent ;
// : KNOWNFOLDERID ='{AE50C081-EBD2-438A-8655-8A092E34987A}';
FID[68]:= FOLDERID_RecordedTVLibrary ;
// : KNOWNFOLDERID ='{1A6FDBA2-F42D-4358-A798-B74D745926C5}';
FID[69]:= FOLDERID_RecycleBinFolder ;
// : KNOWNFOLDERID ='{B7534046-3ECB-4C18-BE4E-64CD4CB7D6AC}';
FID[70]:= FOLDERID_ResourceDir ;
// : KNOWNFOLDERID ='{8AD10C31-2ADB-4296-A8F7-E4701232C972}';
FID[71]:= FOLDERID_Ringtones ;
// : KNOWNFOLDERID ='{C870044B-F49E-4126-A9C3-B52A1FF411E8}';
FID[72]:= FOLDERID_RoamingAppData ;
// : KNOWNFOLDERID ='{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}';
FID[73]:= FOLDERID_SampleMusic ;
// : KNOWNFOLDERID ='{B250C668-F57D-4EE1-A63C-290EE7D1AA1F}';
FID[74]:= FOLDERID_SamplePictures ;
// : KNOWNFOLDERID ='{C4900540-2379-4C75-844B-64E6FAF8716B}';
FID[75]:= FOLDERID_SamplePlaylists ;
// : KNOWNFOLDERID ='{15CA69B3-30EE-49C1-ACE1-6B5EC372AFB5}';
FID[76]:= FOLDERID_SampleVideos ;
// : KNOWNFOLDERID ='{859EAD94-2E85-48AD-A71A-0969CB56A6CD}';
FID[77]:= FOLDERID_SavedGames ;
// : KNOWNFOLDERID ='{4C5C32FF-BB9D-43b0-B5B4-2D72E54EAAA4}';
FID[78]:= FOLDERID_SavedSearches ;
// : KNOWNFOLDERID ='{7d1d3a04-debb-4115-95cf-2f29da2920da}';
FID[79]:= FOLDERID_SEARCH_CSC ;
// : KNOWNFOLDERID ='{ee32e446-31ca-4aba-814f-a5ebd2fd6d5e}';
FID[80]:= FOLDERID_SEARCH_MAPI ;
// : KNOWNFOLDERID ='{98ec0e18-2098-4d44-8644-66979315a281}';
FID[81]:= FOLDERID_SearchHome ;
// : KNOWNFOLDERID ='{190337d1-b8ca-4121-a639-6d472d16972a}';
FID[82]:= FOLDERID_SendTo ;
// : KNOWNFOLDERID ='{8983036C-27C0-404B-8F08-102D10DCFD74}';
FID[83]:= FOLDERID_SidebarDefaultParts ;
// : KNOWNFOLDERID ='{7B396E54-9EC5-4300-BE0A-2482EBAE1A26}';
FID[84]:= FOLDERID_SidebarParts ;
// : KNOWNFOLDERID ='{A75D362E-50FC-4fb7-AC2C-A8BEAA314493}';
FID[85]:= FOLDERID_StartMenu ;
// : KNOWNFOLDERID ='{625B53C3-AB48-4EC1-BA1F-A1EF4146FC19}';
FID[86]:= FOLDERID_Startup ;
// : KNOWNFOLDERID ='{B97D20BB-F46A-4C97-BA10-5E3608430854}';
FID[87]:= FOLDERID_SyncManagerFolder ;
// : KNOWNFOLDERID ='{43668BF8-C14E-49B2-97C9-747784D784B7}';
FID[88]:= FOLDERID_SyncResultsFolder ;
// : KNOWNFOLDERID ='{289a9a43-be44-4057-a41b-587a76d7e7f9}';
FID[89]:= FOLDERID_SyncSetupFolder ;
// : KNOWNFOLDERID ='{0F214138-B1D3-4a90-BBA9-27CBC0C5389A}';
FID[90]:= FOLDERID_System ;
// : KNOWNFOLDERID ='{1AC14E77-02E7-4E5D-B744-2EB1AE5198B7}';
FID[91]:= FOLDERID_SystemX86 ;
// : KNOWNFOLDERID ='{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}';
FID[92]:= FOLDERID_Templates ;
// : KNOWNFOLDERID ='{A63293E8-664E-48DB-A079-DF759E0509F7}';
FID[93]:= FOLDERID_UserPinned ;
// : KNOWNFOLDERID ='{9E3995AB-1F9C-4F13-B827-48B24B6C7174}';
FID[94]:= FOLDERID_UserProfiles ;
// : KNOWNFOLDERID ='{0762D272-C50A-4BB0-A382-697DCD729B80}';
FID[95]:= FOLDERID_UserProgramFiles ;
// : KNOWNFOLDERID ='{5CD7AEE2-2219-4A67-B85D-6C9CE15660CB}';
FID[96]:= FOLDERID_UserProgramFilesCommon ;
// : KNOWNFOLDERID ='{BCBD3057-CA5C-4622-B42D-BC56DB0AE516}';
FID[97]:= FOLDERID_UsersFiles ;
// : KNOWNFOLDERID ='{f3ce0f7c-4901-4acc-8648-d5d44b04ef8f}';
FID[98]:= FOLDERID_UsersLibraries ;
// : KNOWNFOLDERID ='{A302545D-DEFF-464b-ABE8-61C8648D939B}';
FID[99]:= FOLDERID_Videos;
// : KNOWNFOLDERID ='{18989B1D-99B5-455B-841C-AB7C74E4DDFC}';
FID[100]:= FOLDERID_VideosLibrary;
// : KNOWNFOLDERID ='{491E922F-5643-4AF4-A7EB-4E7A138D8174}';
FID[101]:= FOLDERID_Windows;
// : KNOWNFOLDERID ='{F38BF404-1D43-42F2-9305-67DE0B28FC23}';
for i := 1
to 101
do
BEGIN
RFID:= FID[i];
if GetKnownFolderPath(RFID, 0, 0)='
ERROR'
then
Memo1.Lines.add(IntToStr(i)+'
: '+'
No such directory : '+ GUIDtoString(RFID))
else
Memo1.Lines.add(IntToStr(i)+'
: '+ GetKnownFolderPath(RFID, 0, 0));
END;
end;
End.