通过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取常用路径
本例效果图:
代码文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses ShlObj; {SHGetSpecialFolderLocation、SHGetPathFromIDList 函数来自这个单元} {获取常用路径的函数} function GetPath(FID: Integer): string; var pidl: PItemIDList; path: array[0..MAX_PATH] of Char; begin SHGetSpecialFolderLocation(0, FID, pidl); SHGetPathFromIDList(pidl, path); Result := path; end; {测试时, 我把 SHGetSpecialFolderLocation 函数需要的参数定义成了一个常数数组} const arr: array[0..57] of Integer = ( CSIDL_DESKTOP , { = $0000 } CSIDL_INTERNET , { = $0001 } CSIDL_PROGRAMS , { = $0002 } CSIDL_CONTROLS , { = $0003 } CSIDL_PRINTERS , { = $0004 } CSIDL_PERSONAL , { = $0005 } CSIDL_FAVORITES , { = $0006 } CSIDL_STARTUP , { = $0007 } CSIDL_RECENT , { = $0008 } CSIDL_SENDTO , { = $0009 } CSIDL_BITBUCKET , { = $000a } CSIDL_STARTMENU , { = $000b } CSIDL_MYDOCUMENTS , { = $000c } CSIDL_MYMUSIC , { = $000d } CSIDL_MYVIDEO , { = $000e } CSIDL_DESKTOPDIRECTORY , { = $0010 } CSIDL_DRIVES , { = $0011 } CSIDL_NETWORK , { = $0012 } CSIDL_NETHOOD , { = $0013 } CSIDL_FONTS , { = $0014 } CSIDL_TEMPLATES , { = $0015 } CSIDL_COMMON_STARTMENU , { = $0016 } CSIDL_COMMON_PROGRAMS , { = $0017 } CSIDL_COMMON_STARTUP , { = $0018 } CSIDL_COMMON_DESKTOPDIRECTORY , { = $0019 } CSIDL_APPDATA , { = $001a } CSIDL_PRINTHOOD , { = $001b } CSIDL_LOCAL_APPDATA , { = $001c } CSIDL_ALTSTARTUP , { = $001d } CSIDL_COMMON_ALTSTARTUP , { = $001e } CSIDL_COMMON_FAVORITES , { = $001f } CSIDL_INTERNET_CACHE , { = $0020 } CSIDL_COOKIES , { = $0021 } CSIDL_HISTORY , { = $0022 } CSIDL_COMMON_APPDATA , { = $0023 } CSIDL_WINDOWS , { = $0024 } CSIDL_SYSTEM , { = $0025 } CSIDL_PROGRAM_FILES , { = $0026 } CSIDL_MYPICTURES , { = $0027 } CSIDL_PROFILE , { = $0028 } CSIDL_SYSTEMX86 , { = $0029 } CSIDL_PROGRAM_FILESX86 , { = $002a } CSIDL_PROGRAM_FILES_COMMON , { = $002b } CSIDL_PROGRAM_FILES_COMMONX86 , { = $002c } CSIDL_COMMON_TEMPLATES , { = $002d } CSIDL_COMMON_DOCUMENTS , { = $002e } CSIDL_COMMON_ADMINTOOLS , { = $002f } CSIDL_ADMINTOOLS , { = $0030 } CSIDL_CONNECTIONS , { = $0031 } CSIDL_COMMON_MUSIC , { = $0035 } CSIDL_COMMON_PICTURES , { = $0036 } CSIDL_COMMON_VIDEO , { = $0037 } CSIDL_RESOURCES , { = $0038 } CSIDL_RESOURCES_LOCALIZED , { = $0039 } CSIDL_COMMON_OEM_LINKS , { = $003a } CSIDL_CDBURN_AREA , { = $003b } CSIDL_COMPUTERSNEARME , { = $003d } CSIDL_PROFILES { = $003e } ); {测试} procedure TForm1.FormCreate(Sender: TObject); var i: Integer; s: string; begin Memo1.Clear; for i := 0 to Length(Arr) - 1 do begin s := GetPath(Arr[i]); if s<>'' then Memo1.Lines.Add(Format('%d:'#9'%s', [Arr[i], s])); end; end; end.
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 318 ClientWidth = 465 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Memo1: TMemo Left = 0 Top = 0 Width = 465 Height = 318 Align = alClient Lines.Strings = ( 'Memo1') ScrollBars = ssBoth TabOrder = 0 ExplicitWidth = 409 end end