通过SHGetSpecialFolderLocation、SHGetPathFromIDList函数获取常用路径

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 &＃61; class(TForm)Memo1: TMemo;procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses ShlObj; {SHGetSpecialFolderLocation、SHGetPathFromIDList 函数来自这个单元}{获取常用路径的函数}
function GetPath(FID: Integer): string;
varpidl: PItemIDList;path: array[0..MAX_PATH] of Char;
beginSHGetSpecialFolderLocation(0, FID, pidl);SHGetPathFromIDList(pidl, path);Result :&＃61; path;
end;{测试时, 我把 SHGetSpecialFolderLocation 函数需要的参数定义成了一个常数数组}
constarr: array[0..57] of Integer &＃61; (CSIDL_DESKTOP                 , { &＃61; $0000 }CSIDL_INTERNET                , { &＃61; $0001 }CSIDL_PROGRAMS                , { &＃61; $0002 }CSIDL_CONTROLS                , { &＃61; $0003 }CSIDL_PRINTERS                , { &＃61; $0004 }CSIDL_PERSONAL                , { &＃61; $0005 }CSIDL_FAVORITES               , { &＃61; $0006 }CSIDL_STARTUP                 , { &＃61; $0007 }CSIDL_RECENT                  , { &＃61; $0008 }CSIDL_SENDTO                  , { &＃61; $0009 }CSIDL_BITBUCKET               , { &＃61; $000a }CSIDL_STARTMENU               , { &＃61; $000b }CSIDL_MYDOCUMENTS             , { &＃61; $000c }CSIDL_MYMUSIC                 , { &＃61; $000d }CSIDL_MYVIDEO                 , { &＃61; $000e }CSIDL_DESKTOPDIRECTORY        , { &＃61; $0010 }CSIDL_DRIVES                  , { &＃61; $0011 }CSIDL_NETWORK                 , { &＃61; $0012 }CSIDL_NETHOOD                 , { &＃61; $0013 }CSIDL_FONTS                   , { &＃61; $0014 }CSIDL_TEMPLATES               , { &＃61; $0015 }CSIDL_COMMON_STARTMENU        , { &＃61; $0016 }CSIDL_COMMON_PROGRAMS         , { &＃61; $0017 }CSIDL_COMMON_STARTUP          , { &＃61; $0018 }CSIDL_COMMON_DESKTOPDIRECTORY , { &＃61; $0019 }CSIDL_APPDATA                 , { &＃61; $001a }CSIDL_PRINTHOOD               , { &＃61; $001b }CSIDL_LOCAL_APPDATA           , { &＃61; $001c }CSIDL_ALTSTARTUP              , { &＃61; $001d }CSIDL_COMMON_ALTSTARTUP       , { &＃61; $001e }CSIDL_COMMON_FAVORITES        , { &＃61; $001f }CSIDL_INTERNET_CACHE          , { &＃61; $0020 }CSIDL_COOKIES                 , { &＃61; $0021 }CSIDL_HISTORY                 , { &＃61; $0022 }CSIDL_COMMON_APPDATA          , { &＃61; $0023 }CSIDL_WINDOWS                 , { &＃61; $0024 }CSIDL_SYSTEM                  , { &＃61; $0025 }CSIDL_PROGRAM_FILES           , { &＃61; $0026 }CSIDL_MYPICTURES              , { &＃61; $0027 }CSIDL_PROFILE                 , { &＃61; $0028 }CSIDL_SYSTEMX86               , { &＃61; $0029 }CSIDL_PROGRAM_FILESX86        , { &＃61; $002a }CSIDL_PROGRAM_FILES_COMMON    , { &＃61; $002b }CSIDL_PROGRAM_FILES_COMMONX86 , { &＃61; $002c }CSIDL_COMMON_TEMPLATES        , { &＃61; $002d }CSIDL_COMMON_DOCUMENTS        , { &＃61; $002e }CSIDL_COMMON_ADMINTOOLS       , { &＃61; $002f }CSIDL_ADMINTOOLS              , { &＃61; $0030 }CSIDL_CONNECTIONS             , { &＃61; $0031 }CSIDL_COMMON_MUSIC            , { &＃61; $0035 }CSIDL_COMMON_PICTURES         , { &＃61; $0036 }CSIDL_COMMON_VIDEO            , { &＃61; $0037 }CSIDL_RESOURCES               , { &＃61; $0038 }CSIDL_RESOURCES_LOCALIZED     , { &＃61; $0039 }CSIDL_COMMON_OEM_LINKS        , { &＃61; $003a }CSIDL_CDBURN_AREA             , { &＃61; $003b }CSIDL_COMPUTERSNEARME         , { &＃61; $003d }CSIDL_PROFILES                  { &＃61; $003e });{测试}
procedure TForm1.FormCreate(Sender: TObject);
vari: Integer;s: string;
beginMemo1.Clear;for i :&＃61; 0 to Length(Arr) - 1 dobegins :&＃61; GetPath(Arr[i]);if s<>&＃39;&＃39; then Memo1.Lines.Add(Format(&＃39;%d:&＃39;#9&＃39;%s&＃39;, [Arr[i], s]));end;
end;end.

object Form1: TForm1Left &＃61; 0Top &＃61; 0Caption &＃61; &＃39;Form1&＃39;ClientHeight &＃61; 318ClientWidth &＃61; 465Color &＃61; clBtnFaceFont.Charset &＃61; DEFAULT_CHARSETFont.Color &＃61; clWindowTextFont.Height &＃61; -11Font.Name &＃61; &＃39;Tahoma&＃39;Font.Style &＃61; []OldCreateOrder &＃61; FalseOnCreate &＃61; FormCreatePixelsPerInch &＃61; 96TextHeight &＃61; 13object Memo1: TMemoLeft &＃61; 0Top &＃61; 0Width &＃61; 465Height &＃61; 318Align &＃61; alClientLines.Strings &＃61; (&＃39;Memo1&＃39;)ScrollBars &＃61; ssBothTabOrder &＃61; 0ExplicitWidth &＃61; 409end
end