jwascesvc.pas 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358
  1. {******************************************************************************}
  2. { }
  3. { Security Service Attachements 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: scesvc.h, released June 2000. The original Pascal }
  9. { code is: SceSvc.pas, released December 2000. The initial developer of the }
  10. { Pascal code is Marcel van Brakel (brakelm att chello dott 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 }
  18. { APILIB home page, located at http://jedi-apilib.sourceforge.net }
  19. { }
  20. { The contents of this file are used with permission, subject to the Mozilla }
  21. { Public License Version 1.1 (the "License"); you may not use this file except }
  22. { in compliance with the License. You may obtain a copy of the License at }
  23. { http://www.mozilla.org/MPL/MPL-1.1.html }
  24. { }
  25. { Software distributed under the License is distributed on an "AS IS" basis, }
  26. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  27. { the specific language governing rights and limitations under the License. }
  28. { }
  29. { Alternatively, the contents of this file may be used under the terms of the }
  30. { GNU Lesser General Public License (the "LGPL License"), in which case the }
  31. { provisions of the LGPL License are applicable instead of those above. }
  32. { If you wish to allow use of your version of this file only under the terms }
  33. { of the LGPL License and not to allow others to use your version of this file }
  34. { under the MPL, indicate your decision by deleting the provisions above and }
  35. { replace them with the notice and other provisions required by the LGPL }
  36. { License. If you do not delete the provisions above, a recipient may use }
  37. { your version of this file under either the MPL or the LGPL License. }
  38. { }
  39. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  40. { }
  41. {******************************************************************************}
  42. // $Id: JwaSceSvc.pas,v 1.5 2007/09/05 11:58:52 dezipaitor Exp $
  43. {$IFNDEF JWA_OMIT_SECTIONS}
  44. unit JwaSceSvc;
  45. {$WEAKPACKAGEUNIT}
  46. {$ENDIF JWA_OMIT_SECTIONS}
  47. {$HPPEMIT ''}
  48. {$HPPEMIT '#include "scesvc.h"'}
  49. {$HPPEMIT ''}
  50. {$HPPEMIT 'typedef SCESVC_HANDLE *PSCESVC_HANDLE'}
  51. {$HPPEMIT ''}
  52. {$IFNDEF JWA_OMIT_SECTIONS}
  53. {$I jediapilib.inc}
  54. interface
  55. uses
  56. JwaWinType;
  57. {$ENDIF JWA_OMIT_SECTIONS}
  58. {$IFNDEF JWA_IMPLEMENTATIONSECTION}
  59. type
  60. SCESTATUS = DWORD;
  61. {$EXTERNALSYM SCESTATUS}
  62. const
  63. SCESTATUS_SUCCESS = 0;
  64. {$EXTERNALSYM SCESTATUS_SUCCESS}
  65. SCESTATUS_INVALID_PARAMETER = 1;
  66. {$EXTERNALSYM SCESTATUS_INVALID_PARAMETER}
  67. SCESTATUS_RECORD_NOT_FOUND = 2;
  68. {$EXTERNALSYM SCESTATUS_RECORD_NOT_FOUND}
  69. SCESTATUS_INVALID_DATA = 3;
  70. {$EXTERNALSYM SCESTATUS_INVALID_DATA}
  71. SCESTATUS_OBJECT_EXIST = 4;
  72. {$EXTERNALSYM SCESTATUS_OBJECT_EXIST}
  73. SCESTATUS_BUFFER_TOO_SMALL = 5;
  74. {$EXTERNALSYM SCESTATUS_BUFFER_TOO_SMALL}
  75. SCESTATUS_PROFILE_NOT_FOUND = 6;
  76. {$EXTERNALSYM SCESTATUS_PROFILE_NOT_FOUND}
  77. SCESTATUS_BAD_FORMAT = 7;
  78. {$EXTERNALSYM SCESTATUS_BAD_FORMAT}
  79. SCESTATUS_NOT_ENOUGH_RESOURCE = 8;
  80. {$EXTERNALSYM SCESTATUS_NOT_ENOUGH_RESOURCE}
  81. SCESTATUS_ACCESS_DENIED = 9;
  82. {$EXTERNALSYM SCESTATUS_ACCESS_DENIED}
  83. SCESTATUS_CANT_DELETE = 10;
  84. {$EXTERNALSYM SCESTATUS_CANT_DELETE}
  85. SCESTATUS_PREFIX_OVERFLOW = 11;
  86. {$EXTERNALSYM SCESTATUS_PREFIX_OVERFLOW}
  87. SCESTATUS_OTHER_ERROR = 12;
  88. {$EXTERNALSYM SCESTATUS_OTHER_ERROR}
  89. SCESTATUS_ALREADY_RUNNING = 13;
  90. {$EXTERNALSYM SCESTATUS_ALREADY_RUNNING}
  91. SCESTATUS_SERVICE_NOT_SUPPORT = 14;
  92. {$EXTERNALSYM SCESTATUS_SERVICE_NOT_SUPPORT}
  93. SCESTATUS_MOD_NOT_FOUND = 15;
  94. {$EXTERNALSYM SCESTATUS_MOD_NOT_FOUND}
  95. SCESTATUS_EXCEPTION_IN_SERVER = 16;
  96. {$EXTERNALSYM SCESTATUS_EXCEPTION_IN_SERVER}
  97. SCESTATUS_NO_TEMPLATE_GIVEN = 17;
  98. {$EXTERNALSYM SCESTATUS_NO_TEMPLATE_GIVEN}
  99. SCESTATUS_NO_MAPPING = 18;
  100. {$EXTERNALSYM SCESTATUS_NO_MAPPING}
  101. SCESTATUS_TRUST_FAIL = 19;
  102. {$EXTERNALSYM SCESTATUS_TRUST_FAIL}
  103. type
  104. PSCESVC_CONFIGURATION_LINE = ^SCESVC_CONFIGURATION_LINE;
  105. {$EXTERNALSYM PSCESVC_CONFIGURATION_LINE}
  106. _SCESVC_CONFIGURATION_LINE_ = record
  107. Key: LPTSTR;
  108. Value: LPTSTR;
  109. ValueLen: DWORD; // number of bytes
  110. end;
  111. {$EXTERNALSYM _SCESVC_CONFIGURATION_LINE_}
  112. SCESVC_CONFIGURATION_LINE = _SCESVC_CONFIGURATION_LINE_;
  113. {$EXTERNALSYM SCESVC_CONFIGURATION_LINE}
  114. TScesvcConfigurationLine = SCESVC_CONFIGURATION_LINE;
  115. PScesvcConfigurationLine = PSCESVC_CONFIGURATION_LINE;
  116. PSCESVC_CONFIGURATION_INFO = ^SCESVC_CONFIGURATION_INFO;
  117. {$EXTERNALSYM PSCESVC_CONFIGURATION_INFO}
  118. _SCESVC_CONFIGURATION_INFO_ = record
  119. Count: DWORD;
  120. Lines: PSCESVC_CONFIGURATION_INFO;
  121. end;
  122. {$EXTERNALSYM _SCESVC_CONFIGURATION_INFO_}
  123. SCESVC_CONFIGURATION_INFO = _SCESVC_CONFIGURATION_INFO_;
  124. {$EXTERNALSYM SCESVC_CONFIGURATION_INFO}
  125. TScesvcConfigurationInfo = SCESVC_CONFIGURATION_INFO;
  126. PScesvcConfigurationInfo = PSCESVC_CONFIGURATION_INFO;
  127. SCE_HANDLE = PVOID;
  128. {$EXTERNALSYM SCE_HANDLE}
  129. SCE_ENUMERATION_CONTEXT = ULONG;
  130. {$EXTERNALSYM SCE_ENUMERATION_CONTEXT}
  131. PSCE_ENUMERATION_CONTEXT = ^SCE_ENUMERATION_CONTEXT;
  132. {$EXTERNALSYM PSCE_ENUMERATION_CONTEXT}
  133. _SCESVC_INFO_TYPE = (
  134. SceSvcConfigurationInfo,
  135. SceSvcMergedPolicyInfo,
  136. SceSvcAnalysisInfo,
  137. SceSvcInternalUse); // !!!do not use this type!!!
  138. {$EXTERNALSYM _SCESVC_INFO_TYPE}
  139. SCESVC_INFO_TYPE = _SCESVC_INFO_TYPE;
  140. {$EXTERNALSYM SCESVC_INFO_TYPE}
  141. TScesvcInfoType = _SCESVC_INFO_TYPE;
  142. const
  143. SCE_ROOT_PATH = 'Software\Microsoft\Windows NT\CurrentVersion\SeCEdit';
  144. {$EXTERNALSYM SCE_ROOT_PATH}
  145. SCE_ROOT_SERVICE_PATH = SCE_ROOT_PATH + '\SvcEngs';
  146. {$EXTERNALSYM SCE_ROOT_SERVICE_PATH}
  147. type
  148. SCESVC_HANDLE = PVOID;
  149. {$EXTERNALSYM SCESVC_HANDLE}
  150. PSCESVC_HANDLE = ^SCESVC_HANDLE;
  151. {$NODEFINE PSCESVC_HANDLE}
  152. PSCESVC_ANALYSIS_LINE = ^SCESVC_ANALYSIS_LINE;
  153. {$EXTERNALSYM PSCESVC_ANALYSIS_LINE}
  154. _SCESVC_ANALYSIS_LINE_ = record
  155. Key: LPTSTR;
  156. Value: PBYTE;
  157. ValueLen: DWORD; // number of bytes
  158. end;
  159. {$EXTERNALSYM _SCESVC_ANALYSIS_LINE_}
  160. SCESVC_ANALYSIS_LINE = _SCESVC_ANALYSIS_LINE_;
  161. {$EXTERNALSYM SCESVC_ANALYSIS_LINE}
  162. TScesvcAnalysisLine = SCESVC_ANALYSIS_LINE;
  163. PScesvcAnalysisLine = PSCESVC_ANALYSIS_LINE;
  164. PSCESVC_ANALYSIS_INFO = ^SCESVC_ANALYSIS_INFO;
  165. {$EXTERNALSYM PSCESVC_ANALYSIS_INFO}
  166. _SCESVC_ANALYSIS_INFO_ = record
  167. Count: DWORD;
  168. Lines: PSCESVC_ANALYSIS_LINE;
  169. end;
  170. {$EXTERNALSYM _SCESVC_ANALYSIS_INFO_}
  171. SCESVC_ANALYSIS_INFO = _SCESVC_ANALYSIS_INFO_;
  172. {$EXTERNALSYM SCESVC_ANALYSIS_INFO}
  173. TScesvcAnalysisInfo = SCESVC_ANALYSIS_INFO;
  174. PScesvcAnalysisInfo = PSCESVC_ANALYSIS_INFO;
  175. const
  176. SCESVC_ENUMERATION_MAX = 100;
  177. {$EXTERNALSYM SCESVC_ENUMERATION_MAX}
  178. type
  179. PFSCE_QUERY_INFO = function(sceHandle: SCE_HANDLE; sceType: SCESVC_INFO_TYPE;
  180. lpPrefix: LPTSTR; bExact: BOOL; ppvInfo: PPVOID;
  181. var psceEnumHandle: SCE_ENUMERATION_CONTEXT): SCESTATUS; stdcall;
  182. {$EXTERNALSYM PFSCE_QUERY_INFO}
  183. PFSCE_SET_INFO = function(sceHandle: SCE_HANDLE; sceType: SCESVC_INFO_TYPE;
  184. lpPrefix: LPTSTR; bExact: BOOL; pvInfo: PVOID): SCESTATUS; stdcall;
  185. {$EXTERNALSYM PFSCE_SET_INFO}
  186. PFSCE_FREE_INFO = function(pvServiceInfo: PVOID): SCESTATUS; stdcall;
  187. {$EXTERNALSYM PFSCE_FREE_INFO}
  188. const
  189. SCE_LOG_LEVEL_ALWAYS = 0;
  190. {$EXTERNALSYM SCE_LOG_LEVEL_ALWAYS}
  191. SCE_LOG_LEVEL_ERROR = 1;
  192. {$EXTERNALSYM SCE_LOG_LEVEL_ERROR}
  193. SCE_LOG_LEVEL_DETAIL = 2;
  194. {$EXTERNALSYM SCE_LOG_LEVEL_DETAIL}
  195. SCE_LOG_LEVEL_DEBUG = 3;
  196. {$EXTERNALSYM SCE_LOG_LEVEL_DEBUG}
  197. type
  198. PFSCE_LOG_INFO = function(ErrLevel: Integer; Win32rc: DWORD; pErrFmt: LPTSTR {...}): SCESTATUS; stdcall;
  199. {$EXTERNALSYM PFSCE_LOG_INFO}
  200. PSCESVC_CALLBACK_INFO = ^SCESVC_CALLBACK_INFO;
  201. {$EXTERNALSYM PSCESVC_CALLBACK_INFO}
  202. _SCESVC_CALLBACK_INFO_ = record
  203. sceHandle: SCE_HANDLE;
  204. pfQueryInfo: PFSCE_QUERY_INFO;
  205. pfSetInfo: PFSCE_SET_INFO;
  206. pfFreeInfo: PFSCE_FREE_INFO;
  207. pfLogInfo: PFSCE_LOG_INFO;
  208. end;
  209. {$EXTERNALSYM _SCESVC_CALLBACK_INFO_}
  210. SCESVC_CALLBACK_INFO = _SCESVC_CALLBACK_INFO_;
  211. {$EXTERNALSYM SCESVC_CALLBACK_INFO}
  212. TScesvcCallbackInfo = SCESVC_CALLBACK_INFO;
  213. PScesvcCallbackInfo = PSCESVC_CALLBACK_INFO;
  214. PF_ConfigAnalyzeService = function(pSceCbInfo: PSCESVC_CALLBACK_INFO): SCESTATUS; stdcall;
  215. {$EXTERNALSYM PF_ConfigAnalyzeService}
  216. PF_UpdateService = function(pSceCbInfo: PSCESVC_CALLBACK_INFO;
  217. ServiceInfo: PSCESVC_CONFIGURATION_INFO): SCESTATUS; stdcall;
  218. {$EXTERNALSYM PF_UpdateService}
  219. //
  220. // headers for extension snap-ins
  221. // only define this for NT5
  222. //
  223. const
  224. struuidNodetypeSceTemplateServices = '{24a7f717-1f0c-11d1-affb-00c04fb984f9}';
  225. {$EXTERNALSYM struuidNodetypeSceTemplateServices}
  226. lstruuidNodetypeSceTemplateServices = '{24a7f717-1f0c-11d1-affb-00c04fb984f9}';
  227. {$EXTERNALSYM lstruuidNodetypeSceTemplateServices}
  228. cNodetypeSceTemplateServices: GUID = (
  229. D1:$24a7f717; D2:$1f0c; D3:$11d1; D4:($af, $fb, $0, $c0, $4f, $b9, $84, $f9));
  230. {$EXTERNALSYM cNodetypeSceTemplateServices}
  231. struuidNodetypeSceAnalysisServices = '{678050c7-1ff8-11d1-affb-00c04fb984f9}';
  232. {$EXTERNALSYM struuidNodetypeSceAnalysisServices}
  233. lstruuidNodetypeSceAnalysisServices = '{678050c7-1ff8-11d1-affb-00c04fb984f9}';
  234. {$EXTERNALSYM lstruuidNodetypeSceAnalysisServices}
  235. cNodetypeSceAnalysisServices: GUID = (
  236. D1:$678050c7; D2:$1ff8; D3:$11d1; D4:($af, $fb, $0, $c0, $4f, $b9, $84, $f9));
  237. {$EXTERNALSYM cNodetypeSceAnalysisServices}
  238. struuidNodetypeSceEventLog = '{2ce06698-4bf3-11d1-8c30-00c04fb984f9}';
  239. {$EXTERNALSYM struuidNodetypeSceEventLog}
  240. lstruuidNodetypeSceEventLog = '{2ce06698-4bf3-11d1-8c30-00c04fb984f9}';
  241. {$EXTERNALSYM lstruuidNodetypeSceEventLog}
  242. cNodetypeSceEventLog: GUID = (
  243. D1:$2ce06698; D2:$4bf3; D3:$11d1; D4:($8c, $30, $0, $c0, $4f, $b9, $84, $f9));
  244. {$EXTERNALSYM cNodetypeSceEventLog}
  245. type
  246. LPSCESVC_CONFIGURATION_INFO = ^PSCESVC_CONFIGURATION_INFO;
  247. {$EXTERNALSYM LPSCESVC_CONFIGURATION_INFO}
  248. LPSCESVC_ANALYSIS_INFO = ^PSCESVC_ANALYSIS_INFO;
  249. {$EXTERNALSYM LPSCESVC_ANALYSIS_INFO}
  250. const
  251. CCF_SCESVC_ATTACHMENT = 'CCF_SCESVC_ATTACHMENT';
  252. {$EXTERNALSYM CCF_SCESVC_ATTACHMENT}
  253. CCF_SCESVC_ATTACHMENT_DATA = 'CCF_SCESVC_ATTACHMENT_DATA';
  254. {$EXTERNALSYM CCF_SCESVC_ATTACHMENT_DATA}
  255. //
  256. // implemented by service attachment
  257. //
  258. const
  259. IID_ISceSvcAttachmentPersistInfo: GUID = (
  260. D1:$6d90e0d0; D2:$200d; D3:$11d1; D4:($af, $fb, $0, $c0, $4f, $b9, $84, $f9));
  261. {$EXTERNALSYM IID_ISceSvcAttachmentPersistInfo}
  262. SID_ISceSvcAttachmentPersistInfo = '{6d90e0d0-200d-11d1-affb-00c04fb984f9}';
  263. type
  264. ISceSvcAttachmentPersistInfo = interface (IUnknown)
  265. [SID_ISceSvcAttachmentPersistInfo]
  266. function Save(lpTemplateName: LPTSTR; scesvcHandle: PSCESVC_HANDLE;
  267. ppvData: PPVOID; pbOverwriteAll: PBOOL): HRESULT; stdcall;
  268. function IsDirty(lpTemplateName: LPTSTR): HRESULT; stdcall;
  269. function FreeBuffer(pvData: PVOID): HRESULT; stdcall;
  270. end;
  271. {$EXTERNALSYM ISceSvcAttachmentPersistInfo}
  272. LPSCESVCATTACHMENTPERSISTINFO = ISceSvcAttachmentPersistInfo;
  273. {$EXTERNALSYM LPSCESVCATTACHMENTPERSISTINFO}
  274. //
  275. // implemented by SecEdit
  276. //
  277. const
  278. IID_ISceSvcAttachmentData: GUID = (
  279. D1:$17c35fde; D2:$200d; D3:$11d1; D4:($af, $fb, $0, $c0, $4f, $b9, $84, $f9));
  280. {$EXTERNALSYM IID_ISceSvcAttachmentData}
  281. SID_ISceSvcAttachmentData = '{17c35fde-200d-11d1-affb-00c04fb984f9}';
  282. type
  283. ISceSvcAttachmentData = interface (IUnknown)
  284. [SID_ISceSvcAttachmentData]
  285. function GetData(scesvcHandle: SCESVC_HANDLE; sceType: SCESVC_INFO_TYPE;
  286. ppvData: PPVOID; psceEnumHandle: PSCE_ENUMERATION_CONTEXT): HRESULT; stdcall;
  287. function Initialize(lpServiceName, lpTemplateName: LPCTSTR;
  288. lpSceSvcPersistInfo: LPSCESVCATTACHMENTPERSISTINFO;
  289. pscesvcHandle: PSCESVC_HANDLE): HRESULT; stdcall;
  290. function FreeBuffer(pvData: PVOID): HRESULT; stdcall;
  291. function CloseHandle(scesvcHandle: SCESVC_HANDLE): HRESULT; stdcall;
  292. end;
  293. {$EXTERNALSYM ISceSvcAttachmentData}
  294. LPSCESVCATTACHMENTDATA = ISceSvcAttachmentData;
  295. {$EXTERNALSYM LPSCESVCATTACHMENTDATA}
  296. {$ENDIF JWA_IMPLEMENTATIONSECTION}
  297. {$IFNDEF JWA_OMIT_SECTIONS}
  298. implementation
  299. //uses ...
  300. {$ENDIF JWA_OMIT_SECTIONS}
  301. {$IFNDEF JWA_INTERFACESECTION}
  302. {$ENDIF JWA_INTERFACESECTION}
  303. {$IFNDEF JWA_OMIT_SECTIONS}
  304. end.
  305. {$ENDIF JWA_OMIT_SECTIONS}