На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
Ссылки по теме:
Страницы: (2) 1 [2]  все  ( Перейти к последнему сообщению )  
> Показать диалог выбора пользователей
tIce
Сообщ. #16 ,

    Full Member
    ***
    Профиль · PM
    Рейтинг (т): 17
    Цитата rtwolf @
    не выдирать же его из этого

    ExpandedWrap disabled
                Text := Text + Format(
                  'Object : %u'#13#10 +
                  '  Name : %s'#13#10 +
                  '  Class: %s'#13#10 +
                  '  Path : %s'#13#10 +
                  '  UPN  : %s'#13#10, [
                  Index,
                  WideCharToString(SelLst.aDsSelection[Index].pwzName),
                  WideCharToString(SelLst.aDsSelection[Index].pwzClass),
                  WideCharToString(SelLst.aDsSelection[Index].pwzADsPath),
                  WideCharToString(SelLst.aDsSelection[Index].pwzUPN)]);
      //сдесь выдирается имя домена (s:string)
                  s:=WideCharToString(SelLst.aDsSelection[Index].pwzUPN);
                  delete(s,1,pos('@',s));
      // в результате в s будет имя домена
    rtwolf
    Сообщ. #17 ,
      Junior
      *
      Профиль · PM
      Рейтинг (т): 0
      Ну я это и имел ввиду, только думал не из UPN а из ADsPath.
      А более "правильного" метода нет?
      tIce
      Сообщ. #18 ,

        Full Member
        ***
        Профиль · PM
        Рейтинг (т): 17
        Цитата rtwolf @
        А более "правильного" метода нет?

        думаю что нет
        Guru Rouse_
        Сообщ. #19 ,

          Moderator
          *******
          Профиль · PM
          Поощрения: 4 Dgm
          Рейтинг (т): 320
          tIce, а где ты ObjSel взял?
          rtwolf
          Сообщ. #20 ,
            Junior
            *
            Профиль · PM
            Рейтинг (т): 0
            Цитата Rouse_ @
            tIce, а где ты ObjSel взял?

            http://cvs.sourceforge.net/viewcvs.py/jvcl/dev/JVCL3/common/

            скачать надо ObjSel.pas, jedi.inc, jvcl.inc, jvcld7.inc (для D7) и windowsonly.inc
            Guru Rouse_
            Сообщ. #21 ,

              Moderator
              *******
              Профиль · PM
              Поощрения: 4 Dgm
              Рейтинг (т): 320
              Блин, ну я так и подумал что из JCL, только у меня это называется JclObjSel.pas...

              tIce, надеюсь ты не будешь против если я чуть поправленный код в FAQ выложу. Структуры просто необходимые из JclObjSel.pas в основной модуль перетащу? Завтра покажу, у меня на работе просто все лежит...
              Да кстати, за примерчик лови +
              tIce
              Сообщ. #22 ,

                Full Member
                ***
                Профиль · PM
                Рейтинг (т): 17
                Цитата Rouse_ @
                надеюсь ты не будешь против

                конечно не против, выкладывай сколько надо. :yes: ;)
                Guru Rouse_
                Сообщ. #23 ,

                  Moderator
                  *******
                  Профиль · PM
                  Поощрения: 4 Dgm
                  Рейтинг (т): 320
                  Вот итого: Показать диалог выбора пользователей
                  :)
                  tIce
                  Сообщ. #24 ,

                    Full Member
                    ***
                    Профиль · PM
                    Рейтинг (т): 17
                    Цитата Rouse_ @
                    Вот итого

                    отлично, только я думаю надо выложить полный список DSOP_SCOPE_TYPE_... (может кому понадобится глобальный каталог, uplevel или downlevel)

                    ExpandedWrap disabled
                        DSOP_SCOPE_TYPE_TARGET_COMPUTER = $00000001;
                        DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN = $00000002;
                        DSOP_SCOPE_TYPE_DOWNLEVEL_JOINED_DOMAIN = $00000004;
                        DSOP_SCOPE_TYPE_ENTERPRISE_DOMAIN = $00000008;
                        DSOP_SCOPE_TYPE_GLOBAL_CATALOG = $00000010;
                        DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN = $00000020;
                        DSOP_SCOPE_TYPE_EXTERNAL_DOWNLEVEL_DOMAIN = $00000040;
                        DSOP_SCOPE_TYPE_WORKGROUP = $00000080;
                        DSOP_SCOPE_TYPE_USER_ENTERED_UPLEVEL_SCOPE = $00000100;
                        DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE = $00000200;


                    флаги выбора
                    ExpandedWrap disabled
                        DSOP_SCOPE_FLAG_STARTING_SCOPE = $00000001;
                        DSOP_SCOPE_FLAG_WANT_PROVIDER_WINNT = $00000002;
                        DSOP_SCOPE_FLAG_WANT_PROVIDER_LDAP = $00000004;
                        DSOP_SCOPE_FLAG_WANT_PROVIDER_GC = $00000008;
                        DSOP_SCOPE_FLAG_WANT_SID_PATH = $00000010;
                        DSOP_SCOPE_FLAG_WANT_DOWNLEVEL_BUILTIN_PATH = $00000020;
                        DSOP_SCOPE_FLAG_DEFAULT_FILTER_USERS = $00000040;
                        DSOP_SCOPE_FLAG_DEFAULT_FILTER_GROUPS = $00000080;
                        DSOP_SCOPE_FLAG_DEFAULT_FILTER_COMPUTERS = $00000100;
                        DSOP_SCOPE_FLAG_DEFAULT_FILTER_CONTACTS = $00000200;


                    и фильтры
                    ExpandedWrap disabled
                        DSOP_FILTER_INCLUDE_ADVANCED_VIEW = $00000001;
                        DSOP_FILTER_USERS = $00000002;
                        DSOP_FILTER_BUILTIN_GROUPS = $00000004;
                        DSOP_FILTER_WELL_KNOWN_PRINCIPALS = $00000008;
                        DSOP_FILTER_UNIVERSAL_GROUPS_DL = $00000010;
                        DSOP_FILTER_UNIVERSAL_GROUPS_SE = $00000020;
                        DSOP_FILTER_GLOBAL_GROUPS_DL = $00000040;
                        DSOP_FILTER_GLOBAL_GROUPS_SE = $00000080;
                        DSOP_FILTER_DOMAIN_LOCAL_GROUPS_DL = $00000100;
                        DSOP_FILTER_DOMAIN_LOCAL_GROUPS_SE = $00000200;
                        DSOP_FILTER_CONTACTS = $00000400;
                        DSOP_FILTER_COMPUTERS = $00000800;
                    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                    0 пользователей:
                    Страницы: (2) 1 [2]  все


                    Рейтинг@Mail.ru
                    [ Script execution time: 0,0333 ]   [ 15 queries used ]   [ Generated: 18.07.25, 01:30 GMT ]  
                    Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.