Иногй раз требуется программно определить путь к тому или иному какталогу. Моя функция позволяет определить путь к папку ALL USERS
 
Type TProfileListPath=(AllUsersProfile,ActiveUserProfile);

/////////////////////////////////////////////////////////////////////////////
Функция для определения пути ALL USERS      /////////////////
//Автор функции Гаврилин Сергей Николаевич  - tFeniks //
//20 марта 2008 год. г. Похвистнево, Самарская обл. ///////
////////////////////////////////////////////////////////////////////////////
Function GetALLUsersPath(ProfileListPath:TProfileListPath):string;
begin
  with TRegistry.Create do
  begin
   if (ProfileListPath=ActiveUserProfile) then
   begin
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);
      Result:=ReadString('Programs');
    finally
      CloseKey;
      free;
    end;
   end;
   //All Users
   if (ProfileListPath=AllUsersProfile) then
   begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);
      Result:=ReadString('Common Programs');
    finally
      CloseKey;
      free;
    end;
   end;


  end;

if (result<>'') and (result[length(result)]<>'\') then result:=result+'\';
end;
///////////////////////////////////////////////////////////////////////////

SHGetFolderPath