Question

在Delphi中如何获得系统文件夹的位置？

直接使用%system%？
真糟糕
lp类的变量我不知道怎么用
才刚开始学

Answer 1

试试这个

uses ShlObj, ActiveX;

function GetSystemPath(Folder: Integer): string;
var
PIDL: PItemIDList;
Path: LPSTR;
AMalloc: IMalloc;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
if SHGetPathFromIDList(PIDL, Path) then
Result := Path;
SHGetMalloc(AMalloc);
AMalloc.Free(PIDL);
StrDispose(Path);
end;

你可以使用不同的参数调用这个函数，例如：

CSIDL_DESKTOP --- WINDOWS\Desktop
CSIDL_DESKTOPDIRECTORY --- WINDOWS\Desktop
CSIDL_FONTS --- WINDOWS\FONTS
CSIDL_NETHOOD --- WINDOWS\NetHood
CSIDL_PERSONAL --- X:\My Documents
CSIDL_PROGRAMS --- WINDOWS\StartMenu\Programs
CSIDL_RECENT --- WINDOWS\Recent
CSIDL_SENDTO --- WINDOWS\SendTo
CSIDL_STARTMENU --- WINDOWS\Start Menu
CSIDL_STARTUP --- WINDOWS\Start Menu\Programs\StartUp
CSIDL_TEMPLATES --- WINDOWS\ShellNew

Answer 2

晕,
用GetSystemDirectory

跟楼上的一样用的啊!