开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaObjSel.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：24k
源码类别：

Windows编程

开发平台：

Delphi

JwaObjSel.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Object Picker API interface Unit for Object Pascal                           }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: objsel.h, released June 2000. The original Pascal      }
  9. { code is: ObjSel.pas, released December 2000. The initial developer of the    }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaObjSel;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "ObjSel.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   ActiveX {TODO}, JwaWinType;
  59. //  Contents:   Object Picker Dialog public header
  61. const
  62.   //'{17d6ccd8-3b7b-11d2-b9e0-00c04fd8dbf7}'
  63.   CLSID_DsObjectPicker: TGUID = (
  64.     D1:$17d6ccd8; D2:$3b7b; D3:$11d2; D4:($b9,$e0,$00,$c0,$4f,$d8,$db,$f7));
  65.   {$EXTERNALSYM CLSID_DsObjectPicker}
  67.   IID_IDsObjectPicker: TGUID = (
  68.     D1:$0c87e64e; D2:$3b7a; D3:$11d2; D4:($b9,$e0,$00,$c0,$4f,$d8,$db,$f7));
  69.   {$EXTERNALSYM IID_IDsObjectPicker}
  71. {
  72. CLIPBOARD FORMATS
  73. =================
  75. CFSTR_DSOP_DS_SELECTION_LIST
  76.     Returns an HGLOBAL for global memory containing a DS_SELECTION_LIST
  77.     variable length structure.
  78. }
  80. const
  81.   CFSTR_DSOP_DS_SELECTION_LIST = 'CFSTR_DSOP_DS_SELECTION_LIST';
  82.   {$EXTERNALSYM CFSTR_DSOP_DS_SELECTION_LIST}
  84. {
  85. SCOPE TYPES
  86. ===========
  88. A scope is an entry in the "Look In" dropdown list of the Object Picker
  89. dialog.
  91. When initializing the DS Object Picker, DSOP_SCOPE_TYPEs are used with
  92. DSOP_SCOPE_INIT_INFO.flType member to specify which types of scopes the
  93. DS Object Picker should put in the "Look In" list.
  95. DSOP_SCOPE_TYPE_TARGET_COMPUTER
  96.     Computer specified by DSOP_INIT_INFO.pwzTargetComputer, NULL is
  97.     local computer.
  99. DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN
  100.     Uplevel domain to which target computer is joined.
  102. DSOP_SCOPE_TYPE_DOWNLEVEL_JOINED_DOMAIN
  103.     Downlevel domain to which target computer is joined.
  105. DSOP_SCOPE_TYPE_ENTERPRISE_DOMAIN
  106.     All domains in the enterprise to which the target computer belongs
  107.     other than the JOINED_DOMAIN or USER_SPECIFIED_*_SCOPEs.
  109. DSOP_SCOPE_TYPE_GLOBAL_CATALOG
  110.     The Entire Directory scope.
  112. DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN
  113.     All uplevel domains external to the enterprise but trusted by the
  114.     domain to which the target computer is joined.
  116. DSOP_SCOPE_TYPE_EXTERNAL_DOWNLEVEL_DOMAIN
  117.     All downlevel domains external to the enterprise but trusted by the
  118.     domain to which the target computer is joined.
  120. DSOP_SCOPE_TYPE_WORKGROUP
  121.     The workgroup of which TARGET_COMPUTER is a member.  Applies only if the
  122.     TARGET_COMPUTER is not joined to a domain.
  124. DSOP_SCOPE_TYPE_USER_ENTERED_UPLEVEL_SCOPE
  125. DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE
  126.     Any uplevel or downlevel scope generated by processing user input.  If
  127.     neither of these types is specified, user entries that do not refer to
  128.     one of the scopes in the "Look In" control will be rejected.
  130. }
  132. const
  133.   DSOP_SCOPE_TYPE_TARGET_COMPUTER              = $00000001;
  134.   {$EXTERNALSYM DSOP_SCOPE_TYPE_TARGET_COMPUTER}
  135.   DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN        = $00000002;
  136.   {$EXTERNALSYM DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN}
  137.   DSOP_SCOPE_TYPE_DOWNLEVEL_JOINED_DOMAIN      = $00000004;
  138.   {$EXTERNALSYM DSOP_SCOPE_TYPE_DOWNLEVEL_JOINED_DOMAIN}
  139.   DSOP_SCOPE_TYPE_ENTERPRISE_DOMAIN            = $00000008;
  140.   {$EXTERNALSYM DSOP_SCOPE_TYPE_ENTERPRISE_DOMAIN}
  141.   DSOP_SCOPE_TYPE_GLOBAL_CATALOG               = $00000010;
  142.   {$EXTERNALSYM DSOP_SCOPE_TYPE_GLOBAL_CATALOG}
  143.   DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN      = $00000020;
  144.   {$EXTERNALSYM DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN}
  145.   DSOP_SCOPE_TYPE_EXTERNAL_DOWNLEVEL_DOMAIN    = $00000040;
  146.   {$EXTERNALSYM DSOP_SCOPE_TYPE_EXTERNAL_DOWNLEVEL_DOMAIN}
  147.   DSOP_SCOPE_TYPE_WORKGROUP                    = $00000080;
  148.   {$EXTERNALSYM DSOP_SCOPE_TYPE_WORKGROUP}
  149.   DSOP_SCOPE_TYPE_USER_ENTERED_UPLEVEL_SCOPE   = $00000100;
  150.   {$EXTERNALSYM DSOP_SCOPE_TYPE_USER_ENTERED_UPLEVEL_SCOPE}
  151.   DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE = $00000200;
  152.   {$EXTERNALSYM DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE}
  154. {
  155. DSOP_SCOPE_INIT_INFO flags
  156. ==========================
  158. The flScope member can contain zero or more of the following flags:
  160. DSOP_SCOPE_FLAG_STARTING_SCOPE
  161.     The scope should be the first one selected in the Look In control after
  162.     dialog initialization.  If more than one scope specifies this flag,
  163.     the one which is chosen to be the starting scope is implementation
  164.     dependant.
  166. DSOP_SCOPE_FLAG_WANT_PROVIDER_WINNT
  167.     ADs paths for objects selected from this scope should be converted to use
  168.     the WinNT provider.
  170. DSOP_SCOPE_FLAG_WANT_PROVIDER_LDAP
  171.     ADs paths for objects selected from this scope should be converted to use
  172.     the LDAP provider.
  174. DSOP_SCOPE_FLAG_WANT_PROVIDER_GC
  175.     ADs paths for objects selected from this scope should be converted to use
  176.     the GC provider.
  178. DSOP_SCOPE_FLAG_WANT_SID_PATH
  179.     ADs paths for objects selected from this scope having an objectSid
  180.     attribute should be converted to the form LDAP://<SID=x>, where x
  181.     represents the hexidecimal digits of the objectSid attribute value.
  183. DSOP_SCOPE_FLAG_WANT_DOWNLEVEL_BUILTIN_PATH
  184.     ADs paths for downlevel well-known SID objects (for example,
  185.     DSOP_DOWNLEVEL_FILTER_INTERACTIVE) are an empty string unless this flag is
  186.     specified.  If it is, the paths will be of the form
  187.     WinNT://NT AUTHORITY/Interactive or WinNT://Creator owner.
  189. DSOP_SCOPE_FLAG_DEFAULT_FILTER_USERS
  190.     If the scope filter contains the DSOP_FILTER_USERS or
  191.     DSOP_DOWNLEVEL_FILTER_USERS flag, then check the Users checkbox by
  192.     default in the Look For dialog.
  194. DSOP_SCOPE_FLAG_DEFAULT_FILTER_GROUPS
  197. DSOP_SCOPE_FLAG_DEFAULT_FILTER_COMPUTERS
  199. DSOP_SCOPE_FLAG_DEFAULT_FILTER_CONTACTS
  200. }
  202. const
  203.   DSOP_SCOPE_FLAG_STARTING_SCOPE              = $00000001;
  204.   {$EXTERNALSYM DSOP_SCOPE_FLAG_STARTING_SCOPE}
  205.   DSOP_SCOPE_FLAG_WANT_PROVIDER_WINNT         = $00000002;
  206.   {$EXTERNALSYM DSOP_SCOPE_FLAG_WANT_PROVIDER_WINNT}
  207.   DSOP_SCOPE_FLAG_WANT_PROVIDER_LDAP          = $00000004;
  208.   {$EXTERNALSYM DSOP_SCOPE_FLAG_WANT_PROVIDER_LDAP}
  209.   DSOP_SCOPE_FLAG_WANT_PROVIDER_GC            = $00000008;
  210.   {$EXTERNALSYM DSOP_SCOPE_FLAG_WANT_PROVIDER_GC}
  211.   DSOP_SCOPE_FLAG_WANT_SID_PATH               = $00000010;
  212.   {$EXTERNALSYM DSOP_SCOPE_FLAG_WANT_SID_PATH}
  213.   DSOP_SCOPE_FLAG_WANT_DOWNLEVEL_BUILTIN_PATH = $00000020;
  214.   {$EXTERNALSYM DSOP_SCOPE_FLAG_WANT_DOWNLEVEL_BUILTIN_PATH}
  215.   DSOP_SCOPE_FLAG_DEFAULT_FILTER_USERS        = $00000040;
  216.   {$EXTERNALSYM DSOP_SCOPE_FLAG_DEFAULT_FILTER_USERS}
  217.   DSOP_SCOPE_FLAG_DEFAULT_FILTER_GROUPS       = $00000080;
  218.   {$EXTERNALSYM DSOP_SCOPE_FLAG_DEFAULT_FILTER_GROUPS}
  219.   DSOP_SCOPE_FLAG_DEFAULT_FILTER_COMPUTERS    = $00000100;
  220.   {$EXTERNALSYM DSOP_SCOPE_FLAG_DEFAULT_FILTER_COMPUTERS}
  221.   DSOP_SCOPE_FLAG_DEFAULT_FILTER_CONTACTS     = $00000200;
  222.   {$EXTERNALSYM DSOP_SCOPE_FLAG_DEFAULT_FILTER_CONTACTS}
  224. {
  225. The flMixedModeOnly/flNativeModeOnly member of an uplevel scope can
  226. contain one or more of the following flags (at least one must be specified):
  228. DSOP_FILTER_INCLUDE_ADVANCED_VIEW
  229.     Include objects which have the attribute showInAdvancedViewOnly set to
  230.     true.
  232. DSOP_FILTER_USERS
  233.     Include user objects.
  235. DSOP_FILTER_BUILTIN_GROUPS
  236.     Include group objects with a groupType value having the flag
  237.     GROUP_TYPE_BUILTIN_LOCAL_GROUP.
  239. DSOP_FILTER_WELL_KNOWN_PRINCIPALS
  240.     Include the contents of the WellKnown Security Principals container.
  242. DSOP_FILTER_UNIVERSAL_GROUPS_DL
  243.     Include distribution list universal groups.
  245. DSOP_FILTER_UNIVERSAL_GROUPS_SE
  246.     Include security enabled universal groups.
  248. DSOP_FILTER_GLOBAL_GROUPS_DL
  249.     Include distribution list global groups.
  251. DSOP_FILTER_GLOBAL_GROUPS_SE
  252.     Include security enabled global groups.
  254. DSOP_FILTER_DOMAIN_LOCAL_GROUPS_DL
  255.     Include distribution list domain global groups.
  257. DSOP_FILTER_DOMAIN_LOCAL_GROUPS_SE
  258.     Include security enabled domain local groups.
  260. DSOP_FILTER_CONTACTS
  261.     Include contact objects.
  263. DSOP_FILTER_COMPUTERS
  264.     Include computer objects.
  265. }
  267. const
  268.   DSOP_FILTER_INCLUDE_ADVANCED_VIEW  = $00000001;
  269.   {$EXTERNALSYM DSOP_FILTER_INCLUDE_ADVANCED_VIEW}
  270.   DSOP_FILTER_USERS                  = $00000002;
  271.   {$EXTERNALSYM DSOP_FILTER_USERS}
  272.   DSOP_FILTER_BUILTIN_GROUPS         = $00000004;
  273.   {$EXTERNALSYM DSOP_FILTER_BUILTIN_GROUPS}
  274.   DSOP_FILTER_WELL_KNOWN_PRINCIPALS  = $00000008;
  275.   {$EXTERNALSYM DSOP_FILTER_WELL_KNOWN_PRINCIPALS}
  276.   DSOP_FILTER_UNIVERSAL_GROUPS_DL    = $00000010;
  277.   {$EXTERNALSYM DSOP_FILTER_UNIVERSAL_GROUPS_DL}
  278.   DSOP_FILTER_UNIVERSAL_GROUPS_SE    = $00000020;
  279.   {$EXTERNALSYM DSOP_FILTER_UNIVERSAL_GROUPS_SE}
  280.   DSOP_FILTER_GLOBAL_GROUPS_DL       = $00000040;
  281.   {$EXTERNALSYM DSOP_FILTER_GLOBAL_GROUPS_DL}
  282.   DSOP_FILTER_GLOBAL_GROUPS_SE       = $00000080;
  283.   {$EXTERNALSYM DSOP_FILTER_GLOBAL_GROUPS_SE}
  284.   DSOP_FILTER_DOMAIN_LOCAL_GROUPS_DL = $00000100;
  285.   {$EXTERNALSYM DSOP_FILTER_DOMAIN_LOCAL_GROUPS_DL}
  286.   DSOP_FILTER_DOMAIN_LOCAL_GROUPS_SE = $00000200;
  287.   {$EXTERNALSYM DSOP_FILTER_DOMAIN_LOCAL_GROUPS_SE}
  288.   DSOP_FILTER_CONTACTS               = $00000400;
  289.   {$EXTERNALSYM DSOP_FILTER_CONTACTS}
  290.   DSOP_FILTER_COMPUTERS              = $00000800;
  291.   {$EXTERNALSYM DSOP_FILTER_COMPUTERS}
  293. {
  294. The flFilter member of a downlevel scope can contain one or more of the
  295. following flags:
  297. DSOP_DOWNLEVEL_FILTER_USERS
  298.     Include user objects.
  300. DSOP_DOWNLEVEL_FILTER_LOCAL_GROUPS
  301.     Include all local groups.
  303. DSOP_DOWNLEVEL_FILTER_GLOBAL_GROUPS
  304.     Include all global groups.
  306. DSOP_DOWNLEVEL_FILTER_COMPUTERS
  307.     Include computer objects
  309. DSOP_DOWNLEVEL_FILTER_WORLD
  310.     Include builtin security principal World (Everyone).
  312. DSOP_DOWNLEVEL_FILTER_AUTHENTICATED_USER
  313.     Include builtin security principal Authenticated User.
  315. DSOP_DOWNLEVEL_FILTER_ANONYMOUS
  316.     Include builtin security principal Anonymous.
  318. DSOP_DOWNLEVEL_FILTER_BATCH
  319.     Include builtin security principal Batch.
  321. DSOP_DOWNLEVEL_FILTER_CREATOR_OWNER
  322.     Include builtin security principal Creator Owner.
  324. DSOP_DOWNLEVEL_FILTER_CREATOR_GROUP
  325.     Include builtin security principal Creator Group.
  327. DSOP_DOWNLEVEL_FILTER_DIALUP
  328.     Include builtin security principal Dialup.
  330. DSOP_DOWNLEVEL_FILTER_INTERACTIVE
  331.     Include builtin security principal Interactive.
  333. DSOP_DOWNLEVEL_FILTER_NETWORK
  334.     Include builtin security principal Network.
  336. DSOP_DOWNLEVEL_FILTER_SERVICE
  337.     Include builtin security principal Service.
  339. DSOP_DOWNLEVEL_FILTER_SYSTEM
  340.     Include builtin security principal System.
  342. DSOP_DOWNLEVEL_FILTER_EXCLUDE_BUILTIN_GROUPS
  343.     Exclude local builtin groups returned by groups enumeration.
  345. DSOP_DOWNLEVEL_FILTER_TERMINAL_SERVER
  346.     Include builtin security principal Terminal Server.
  348. DSOP_DOWNLEVEL_FILTER_LOCAL_SERVICE
  349.     Include builtin security principal Local Service
  351. DSOP_DOWNLEVEL_FILTER_NETWORK_SERVICE
  352.     Include builtin security principal Network Service
  354. DSOP_DOWNLEVEL_FILTER_ALL_WELLKNOWN_SIDS
  355.     Include all builtin security principals.
  356. }
  358. const
  359.   DSOP_DOWNLEVEL_FILTER_USERS                  = DWORD($80000001);
  360.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_USERS}
  361.   DSOP_DOWNLEVEL_FILTER_LOCAL_GROUPS           = DWORD($80000002);
  362.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_LOCAL_GROUPS}
  363.   DSOP_DOWNLEVEL_FILTER_GLOBAL_GROUPS          = DWORD($80000004);
  364.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_GLOBAL_GROUPS}
  365.   DSOP_DOWNLEVEL_FILTER_COMPUTERS              = DWORD($80000008);
  366.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_COMPUTERS}
  367.   DSOP_DOWNLEVEL_FILTER_WORLD                  = DWORD($80000010);
  368.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_WORLD}
  369.   DSOP_DOWNLEVEL_FILTER_AUTHENTICATED_USER     = DWORD($80000020);
  370.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_AUTHENTICATED_USER}
  371.   DSOP_DOWNLEVEL_FILTER_ANONYMOUS              = DWORD($80000040);
  372.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_ANONYMOUS}
  373.   DSOP_DOWNLEVEL_FILTER_BATCH                  = DWORD($80000080);
  374.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_BATCH}
  375.   DSOP_DOWNLEVEL_FILTER_CREATOR_OWNER          = DWORD($80000100);
  376.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_CREATOR_OWNER}
  377.   DSOP_DOWNLEVEL_FILTER_CREATOR_GROUP          = DWORD($80000200);
  378.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_CREATOR_GROUP}
  379.   DSOP_DOWNLEVEL_FILTER_DIALUP                 = DWORD($80000400);
  380.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_DIALUP}
  381.   DSOP_DOWNLEVEL_FILTER_INTERACTIVE            = DWORD($80000800);
  382.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_INTERACTIVE}
  383.   DSOP_DOWNLEVEL_FILTER_NETWORK                = DWORD($80001000);
  384.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_NETWORK}
  385.   DSOP_DOWNLEVEL_FILTER_SERVICE                = DWORD($80002000);
  386.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_SERVICE}
  387.   DSOP_DOWNLEVEL_FILTER_SYSTEM                 = DWORD($80004000);
  388.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_SYSTEM}
  389.   DSOP_DOWNLEVEL_FILTER_EXCLUDE_BUILTIN_GROUPS = DWORD($80008000);
  390.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_EXCLUDE_BUILTIN_GROUPS}
  391.   DSOP_DOWNLEVEL_FILTER_TERMINAL_SERVER        = DWORD($80010000);
  392.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_TERMINAL_SERVER}
  393.   DSOP_DOWNLEVEL_FILTER_ALL_WELLKNOWN_SIDS     = DWORD($80020000);
  394.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_ALL_WELLKNOWN_SIDS}
  395.   DSOP_DOWNLEVEL_FILTER_LOCAL_SERVICE          = DWORD($80040000);
  396.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_LOCAL_SERVICE}
  397.   DSOP_DOWNLEVEL_FILTER_NETWORK_SERVICE        = DWORD($80080000);
  398.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_NETWORK_SERVICE}
  399.   DSOP_DOWNLEVEL_FILTER_REMOTE_LOGON           = DWORD($80100000);
  400.   {$EXTERNALSYM DSOP_DOWNLEVEL_FILTER_REMOTE_LOGON}
  402. {
  403. DSOP_UPLEVEL_FILTER_FLAGS
  404. =========================
  406. Contains the DSOP_FILTER_* flags for use with a DSOP_SCOPE_INIT_INFO
  407. structure when the scope is uplevel (DS-aware).
  409. flBothModes
  410.     Flags to use for an uplevel scope, regardless of whether it is a
  411.     mixed or native mode domain.
  413. flMixedModeOnly
  414.     Flags to use when an uplevel domain is in mixed mode.
  416. flNativeModeOnly
  417.     Flags to use when an uplevel domain is in native mode.
  420. DSOP_FILTER_FLAGS
  421. =================
  423. Uplevel
  424.     Contains flags to use for an uplevel scope.
  426. flDownlevel
  427.     Flags to use for a downlevel scope.
  428. }
  430. type
  431.   _DSOP_UPLEVEL_FILTER_FLAGS = record
  432.     flBothModes: ULONG;
  433.     flMixedModeOnly: ULONG;
  434.     flNativeModeOnly: ULONG;
  435.   end;
  436.   {$EXTERNALSYM _DSOP_UPLEVEL_FILTER_FLAGS}
  437.   DSOP_UPLEVEL_FILTER_FLAGS = _DSOP_UPLEVEL_FILTER_FLAGS;
  438.   {$EXTERNALSYM DSOP_UPLEVEL_FILTER_FLAGS}
  439.   TDsOpUpLevelFilterFlags = DSOP_UPLEVEL_FILTER_FLAGS;
  440.   PDsOpUpLevelFilterFlags = ^DSOP_UPLEVEL_FILTER_FLAGS;
  442.   _DSOP_FILTER_FLAGS = record
  443.     Uplevel: DSOP_UPLEVEL_FILTER_FLAGS;
  444.     flDownlevel: ULONG;
  445.   end;
  446.   {$EXTERNALSYM _DSOP_FILTER_FLAGS}
  447.   DSOP_FILTER_FLAGS = _DSOP_FILTER_FLAGS;
  448.   {$EXTERNALSYM DSOP_FILTER_FLAGS}
  449.   TDsOpFilterFlags = DSOP_FILTER_FLAGS;
  450.   PDsOpFilterFlags = ^DSOP_FILTER_FLAGS;
  452. {
  453. DSOP_SCOPE_INIT_INFO
  454. ====================
  456. Each DSOP_SCOPE_INIT_INFO structure in the array DSOP_INIT_INFO.aDsScopeInfos
  457. describes a single scope or a group of scopes with the same settings.
  459. cbSize
  460.     Size, in bytes, of the entire structure.
  462. flType
  463.     DSOP_SCOPE_TYPE_* flags.  It is legal to combine multiple values via
  464.     bitwise OR if all of the types of scopes combined in this way require
  465.     the same settings.
  467. flScope
  468.     DSOP_SCOPE_ * flags.
  470. FilterFlags
  471.     DSOP_FILTER_* flags that indicate which types of objects should be
  472.     presented to the user in this scope.
  474. pwzDcName
  475.     Name of the DC of a domain.  This member is used only if the flType
  476.     member contains the flag DSOP_SCOPE_TYPE_JOINED_DOMAIN.  If that flag is
  477.     not set, this member must be NULL.
  479. pwzADsPath
  480.     Currently not supported, must be NULL.
  482. hr
  483.     Filled with S_OK if the scope represented by this structure could be
  484.     created, or an error message indicating why it could not.  If
  485.     IDsObjectPicker::SetScopes returns a success code, this value will
  486.     also be a success code.
  487. }
  489. type
  490.   PDSOP_SCOPE_INIT_INFO = ^DSOP_SCOPE_INIT_INFO;
  491.   {$EXTERNALSYM PDSOP_SCOPE_INIT_INFO}
  492.   _DSOP_SCOPE_INIT_INFO = record
  493.     cbSize: ULONG;
  494.     flType: ULONG;
  495.     flScope: ULONG;
  496.     FilterFlags: DSOP_FILTER_FLAGS;
  497.     pwzDcName: PWSTR;  // OPTIONAL
  498.     pwzADsPath: PWSTR; // OPTIONAL
  499.     hr: HRESULT;
  500.   end;
  501.   {$EXTERNALSYM _DSOP_SCOPE_INIT_INFO}
  502.   DSOP_SCOPE_INIT_INFO = _DSOP_SCOPE_INIT_INFO;
  503.   {$EXTERNALSYM DSOP_SCOPE_INIT_INFO}
  504.   PCDSOP_SCOPE_INIT_INFO = PDSOP_SCOPE_INIT_INFO;
  505.   {$EXTERNALSYM PCDSOP_SCOPE_INIT_INFO}
  506.   TDsOpScopeInitInfo = DSOP_SCOPE_INIT_INFO;
  507.   PDsOpScopeInitInfo = PDSOP_SCOPE_INIT_INFO;
  509. {
  510. DSOP_INIT_INFO flags
  511. ====================
  513. The following flags may be set in DSOP_INIT_INFO.flOptions:
  515. DSOP_FLAG_MULTISELECT
  516.     Allow multiple selections.  If this flag is not set, the dialog will
  517.     return zero or one objects.
  519. DSOP_FLAG_SKIP_TARGET_COMPUTER_DC_CHECK
  520.     If this flag is NOT set, then the DSOP_SCOPE_TYPE_TARGET_COMPUTER flag
  521.     will be ignored if the target computer is a DC.  This flag has no effect
  522.     unless DSOP_SCOPE_TYPE_TARGET_COMPUTER is specified.
  524. }
  526. const
  527.   DSOP_FLAG_MULTISELECT                   = $00000001;
  528.   {$EXTERNALSYM DSOP_FLAG_MULTISELECT}
  529.   DSOP_FLAG_SKIP_TARGET_COMPUTER_DC_CHECK = $00000002;
  530.   {$EXTERNALSYM DSOP_FLAG_SKIP_TARGET_COMPUTER_DC_CHECK}
  532. {
  533. DSOP_INIT_INFO
  534. ==============
  536. Used to configure the DS Object Picker dialog.
  538. cbSize
  539.     Size, in bytes, of entire structure.
  541. pwzTargetComputer
  542.     Sets the computer associated with DSOP_SCOPE_TARGET_COMPUTER, and
  543.     which is used to determine the joined domain and enterprise.
  544.     If this value is NULL, the target computer is the local machine.
  546. cDsScopeInfos
  547.     Count of elements in aDsScopeInfos.  Must be at least 1, since
  548.     the object picker cannot operate without at least one scope.
  550. aDsScopeInfos
  551.     Array of scope initialization structures.  Must be present and
  552.     contain at least one element.
  554. flOptions
  555.     Various DS Object Picker flags (DSOP_FLAG_MULTISELECT).
  557. cAttributesToFetch
  558.     Count of elements in apwzAttributeNames.  Can be 0.
  560. apwzAttributeNames
  561.     Array of names of attributes to fetch for each object.  Ignored
  562.     if cAttributesToFetch is 0.
  563. }
  565. type
  566.   PDSOP_INIT_INFO = ^DSOP_INIT_INFO;
  567.   {$EXTERNALSYM PDSOP_INIT_INFO}
  568.   _DSOP_INIT_INFO = record
  569.     cbSize: ULONG;
  570.     pwzTargetComputer: PWSTR;
  571.     cDsScopeInfos: ULONG;
  572.     aDsScopeInfos: PDSOP_SCOPE_INIT_INFO;
  573.     flOptions: ULONG;
  574.     cAttributesToFetch: ULONG;
  575.     apwzAttributeNames: LPLPWSTR;
  576.   end;
  577.   {$EXTERNALSYM _DSOP_INIT_INFO}
  578.   DSOP_INIT_INFO = _DSOP_INIT_INFO;
  579.   {$EXTERNALSYM DSOP_INIT_INFO}
  580.   PCDSOP_INIT_INFO = PDSOP_INIT_INFO;
  581.   {$EXTERNALSYM PCDSOP_INIT_INFO}
  582.   TDsOpInitInfo = DSOP_INIT_INFO;
  583.   PDsOpInitInfo = PDSOP_INIT_INFO;
  585. {
  586. DS_SELECTION
  587. ============
  588. Describes an object selected by the user.
  590. pwzName
  591.     The object's RDN.
  593. pwzADsPath
  594.     The object's ADsPath.
  596. pwzClass
  597.     The object's class attribute value.
  599. pwzUPN
  600.     The object's userPrincipalName attribute value.
  602. pvarFetchedAttributes
  603.     An array of VARIANTs, one for each attribute fetched.
  605. flScopeType
  606.     A single DSOP_SCOPE_TYPE_* flag describing the type of the scope
  607.     from which this object was selected.
  610. DS_SELECTION_LIST
  611. =================
  612. Available as a clipboard format from the data object returned by
  613. IDsObjectPicker::InvokeDialog.  Contains a list of objects that the user
  614. selected.
  616. cItems
  617.     Number of elements in the aDsSelection array.
  619. cFetchedAttributes
  620.     Number of elements in each DSSELECTION.avarFetchedAttributes member.
  622. aDsSelection
  623.     Array of cItems DSSELECTION structures.
  624. }
  626. type
  627.   PDS_SELECTION = ^DS_SELECTION;
  628.   {$EXTERNALSYM PDS_SELECTION}
  629.   _DS_SELECTION = record
  630.     pwzName: PWSTR;
  631.     pwzADsPath: PWSTR;
  632.     pwzClass: PWSTR;
  633.     pwzUPN: PWSTR;
  634.     pvarFetchedAttributes: POleVariant; 
  635.     flScopeType: ULONG;
  636.   end;
  637.   {$EXTERNALSYM _DS_SELECTION}
  638.   DS_SELECTION = _DS_SELECTION;
  639.   {$EXTERNALSYM DS_SELECTION}
  640.   TDsSelection = DS_SELECTION;
  641.   PDsSelection = PDS_SELECTION;
  643.   PDS_SELECTION_LIST = ^DS_SELECTION_LIST;
  644.   {$EXTERNALSYM PDS_SELECTION_LIST}
  645.   _DS_SELECTION_LIST = record
  646.     cItems: ULONG;
  647.     cFetchedAttributes: ULONG;
  648.     aDsSelection: array [0..ANYSIZE_ARRAY - 1] of DS_SELECTION;
  649.   end;
  650.   {$EXTERNALSYM _DS_SELECTION_LIST}
  651.   DS_SELECTION_LIST = _DS_SELECTION_LIST;
  652.   {$EXTERNALSYM DS_SELECTION_LIST}
  653.   TDsSelectionList = DS_SELECTION_LIST;
  654.   PDsSelectionList = PDS_SELECTION_LIST;
  656. //
  657. // Object Picker Interfaces
  658. //
  660. //
  661. // The main interface to the DS Object Picker, used to initialize it,
  662. // invoke the dialog, and return the user's selections.
  663. //
  665. type
  666.   IDsObjectPicker = interface (IUnknown)
  667.   ['{0c87e64e-3b7a-11d2-b9e0-00c04fd8dbf7}']
  668.     // Sets scope, filter, etc. for use with next invocation of dialog
  669.     function Initialize(const pInitInfo: DSOP_INIT_INFO): HRESULT; stdcall;
  670.     // Creates the modal DS Object Picker dialog.
  671.     function InvokeDialog(hwndParent: HWND; out ppdoSelections: IDataObject): HRESULT; stdcall;
  672.   end;
  673.   {$EXTERNALSYM IDsObjectPicker}
  675. implementation
  677. end.