Модераторы: Snowy, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Функция для опредлеления пути ALL USERS, ALL USERS 
:(
    Опции темы
tFeniks
Дата 27.3.2008, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 11.2.2008

Репутация: нет
Всего: 1



Иногй раз требуется программно определить путь к тому или иному какталогу. Моя функция позволяет определить путь к папку 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;
///////////////////////////////////////////////////////////////////////////


PM MAIL   Вверх
DominiK
Дата 3.5.2008, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 11.3.2007
Где: Россия, Омск

Репутация: нет
Всего: нет



SHGetFolderPath
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Совместные проекты/поиск партнёров"
Snowy
Poseidon

Внимание:
В этом форуме обсуждаются вопросы только по совместным проектам, когда Вы хотите найти партнёров или стать участником проекта.
Запрещается размещение заказов на написание программ, поиск работников (для этого есть раздел "Работа") и реклама своих сетевых ресурсов.

Этот раздел только для проектов в которых Вы будете выступать в качестве исполнителя!

Темы и сообщения, не удовлетворяющие данным правилам, будут удаляться на основании пункта 3 Правил форума!

  • Человек, создающий тему, становится руководителем проекта. Все вопросы о разработке решаются с его согласия.
  • Публикация предложения к сотрудничеству считается защищённым авторскими правами и не может разрабатываться без согласия с руководителем проекта.
  • Конечный продукт должен содержать указание на всех участников и Vingrad.

  • Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, Poseidon

     
    1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
    0 Пользователей:
    « Предыдущая тема | Совместные проекты/поиск партнёров | Следующая тема »


     




    [ Время генерации скрипта: 0.0756 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


    Реклама на сайте     Информационное спонсорство

     
    По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
    Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.