获取系统特殊文件夹路径（SHGetSpecialFolderLocation）

首先添加shlobj单元

procedure getFolder(aLocation: integer;var path:string);//path为输出参数
 var pIdl: PItemIDList;
  hPath: PChar;
begin
   if SUCCEEDED(SHGetSpecialFolderLocation(0, aLocation, pidl)) then
  begin
   hPath := StrAlloc(max_path) ;
   SHGetPathFromIDList(pIdl, hPath) ;
  path:=strpas(hpath);
  StrDispose(hPath) ;
  end;
 end;

//关键参数aLocation

可以是CSIDL_PROGRAMS，CSIDL_PERSONAL，CSIDL_STARTUP，CSIDL_FONTS，CSIDL_FAVORITES

//应用

procedure TForm1.Button1Click(Sender: TObject);
var
path1:string;
begin
getFolder( CSIDL_PROGRAMS,path1);
showmessage(path1) ;
end;