type sfKind = (AppData, Cache, Cookies, Desktop, Favorites, Fonts, History, My_Pictures, NetHood, Personal, PrintHood, Programs, Recent, SendTo, Start_Menu, Startup, Templates); 
 
 
function GetSpecialFolder(Folder: sfKind): string; 
var 
 N: string; 
 r:TRegistry; 
begin 
 r:=TRegistry.Create; 
 case Folder of 
   AppData      : N:='AppData'; 
   Cache        : N:='Cache'; 
   Cookies      : N:='Cookies'; 
   Desktop      : N:='Desktop'; 
   Favorites    : N:='Favorites'; 
   Fonts        : N:='Fonts'; 
   History      : N:='History'; 
   My_Pictures  : N:='My Pictures'; 
   NetHood      : N:='NetHood'; 
   Personal    : N:='Personal'; 
   PrintHood    : N:='PrintHood'; 
   Programs    : N:='Programs'; 
   Recent      : N:='Recent'; 
   SendTo      : N:='SendTo'; 
   Start_Menu  : N:='Start Menu'; 
   Startup      : N:='Startup'; 
   Templates    : N:='Templates'; 
 end; 
 r.RootKey:=HKEY_CURRENT_USER; 
 r.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\', False); 
 Result:=r.ReadString(N); 
end;