获取WINDOWS特殊文件夹
const
// registry entries for special paths are kept in :
REGSTR_PATH_SPECIAL_FOLDERS = REGSTR_PATH_EXPLORER + '\Shell Folders';
{$EXTERNALSYM REGSTR_PATH_SPECIAL_FOLDERS}
CSIDL_DESKTOP = $0000; // <desktop>
{$EXTERNALSYM CSIDL_DESKTOP}
CSIDL_INTERNET = $0001; // Internet Explorer (icon on desktop)
{$EXTERNALSYM CSIDL_INTERNET}
CSIDL_PROGRAMS = $0002; // Start Menu\Programs
{$EXTERNALSYM CSIDL_PROGRAMS}
CSIDL_CONTROLS = $0003; // My Computer\Control Panel
{$EXTERNALSYM CSIDL_CONTROLS}
CSIDL_PRINTERS = $0004; // My Computer\Printers
{$EXTERNALSYM CSIDL_PRINTERS}
CSIDL_PERSONAL = $0005; // My Documents
{$EXTERNALSYM CSIDL_PERSONAL}
CSIDL_FAVORITES = $0006; // <user name>\Favorites
{$EXTERNALSYM CSIDL_FAVORITES}
CSIDL_STARTUP = $0007; // Start Menu\Programs\Startup
{$EXTERNALSYM CSIDL_STARTUP}
CSIDL_RECENT = $0008; // <user name>\Recent
{$EXTERNALSYM CSIDL_RECENT}
CSIDL_SENDTO = $0009; // <user name>\SendTo
{$EXTERNALSYM CSIDL_SENDTO}
CSIDL_BITBUCKET = $000a; // <desktop>\Recycle Bin
{$EXTERNALSYM CSIDL_BITBUCKET}
CSIDL_STARTMENU = $000b; // <user name>\Start Menu
{$EXTERNALSYM CSIDL_STARTMENU}
CSIDL_MYDOCUMENTS = CSIDL_PERSONAL; // Personal was just a silly name for My Documents
{$EXTERNALSYM CSIDL_MYDOCUMENTS}
CSIDL_MYMUSIC = $000d; // "My Music" folder
{$EXTERNALSYM CSIDL_MYMUSIC}
CSIDL_MYVIDEO = $000e; // "My Videos" folder
{$EXTERNALSYM CSIDL_MYVIDEO}
CSIDL_DESKTOPDIRECTORY = $0010; // <user name>\Desktop
{$EXTERNALSYM CSIDL_DESKTOPDIRECTORY}
CSIDL_DRIVES = $0011; // My Computer
{$EXTERNALSYM CSIDL_DRIVES}
CSIDL_NETWORK = $0012; // Network Neighborhood (My Network Places)
{$EXTERNALSYM CSIDL_NETWORK}
CSIDL_NETHOOD = $0013; // <user name>\nethood
{$EXTERNALSYM CSIDL_NETHOOD}
CSIDL_FONTS = $0014; // windows\fonts
{$EXTERNALSYM CSIDL_FONTS}
CSIDL_TEMPLATES = $0015;
{$EXTERNALSYM CSIDL_TEMPLATES}
CSIDL_COMMON_STARTMENU = $0016; // All Users\Start Menu
{$EXTERNALSYM CSIDL_COMMON_STARTMENU}
CSIDL_COMMON_PROGRAMS = $0017; // All Users\Start Menu\Programs
{$EXTERNALSYM CSIDL_COMMON_PROGRAMS}
CSIDL_COMMON_STARTUP = $0018; // All Users\Startup
{$EXTERNALSYM CSIDL_COMMON_STARTUP}
CSIDL_COMMON_DESKTOPDIRECTORY = $0019; // All Users\Desktop
{$EXTERNALSYM CSIDL_COMMON_DESKTOPDIRECTORY}
CSIDL_APPDATA = $001a; // <user name>\Application Data
{$EXTERNALSYM CSIDL_APPDATA}
CSIDL_PRINTHOOD = $001b; // <user name>\PrintHood
{$EXTERNALSYM CSIDL_PRINTHOOD}
CSIDL_LOCAL_APPDATA = $001c; // <user name>\Local Settings\Applicaiton Data (non roaming)
{$EXTERNALSYM CSIDL_LOCAL_APPDATA}
CSIDL_ALTSTARTUP = $001d; // non localized startup
{$EXTERNALSYM CSIDL_ALTSTARTUP}
CSIDL_COMMON_ALTSTARTUP = $001e; // non localized common startup
{$EXTERNALSYM CSIDL_COMMON_ALTSTARTUP}
CSIDL_COMMON_FAVORITES = $001f;
{$EXTERNALSYM CSIDL_COMMON_FAVORITES}
CSIDL_INTERNET_CACHE = $0020; //C:\Users\Admin\AppData\Local\Microsoft\Windows\INetCache
{$EXTERNALSYM CSIDL_INTERNET_CACHE}
CSIDL_COOKIES = $0021;
{$EXTERNALSYM CSIDL_COOKIES}
CSIDL_HISTORY = $0022;
{$EXTERNALSYM CSIDL_HISTORY}
CSIDL_COMMON_APPDATA = $0023; // All Users\Application Data
{$EXTERNALSYM CSIDL_COMMON_APPDATA}
CSIDL_WINDOWS = $0024; // GetWindowsDirectory()
{$EXTERNALSYM CSIDL_WINDOWS}
CSIDL_SYSTEM = $0025; // GetSystemDirectory()
{$EXTERNALSYM CSIDL_SYSTEM}
CSIDL_PROGRAM_FILES = $0026; // C:\Program Files
{$EXTERNALSYM CSIDL_PROGRAM_FILES}
CSIDL_MYPICTURES = $0027; // C:\Program Files\My Pictures
{$EXTERNALSYM CSIDL_MYPICTURES}
CSIDL_PROFILE = $0028; // USERPROFILE
{$EXTERNALSYM CSIDL_PROFILE}
CSIDL_SYSTEMX86 = $0029; // x86 system directory on RISC
{$EXTERNALSYM CSIDL_SYSTEMX86}
CSIDL_PROGRAM_FILESX86 = $002a; // x86 C:\Program Files on RISC
{$EXTERNALSYM CSIDL_PROGRAM_FILESX86}
CSIDL_PROGRAM_FILES_COMMON = $002b; // C:\Program Files\Common
{$EXTERNALSYM CSIDL_PROGRAM_FILES_COMMON}
CSIDL_PROGRAM_FILES_COMMONX86 = $002c; // x86 Program Files\Common on RISC
{$EXTERNALSYM CSIDL_PROGRAM_FILES_COMMONX86}
CSIDL_COMMON_TEMPLATES = $002d; // All Users\Templates
{$EXTERNALSYM CSIDL_COMMON_TEMPLATES}
CSIDL_COMMON_DOCUMENTS = $002e; // All Users\Documents
{$EXTERNALSYM CSIDL_COMMON_DOCUMENTS}
CSIDL_COMMON_ADMINTOOLS = $002f; // All Users\Start Menu\Programs\Administrative Tools
{$EXTERNALSYM CSIDL_COMMON_ADMINTOOLS}
CSIDL_ADMINTOOLS = $0030; // <user name>\Start Menu\Programs\Administrative Tools
{$EXTERNALSYM CSIDL_ADMINTOOLS}
CSIDL_CONNECTIONS = $0031; // Network and Dial-up Connections
{$EXTERNALSYM CSIDL_CONNECTIONS}
CSIDL_COMMON_MUSIC = $0035; // All Users\My Music
{$EXTERNALSYM CSIDL_COMMON_MUSIC}
CSIDL_COMMON_PICTURES = $0036; // All Users\My Pictures
{$EXTERNALSYM CSIDL_COMMON_PICTURES}
CSIDL_COMMON_VIDEO = $0037; // All Users\My Video
{$EXTERNALSYM CSIDL_COMMON_VIDEO}
CSIDL_RESOURCES = $0038; // Resource Direcotry
{$EXTERNALSYM CSIDL_RESOURCES}
CSIDL_RESOURCES_LOCALIZED = $0039; // Localized Resource Direcotry
{$EXTERNALSYM CSIDL_RESOURCES_LOCALIZED}
CSIDL_COMMON_OEM_LINKS = $003a; // Links to All Users OEM specific apps
{$EXTERNALSYM CSIDL_COMMON_OEM_LINKS}
CSIDL_CDBURN_AREA = $003b; // USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning
{$EXTERNALSYM CSIDL_CDBURN_AREA}
// unused 0x003c
CSIDL_COMPUTERSNEARME = $003d; // Computers Near Me (computered from Workgroup membership)
{$EXTERNALSYM CSIDL_COMPUTERSNEARME}
CSIDL_FLAG_CREATE = $8000; // combine with CSIDL_ value to force folder creation in SHGetFolderPath()
{$EXTERNALSYM CSIDL_FLAG_CREATE}
CSIDL_FLAG_DONT_VERIFY = $4000; // combine with CSIDL_ value to return an unverified folder path
{$EXTERNALSYM CSIDL_FLAG_DONT_VERIFY}
CSIDL_FLAG_DONT_UNEXPAND = $2000; // combine with CSIDL_ value to avoid unexpanding environment variables
{$EXTERNALSYM CSIDL_FLAG_DONT_UNEXPAND}
CSIDL_FLAG_NO_ALIAS = $1000; // combine with CSIDL_ value to insure non-alias versions of the pidl
{$EXTERNALSYM CSIDL_FLAG_NO_ALIAS}
CSIDL_FLAG_PER_USER_INIT = $0800; // combine with CSIDL_ value to indicate per-user init (eg. upgrade)
{$EXTERNALSYM CSIDL_FLAG_PER_USER_INIT}
CSIDL_FLAG_MASK = $FF00; // mask for all possible flag values
{$EXTERNALSYM CSIDL_FLAG_MASK}
uses
Vcl.ExtActns,Winapi.ShlObj, Winapi.ActiveX, System.Win.ComObj,
ShellApi,Winapi.Windows;
function GetSpecialFolderDir(const folderid: integer): string;
var
pidl: pItemIDList;
buffer: array[0..255] of char;
begin
SHGetSpecialFolderLocation(0, folderid, pidl);
SHGetPathFromIDList(pidl, buffer);
Result := strpas(buffer);
end;
//C:\Users\Admin\AppData\Local\Microsoft\Windows\INetCache
procedure TForm1.Button2Click(Sender: TObject);
begin
eDIT1.Text:=GetSpecialFolderDir( CSIDL_INTERNET_CACHE );
end;
获取WINDOWS特殊文件夹
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses shlobj;
{$R *.dfm}
function GetSpecialFolderDir(const folderid:integer):string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
SHGetSpecialFolderLocation( application.Handle , folderid, pidl);
SHGetPathFromIDList(pidl, buffer);
Result:=strpas(buffer);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
DataBaseFolder:string;
begin
{GetSpecialFolderDir( CSIDL_PERSONAL )
= D:\Administrator\Documents}
{D:\Administrator\Documents\DataBase}
DataBaseFolder:=GetSpecialFolderDir( CSIDL_PERSONAL ) + '\DataBase';
if not DirectoryExists(DataBaseFolder) then
if not CreateDir(DataBaseFolder) then
Application.MessageBox('创建数据文件夹失败','错误',MB_ICONERROR);
end;
end.
打 '*' 号的为不是真正的文件系统 ,应该用作它用。
CSIDL_BITBUCKET * 回收站
CSIDL_CONTROLS * 控制面板
CSIDL_DESKTOP * 桌面
CSIDL_DESKTOPDIRECTORY 桌面目录 // 如 C:\WINDOWS\Desktop
CSIDL_DRIVES * 我的电脑
CSIDL_FONTS 字体 // 如 C:\WINDOWS\FONTS
CSIDL_NETHOOD 网上邻居目录 // 如 C:\WINDOWS\NetHood
CSIDL_NETWORK * 网上邻居
CSIDL_PERSONAL 我的文档 // 如 C:\My Documents
CSIDL_PRINTERS * 打印机
CSIDL_PROGRAMS 程序组 // 如 C:\WINDOWS\Start Menu\Programs
CSIDL_RECENT 最近文档 // 如 C:\WINDOWS\Recent
CSIDL_SENDTO 发送到 // 如 C:\WINDOWS\SentTo
CSIDL_STARTMENU 开始菜单 // 如 C:\WINDOWS\Start Menu
CSIDL_STARTUP 启动 // 如 C:\WINDOWS\ 启动
CSIDL_TEMPLATES 模版 // 如 C:\WINDOWS\ShellNew
