「特殊フォルダのパスを取得する」
特殊フォルダのパスを取得するにはどうしたらいいでしょうか。
また、WindowsXPとWindows7ではどのように違うのでしょうか。
回答
SHGetSpecialFolderPathを使えば取得できます。
function SHGetSpecialFolderPath(
whndOwner:HWND; lpszPath:PWideChar;
nFolder:integer; fCreate:LongBool
):LongBool;
戻り値：成功したらTRUE、失敗でFALSE
whndOwner：オーナーのウィンドウハンドル
lpszPath：取得するパスが入る変数
fCreate：TRUEだとフォルダが存在しない場合に作成
nFolder：取得したい特殊フォルダのCSIDLで始まる以下のいずれかの値
CSIDL_DESKTOP
ＸＰの場合 C:\Documents and Settings\<User Name>\デスクトップ
７の場合 C:\Users\<User Name>\Desktop
CSIDL_FAVORITES
ＸＰの場合 C:\Documents and Settings\<User Name>\Favorites
７の場合 C:\Users\<User Name>\Favorites
CSIDL_FONTS
ＸＰの場合 C:\WINDOWS\Fonts
７の場合 C:\Windows\Fonts
CSIDL_PERSONAL
ＸＰの場合 C:\Documents and Settings\<User Name>\My Documents
７の場合 C:\Users\<User Name>\Documents
CSIDL_PROGRAM_FILES
ＸＰの場合 C:\Program Files
７の場合 C:\Program Files
CSIDL_PROGRAMS
ＸＰの場合 C:\Documents and Settings\<User Name>\スタート メニュー\プログラム
７の場合 C:\Users\<User Name>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
CSIDL_STARTUP
ＸＰの場合 C:\Documents and Settings\<User Name>\スタート メニュー\プログラム\スタートアップ
７の場合 C:\Users\<User Name>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
CSIDL_WINDOWS
ＸＰの場合 C:\WINDOWS
７の場合 C:\Windows
CSIDL_SENDTO
ＸＰの場合 C:\Documents and Settings\<User Name>\SendTo
７の場合 C:\Users\<User Name>\AppData\Roaming\Microsoft\Windows\SendTo
CSIDL_APPDATA
ＸＰの場合 C:\Documents and Settings\<User Name>\Application Data
７の場合 C:\Users\<User Name>\AppData\Roaming
CSIDL_TEMPLATES
ＸＰの場合 C:\Documents and Settings\<User Name>\Templates
７の場合 C:\Users\<User Name>\AppData\Roaming\Microsoft\Windows\Templates
CSIDL_COMMON_STARTMENU
ＸＰの場合 C:\Documents and Settings\All Users\スタート メニュー
７の場合 C:\ProgramData\Microsoft\Windows\Start Menu
CSIDL_COMMON_PROGRAMS
ＸＰの場合 C:\Documents and Settings\All Users\スタート メニュー\プログラム
７の場合 C:\ProgramData\Microsoft\Windows\Start Menu\Programs
CSIDL_COMMON_STARTUP
ＸＰの場合 C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ
７の場合 C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
CSIDL_COMMON_DESKTOPDIRECTORY
ＸＰの場合 C:\Documents and Settings\All Users\デスクトップ
７の場合 C:\Users\Public\Desktop
CSIDL_COMMON_APPDATA
ＸＰの場合 C:\Documents and Settings\All Users\Application Data
７の場合 C:\ProgramData
CSIDL_COMMON_DOCUMENTS
ＸＰの場合 C:\Documents and Settings\All Users\Documents
７の場合 C:\Users\Public\Documents
CSIDL_COMMON_PICTURES
ＸＰの場合 C:\Documents and Settings\All Users\Documents\My Pictures
７の場合 C:\Users\Public\Pictures
CSIDL_COMMON_FAVORITES
ＸＰの場合 C:\Documents and Settings\All Users\Favorites
７の場合 C:\Users\<User Name>\Favorites
CSIDL_COMMON_ADMINTOOLS
ＸＰの場合 C:\Documents and Settings\All Users\スタート メニュー\プログラム\管理ツール
７の場合 C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Administrative Tools
CSIDL_ADMINTOOLS
ＸＰの場合 C:\Documents and Settings\<user name>\スタート メニュー\プログラム\管理ツール
７の場合 C:\Users\<User Name>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Administrative Tools
CSIDL_LOCAL_APPDATA
ＸＰの場合 C:\Documents and Settings\<User Name>\Local Settings\Application Data
７の場合 C:\Users\<User Name>\AppData\Local
CSIDL_SYSTEM
ＸＰの場合 C:\WINDOWS\system32
７の場合 C:\Windows\system32
CSIDL_PROGRAM_FILES_COMMON
ＸＰの場合 C:\Program Files\Common Files
７の場合 C:\Program Files\Common Files
CSIDL_PROFILE
ＸＰの場合 C:\Documents and Settings\<User Name>
７の場合 C:\Users\<User Name>
ソース
（例）Delphi2009以降でデスクトップフォルダのパスを取得
Uses句にWinapi.ShlObjを追加します。
var pw:PWideChar;
st:string;
begin
getmem(pw,2048);
try
ZeroMemory(pw,2048);
SHGetSpecialFolderPath(handle,pw,CSIDL_DESKTOP,false);
st:=pw;
finally
freemem(pw);
end;
showmessage(st);
end;