PageRenderTime 83ms CodeModel.GetById 27ms RepoModel.GetById 0ms app.codeStats 0ms

/Source/Win32/Source/Taskschd.pas

https://github.com/ricardoarruda/MySQL-Front
Pascal | 848 lines | 774 code | 68 blank | 6 comment | 0 complexity | 557ff25812761fd0d3cfb5466e74033c MD5 | raw file
    

  1. unit Taskschd;

    2. 

  2. 

    3. 

  3.  {***************************************************

    4. 

  4.   *                                                 *

    5. 

  5.   *    Microsoft Windows TaskScheduler API v.2.0    *

    6. 

  6.   *                   for Delphi                    *

    7. 

  7.   *                                                 *

    8. 

  8.   ***************************************************}

    9. 

  9. 

    10. 

  10. interface

    11. 

  11. 

    12. 

  12. uses

    13. 

  13.   Windows, ActiveX;

    14. 

  14. 

    15. 

  15. const

    16. 

  16.   TaskSchedulerMajorVersion = 2;

    17. 

  17.   TaskSchedulerMinorVersion = 0;

    18. 

  18. 

    19. 

  19.   IID_IAction: TGUID = '{BAE54997-48B1-4CBE-9965-D6BE263EBEA4}';

    20. 

  20.   IID_IActionCollection: TGUID = '{02820E19-7B98-4ED2-B2E8-FDCCCEFF619B}';

    21. 

  21.   IID_IBootTrigger: TGUID = '{2A9C35DA-D357-41F4-BBC1-207AC1B1F3CB}';

    22. 

  22.   IID_IComHandlerAction: TGUID = '{6D2FD252-75C5-4F66-90BA-2A7D8CC3039F}';

    23. 

  23.   IID_IDailyTrigger: TGUID = '{126C5CD8-B288-41D5-8DBF-E491446ADC5C}';

    24. 

  24.   IID_IEmailAction: TGUID = '{10F62C64-7E16-4314-A0C2-0C3683F99D40}';

    25. 

  25.   IID_IEventTrigger: TGUID = '{D45B0167-9653-4EEF-B94F-0732CA7AF251}';

    26. 

  26.   IID_IExecAction: TGUID = '{4C3D624D-FD6B-49A3-B9B7-09CB3CD3F047}';

    27. 

  27.   IID_IIdleSettings: TGUID = '{84594461-0053-4342-A8FD-088FABF11F32}';

    28. 

  28.   IID_IIdleTrigger: TGUID = '{D537D2B0-9FB3-4D34-9739-1FF5CE7B1EF3}';

    29. 

  29.   IID_ILogonTrigger: TGUID = '{72DADE38-FAE4-4B3E-BAF4-5D009AF02B1C}';

    30. 

  30.   IID_IMonthlyDOWTrigger: TGUID = '{77D025A3-90FA-43AA-B52E-CDA5499B946A}';

    31. 

  31.   IID_IMonthlyTrigger: TGUID = '{97C45EF1-6B02-4A1A-9C0E-1EBFBA1500AC}';

    32. 

  32.   IID_INetworkSettings: TGUID = '{9F7DEA84-C30B-4245-80B6-00E9F646F1B4}';

    33. 

  33.   IID_IPrincipal: TGUID = '{D98D51E5-C9B4-496A-A9C1-18980261CF0F}';

    34. 

  34.   IID_IRegisteredTask: TGUID = '{9C86F320-DEE3-4DD1-B972-A303F26B061E}';

    35. 

  35.   IID_IRegisteredTaskCollection: TGUID = '{86627EB4-42A7-41E4-A4D9-AC33A72F2D52}';

    36. 

  36.   IID_IRegistrationInfo: TGUID = '{416D8B73-CB41-4EA1-805C-9BE9A5AC4A74}';

    37. 

  37.   IID_IRegistrationTrigger: TGUID = '{4C8FEC3A-C218-4E0C-B23D-629024DB91A2}';

    38. 

  38.   IID_IRepetitionPattern: TGUID = '{7FB9ACF1-26BE-400E-85B5-294B9C75DFD6}';

    39. 

  39.   IID_IRunningTask: TGUID = '{653758FB-7B9A-4F1E-A471-BEEB8E9B834E}';

    40. 

  40.   IID_IRunningTaskCollection: TGUID = '{6A67614B-6828-4FEC-AA54-6D52E8F1F2DB}';

    41. 

  41.   IID_ISessionStateChangeTrigger: TGUID = '{754DA71B-4385-4475-9DD9-598294FA3641}';

    42. 

  42.   IID_IShowMessageAction: TGUID = '{505E9E68-AF89-46B8-A30F-56162A83D537}';

    43. 

  43.   IID_ITaskDefinition: TGUID = '{F5BC8FC5-536D-4F77-B852-FBC1356FDEB6}';

    44. 

  44.   IID_ITaskFolder: TGUID = '{8CFAC062-A080-4C15-9A88-AA7C2AF80DFC}';

    45. 

  45.   IID_ITaskFolderCollection: TGUID = '{79184A66-8664-423F-97F1-637356A5D812}';

    46. 

  46.   IID_ITaskHandler: TGUID = '{839D7762-5121-4009-9234-4F0D19394F04}';

    47. 

  47.   IID_ITaskHandlerStatus: TGUID = '{EAEC7A8F-27A0-4DDC-8675-14726A01A38A}';

    48. 

  48.   IID_ITaskNamedValueCollection: TGUID = '{B4EF826B-63C3-46E4-A504-EF69E4F7EA4D}';

    49. 

  49.   IID_ITaskNamedValuePair: TGUID = '{39038068-2B46-4AFD-8662-7BB6F868D221}';

    50. 

  50.   IID_ITaskService: TGUID = '{2FABA4C7-4DA9-4013-9697-20CC3FD40F85}';

    51. 

  51.   IID_ITaskSettings: TGUID = '{8FD4711D-2D02-4C8C-87E3-EFF699DE127E}';

    52. 

  52.   IID_ITaskSettings2: TGUID = '{2C05C3F0-6EED-4C05-A15F-ED7D7A98A369}';

    53. 

  53.   IID_ITaskVariables: TGUID = '{3E4C9351-D966-4B8B-BB87-CEBA68BB0107}';

    54. 

  54.   IID_ITimeTrigger: TGUID = '{B45747E0-EBA7-4276-9F29-85C5BB300006}';

    55. 

  55.   IID_ITrigger: TGUID = '{09941815-EA89-4B5B-89E0-2A773801FAC3}';

    56. 

  56.   IID_ITriggerCollection: TGUID = '{85DF5081-1B24-4F32-878A-D9D14DF4CB77}';

    57. 

  57.   IID_IWeeklyTrigger: TGUID = '{5038FC98-82FF-436D-8728-A512A57C9DC1}';

    58. 

  58. 

    59. 

  59.   LIBID_TaskScheduler: TGUID = '{E34CB9F1-C7F7-424C-BE29-027DCC09363A}';

    60. 

  60. 

    61. 

  61.   CLSID_TaskHandlerStatusPS: TGUID = '{9F15266D-D7BA-48F0-93C1-E6895F6FE5AC}';

    62. 

  62.   CLSID_TaskHandlerPS: TGUID = '{F2A69DB7-DA2C-4352-9066-86FEE6DACAC9}';

    63. 

  63.   CLSID_TaskScheduler: TGUID = '{0F87369F-A4E5-4CFC-BD3E-73E6154572DD}';

    64. 

  64. 

    65. 

  65. 

    66. 

  66.   SCHED_S_TASK_READY = $00041300;   // The task is ready to run at its next scheduled time.

    67. 

  67.   SCHED_S_TASK_RUNNING = $00041301;   // The task is currently running.

    68. 

  68.   SCHED_S_TASK_DISABLED = $00041302;   // The task will not run at the scheduled times because it has been disabled.

    69. 

  69.   SCHED_S_TASK_HAS_NOT_RUN = $00041303;   // The task has not yet run.

    70. 

  70.   SCHED_S_TASK_NO_MORE_RUNS = $00041304;   // There are no more runs scheduled for this task.

    71. 

  71.   SCHED_S_TASK_NOT_SCHEDULED = $00041305;   // One or more of the properties that are needed to run this task on a schedule have not been set.

    72. 

  72.   SCHED_S_TASK_TERMINATED = $00041306;   // The last run of the task was terminated by the user.

    73. 

  73.   SCHED_S_TASK_NO_VALID_TRIGGERS = $00041307;   // Either the task has no triggers or the existing triggers are disabled or not set.

    74. 

  74.   SCHED_S_EVENT_TRIGGER = $00041308;   // Event triggers do not have set run times.

    75. 

  75.   SCHED_E_TRIGGER_NOT_FOUND = $80041309;   // A task's trigger is not found.

    76. 

  76.   SCHED_E_TASK_NOT_READY = $8004130A;   // One or more of the properties required to run this task have not been set.

    77. 

  77.   SCHED_E_TASK_NOT_RUNNING = $8004130B;   // There is no running instance of the task.

    78. 

  78.   SCHED_E_SERVICE_NOT_INSTALLED = $8004130C;   // The Task Scheduler service is not installed on this computer.

    79. 

  79.   SCHED_E_CANNOT_OPEN_TASK = $8004130D;   // The task object could not be opened.

    80. 

  80.   SCHED_E_INVALID_TASK = $8004130E;   // The object is either an invalid task object or is not a task object.

    81. 

  81.   SCHED_E_ACCOUNT_INFORMATION_NOT_SET = $8004130F;   // No account information could be found in the Task Scheduler security database for the task indicated.

    82. 

  82.   SCHED_E_ACCOUNT_NAME_NOT_FOUND = $80041310;   // Unable to establish existence of the account specified.

    83. 

  83.   SCHED_E_ACCOUNT_DBASE_CORRUPT = $80041311;   // Corruption was detected in the Task Scheduler security database; the database has been reset.

    84. 

  84.   SCHED_E_NO_SECURITY_SERVICES = $80041312;   // Task Scheduler security services are available only on Windows NT.

    85. 

  85.   SCHED_E_UNKNOWN_OBJECT_VERSION = $80041313;   // The task object version is either unsupported or invalid.

    86. 

  86.   SCHED_E_UNSUPPORTED_ACCOUNT_OPTION = $80041314;   // The task has been configured with an unsupported combination of account settings and run time options.

    87. 

  87.   SCHED_E_SERVICE_NOT_RUNNING = $80041315;   // The Task Scheduler Service is not running.

    88. 

  88.   SCHED_E_UNEXPECTEDNODE = $80041316;   // The task XML contains an unexpected node.

    89. 

  89.   SCHED_E_NAMESPACE = $80041317;   // The task XML contains an element or attribute from an unexpected namespace.

    90. 

  90.   SCHED_E_INVALIDVALUE = $80041318;   // The task XML contains a value which is incorrectly formatted or out of range.

    91. 

  91.   SCHED_E_MISSINGNODE = $80041319;   // The task XML is missing a required element or attribute.

    92. 

  92.   SCHED_E_MALFORMEDXML = $8004131A;   // The task XML is malformed.

    93. 

  93.   SCHED_S_SOME_TRIGGERS_FAILED = $0004131B;   // The task is registered, but not all specified triggers will start the task.

    94. 

  94.   SCHED_S_BATCH_LOGON_PROBLEM = $0004131C;   // The task is registered, but may fail to start. Batch logon privilege needs to be enabled for the task principal.

    95. 

  95.   SCHED_E_TOO_MANY_NODES = $8004131D;   // The task XML contains too many nodes of the same type.

    96. 

  96.   SCHED_E_PAST_END_BOUNDARY = $8004131E;   // The task cannot be started after the trigger end boundary.

    97. 

  97.   SCHED_E_ALREADY_RUNNING = $8004131F;   // An instance of this task is already running.

    98. 

  98.   SCHED_E_USER_NOT_LOGGED_ON = $80041320;   // The task will not run because the user is not logged on.

    99. 

  99.   SCHED_E_INVALID_TASK_HASH = $80041321;   // The task image is corrupt or has been tampered with.

    100. 

  100.   SCHED_E_SERVICE_NOT_AVAILABLE = $80041322;   // The Task Scheduler service is not available.

    101. 

  101.   SCHED_E_SERVICE_TOO_BUSY = $80041323;   // The Task Scheduler service is too busy to handle your request. Please try again later.

    102. 

  102.   SCHED_E_TASK_ATTEMPTED = $80041324;   // The Task Scheduler service attempted to run the task, but the task did not run due to one of the constraints in the task definition.

    103. 

  103.   SCHED_S_TASK_QUEUED = $00041325;   // The Task Scheduler service has asked the task to run.

    104. 

  104.   SCHED_E_TASK_DISABLED = $80041326;   // The task is disabled.

    105. 

  105.   SCHED_E_TASK_NOT_V1_COMPAT = $80041327;   // The task has properties that are not compatible with earlier versions of Windows.

    106. 

  106.   SCHED_E_START_ON_DEMAND = $80041328;   // The task settings do not allow the task to start on demand.

    107. 

  107. 

    108. 

  108. type

    109. 

  109.   TTaskRunFlags = (

    110. 

  110.     TASK_RUN_NO_FLAGS	= $0,

    111. 

  111.     TASK_RUN_AS_SELF	= $1,

    112. 

  112.     TASK_RUN_IGNORE_CONSTRAINTS	= $2,

    113. 

  113.     TASK_RUN_USE_SESSION_ID	= $4,

    114. 

  114.     TASK_RUN_USER_SID	= $8

    115. 

  115.   );

    116. 

  116. 

    117. 

  117.   TASK_ENUM_FLAGS = (

    118. 

  118.     TASK_ENUM_HIDDEN = $1

    119. 

  119.   );

    120. 

  120. 

    121. 

  121.   TASK_LOGON_TYPE = (

    122. 

  122.     TASK_LOGON_NONE = 0,

    123. 

  123.     TASK_LOGON_PASSWORD = 1,

    124. 

  124.     TASK_LOGON_S4U = 2,

    125. 

  125.     TASK_LOGON_INTERACTIVE_TOKEN = 3,

    126. 

  126.     TASK_LOGON_GROUP = 4,

    127. 

  127.     TASK_LOGON_SERVICE_ACCOUNT = 5,

    128. 

  128.     TASK_LOGON_INTERACTIVE_TOKEN_OR_PASSWORD = 6

    129. 

  129.   );

    130. 

  130. 

    131. 

  131.   TASK_RUNLEVEL_TYPE = (

    132. 

  132.     TASK_RUNLEVEL_LUA	= 0,

    133. 

  133.     TASK_RUNLEVEL_HIGHEST	= 1

    134. 

  134.   );

    135. 

  135. 

    136. 

  136.   TASK_STATE = (

    137. 

  137.     TASK_STATE_UNKNOWN = 0,

    138. 

  138.     TASK_STATE_DISABLED	= 1,

    139. 

  139.     TASK_STATE_QUEUED	= 2,

    140. 

  140.     TASK_STATE_READY	= 3,

    141. 

  141.     TASK_STATE_RUNNING	= 4

    142. 

  142.   );

    143. 

  143. 

    144. 

  144.   TASK_CREATION = (

    145. 

  145.     TASK_VALIDATE_ONLY = $1,

    146. 

  146.     TASK_CREATE	= $2,

    147. 

  147.     TASK_UPDATE	= $4,

    148. 

  148.     TASK_CREATE_OR_UPDATE	= $6,

    149. 

  149.     TASK_DISABLE	= $8,

    150. 

  150.     TASK_DONT_ADD_PRINCIPAL_ACE	= $10,

    151. 

  151.     TASK_IGNORE_REGISTRATION_TRIGGERS	= $20

    152. 

  152.   );

    153. 

  153. 

    154. 

  154.   PTASK_TRIGGER_TYPE2 = ^TASK_TRIGGER_TYPE2;

    155. 

  155.   TASK_TRIGGER_TYPE2 = (

    156. 

  156.     TASK_TRIGGER_EVENT	= 0,

    157. 

  157.     TASK_TRIGGER_TIME	= 1,

    158. 

  158.     TASK_TRIGGER_DAILY	= 2,

    159. 

  159.     TASK_TRIGGER_WEEKLY	= 3,

    160. 

  160.     TASK_TRIGGER_MONTHLY	= 4,

    161. 

  161.     TASK_TRIGGER_MONTHLYDOW	= 5,

    162. 

  162.     TASK_TRIGGER_IDLE	= 6,

    163. 

  163.     TASK_TRIGGER_REGISTRATION	= 7,

    164. 

  164.     TASK_TRIGGER_BOOT	= 8,

    165. 

  165.     TASK_TRIGGER_LOGON	= 9,

    166. 

  166.     TASK_TRIGGER_SESSION_STATE_CHANGE	= 11

    167. 

  167.   );

    168. 

  168. 

    169. 

  169.   TASK_SESSION_STATE_CHANGE_TYPE = (

    170. 

  170.     TASK_CONSOLE_CONNECT	= 1,

    171. 

  171.     TASK_CONSOLE_DISCONNECT	= 2,

    172. 

  172.     TASK_REMOTE_CONNECT	= 3,

    173. 

  173.     TASK_REMOTE_DISCONNECT	= 4,

    174. 

  174.     TASK_SESSION_LOCK	= 7,

    175. 

  175.     TASK_SESSION_UNLOCK	= 8

    176. 

  176.   );

    177. 

  177. 

    178. 

  178.   TASK_ACTION_TYPE = (

    179. 

  179.     TASK_ACTION_EXEC = 0,

    180. 

  180.     TASK_ACTION_COM_HANDLER	= 5,

    181. 

  181.     TASK_ACTION_SEND_EMAIL	= 6,

    182. 

  182.     TASK_ACTION_SHOW_MESSAGE	= 7

    183. 

  183.   );

    184. 

  184. 

    185. 

  185.   TASK_INSTANCES_POLICY = (

    186. 

  186.     TASK_INSTANCES_PARALLEL	= 0,

    187. 

  187.     TASK_INSTANCES_QUEUE	= 1,

    188. 

  188.     TASK_INSTANCES_IGNORE_NEW	= 2,

    189. 

  189.     TASK_INSTANCES_STOP_EXISTING	= 3

    190. 

  190.   );

    191. 

  191. 

    192. 

  192.   TASK_COMPATIBILITY = (

    193. 

  193.     TASK_COMPATIBILITY_AT	= 0,

    194. 

  194.     TASK_COMPATIBILITY_V1	= 1,

    195. 

  195.     TASK_COMPATIBILITY_V2	= 2

    196. 

  196.   );

    197. 

  197. 

    198. 

  198. 

    199. 

  199.   DAILY = packed record

    200. 

  200.     DaysInterval: Word;

    201. 

  201.   end;

    202. 

  202. 

    203. 

  203.   MONTHLYDATE = packed record

    204. 

  204.     rgfDays: DWORD;

    205. 

  205.     rgfMonths: WORD;

    206. 

  206.   end;

    207. 

  207. 

    208. 

  208.   MONTHLYDOW = packed record

    209. 

  209.     wWhichWeek: WORD;

    210. 

  210.     rgfDaysOfTheWeek: WORD;

    211. 

  211.     rgfMonths: WORD;

    212. 

  212.   end;

    213. 

  213. 

    214. 

  214.   WEEKLY = packed record

    215. 

  215.     WeeksInterval: WORD;

    216. 

  216.     rgfDaysOfTheWeek: WORD;

    217. 

  217.   end;

    218. 

  218. 

    219. 

  219.   TRIGGER_TYPE_UNION = record

    220. 

  220.     case Integer of

    221. 

  221.       0:

    222. 

  222.         ( Daily: DAILY; );

    223. 

  223.       1:

    224. 

  224.         ( Weekly: WEEKLY; );

    225. 

  225.       2:

    226. 

  226.         ( MonthlyDate: MONTHLYDATE; );

    227. 

  227.       3:

    228. 

  228.         ( MonthlyDOW: MONTHLYDOW; );

    229. 

  229.   end;

    230. 

  230. 

    231. 

  231. type

    232. 

  232.   IActionCollection = interface;

    233. 

  233.   ITaskFolderCollection = interface;

    234. 

  234. 

    235. 

  235.   IRepetitionPattern = interface(IDispatch)

    236. 

  236.     ['{7FB9ACF1-26BE-400E-85B5-294B9C75DFD6}']

    237. 

  237.     function get_Interval: TBStr; safecall;

    238. 

  238.     procedure set_Interval(pInterval: TBStr); safecall;

    239. 

  239.     function get_Duration: TBStr; safecall;

    240. 

  240.     procedure set_Duration(pDuration: TBStr); safecall;

    241. 

  241.     function get_StopAtDurationEnd: WordBool; safecall;

    242. 

  242.     procedure set_StopAtDurationEnd(pStop: WordBool); safecall;

    243. 

  243.     property Interval: TBStr read get_Interval write set_Interval;

    244. 

  244.     property Duration: TBStr read get_Duration write set_Duration;

    245. 

  245.     property StopAtDurationEnd: WordBool read get_StopAtDurationEnd write set_StopAtDurationEnd;

    246. 

  246.   end;

    247. 

  247. 

    248. 

  248.   ITaskNamedValuePair = interface(IDispatch)

    249. 

  249.     ['{39038068-2B46-4AFD-8662-7BB6F868D221}']

    250. 

  250.     function get_Name: TBStr; safecall;

    251. 

  251.     procedure set_Name(pName: TBStr); safecall;

    252. 

  252.     function get_Value: TBStr; safecall;

    253. 

  253.     procedure set_Value(pValue: TBStr); safecall;

    254. 

  254.     property Name: TBStr read get_Name write set_Name;

    255. 

  255.     property Value: TBStr read get_Value write set_Value;

    256. 

  256.   end;

    257. 

  257. 

    258. 

  258.   ITaskNamedValueCollection = interface(IDispatch)

    259. 

  259.     ['{B4EF826B-63C3-46E4-A504-EF69E4F7EA4D}']

    260. 

  260.     function get_Count: Integer; safecall;

    261. 

  261.     function get_Item(index: Integer): ITaskNamedValuePair; safecall;

    262. 

  262.     function get__NewEnum: IUnknown; safecall;

    263. 

  263.     function Create(Name: TBStr; Value: TBStr; out ppPair: ITaskNamedValuePair): HRESULT; stdcall;

    264. 

  264.     function Remove(index: LONG): HRESULT; stdcall;

    265. 

  265.     function Clear: HRESULT; stdcall;

    266. 

  266.     property Count: Integer read get_Count;

    267. 

  267.     property Item[index: Integer]: ITaskNamedValuePair read get_Item; default;

    268. 

  268.     property _NewEnum: IUnknown read get__NewEnum;

    269. 

  269.   end;

    270. 

  270. 

    271. 

  271.   IRegistrationInfo = interface(IDispatch)

    272. 

  272.     ['{416D8B73-CB41-4EA1-805C-9BE9A5AC4A74}']

    273. 

  273.     function get_Description: TBStr; safecall;

    274. 

  274.     procedure set_Description(pDescription: TBStr); safecall;

    275. 

  275.     function get_Author: TBStr; safecall;

    276. 

  276.     procedure set_Author(pAuthor: TBStr); safecall;

    277. 

  277.     function get_Version: TBStr; safecall;

    278. 

  278.     procedure set_Version(pVersion: TBStr); safecall;

    279. 

  279.     function get_Date: TBStr; safecall;

    280. 

  280.     procedure set_Date(pDate: TBStr); safecall;

    281. 

  281.     function get_Documentation: TBStr; safecall;

    282. 

  282.     procedure set_Documentation(pDocumentation: TBStr); safecall;

    283. 

  283.     function get_XmlText: TBStr; safecall;

    284. 

  284.     procedure set_XmlText(pText: TBStr); safecall;

    285. 

  285.     function get_URI: TBStr; safecall;

    286. 

  286.     procedure set_URI(pUri: TBStr); safecall;

    287. 

  287.     function get_SecurityDescriptor: OleVariant; safecall;

    288. 

  288.     procedure set_SecurityDescriptor(pSddl: OleVariant); safecall;

    289. 

  289.     function get_Source: TBStr; safecall;

    290. 

  290.     procedure set_Source(pSource: TBStr); safecall;

    291. 

  291.     property Description: TBStr read get_Description write set_Description;

    292. 

  292.     property Author: TBStr read get_Author write set_Author;

    293. 

  293.     property Version: TBStr read get_Version write set_Version;

    294. 

  294.     property Date: TBStr read get_Date write set_Date;

    295. 

  295.     property Documentation: TBStr read get_Documentation write set_Documentation;

    296. 

  296.     property XmlText: TBStr read get_XmlText write set_XmlText;

    297. 

  297.     property URI: TBStr read get_URI write set_URI;

    298. 

  298.     property SecurityDescriptor: OleVariant read get_SecurityDescriptor write set_SecurityDescriptor;

    299. 

  299.     property Source: TBStr read get_Source write set_Source;

    300. 

  300.   end;

    301. 

  301. 

    302. 

  302.   ITrigger = interface(IDispatch)

    303. 

  303.     ['{09941815-EA89-4B5B-89E0-2A773801FAC3}']

    304. 

  304.     function get_type: TASK_TRIGGER_TYPE2; safecall;

    305. 

  305.     function get_Id: TBStr; safecall;

    306. 

  306.     procedure set_Id(pId: TBStr); safecall;

    307. 

  307.     function get_Repetition: IRepetitionPattern; safecall;

    308. 

  308.     procedure set_Repetition(ppRepeat: IRepetitionPattern); safecall;

    309. 

  309.     function get_ExecutionTimeLimit: TBStr; safecall;

    310. 

  310.     procedure set_ExecutionTimeLimit(pTimeLimit: TBStr); safecall;

    311. 

  311.     function get_StartBoundary: TBStr; safecall;

    312. 

  312.     procedure set_StartBoundary(pStart: TBStr); safecall;

    313. 

  313.     function get_EndBoundary: TBStr; safecall;

    314. 

  314.     procedure set_EndBoundary(pEnd: TBStr); safecall;

    315. 

  315.     function get_Enabled: WordBool; safecall;

    316. 

  316.     procedure set_Enabled(pEnabled: WordBool); safecall;

    317. 

  317.     property TriggerType: TASK_TRIGGER_TYPE2 read get_type;

    318. 

  318.     property Id: TBStr read get_Id write set_Id;

    319. 

  319.     property Repetition: IRepetitionPattern read get_Repetition write set_Repetition;

    320. 

  320.     property ExecutionTimeLimit: TBStr read get_ExecutionTimeLimit write set_ExecutionTimeLimit;

    321. 

  321.     property StartBoundary: TBStr read get_StartBoundary write set_StartBoundary;

    322. 

  322.     property EndBoundary: TBStr read get_EndBoundary write set_EndBoundary;

    323. 

  323.     property Enabled: WordBool read get_Enabled write set_Enabled;

    324. 

  324.   end;

    325. 

  325. 

    326. 

  326.   IBootTrigger = interface(ITrigger)

    327. 

  327.     ['{2A9C35DA-D357-41F4-BBC1-207AC1B1F3CB}']

    328. 

  328.     function get_Delay: TBStr; safecall;

    329. 

  329.     procedure set_Delay(pDelay: TBStr); safecall;

    330. 

  330.     property Delay: TBStr read get_Delay write set_Delay;

    331. 

  331.   end;

    332. 

  332. 

    333. 

  333.   IDailyTrigger = interface(ITrigger)

    334. 

  334.     ['{126C5CD8-B288-41D5-8DBF-E491446ADC5C}']

    335. 

  335.     function get_DaysInterval: Smallint; safecall;

    336. 

  336.     procedure set_DaysInterval(pDays: Smallint); safecall;

    337. 

  337.     function get_RandomDelay: TBStr; safecall;

    338. 

  338.     procedure set_RandomDelay(pRandomDelay: TBStr); safecall;

    339. 

  339.     property DaysInterval: Smallint read get_DaysInterval write set_DaysInterval;

    340. 

  340.     property RandomDelay: TBStr read get_RandomDelay write set_RandomDelay;

    341. 

  341.   end;

    342. 

  342. 

    343. 

  343.   IEventTrigger = interface(ITrigger)

    344. 

  344.     ['{D45B0167-9653-4EEF-B94F-0732CA7AF251}']

    345. 

  345.     function get_Subscription: TBStr; safecall;

    346. 

  346.     procedure set_Subscription(pQuery: TBStr); safecall;

    347. 

  347.     function get_Delay: TBStr; safecall;

    348. 

  348.     procedure set_Delay(pDelay: TBStr); safecall;

    349. 

  349.     function get_ValueQueries: ITaskNamedValueCollection; safecall;

    350. 

  350.     procedure set_ValueQueries(ppNamedXPaths: ITaskNamedValueCollection); safecall;

    351. 

  351.     property Subscription: TBStr read get_Subscription write set_Subscription;

    352. 

  352.     property Delay: TBStr read get_Delay write set_Delay;

    353. 

  353.     property ValueQueries: ITaskNamedValueCollection read get_ValueQueries write set_ValueQueries;

    354. 

  354.   end;

    355. 

  355. 

    356. 

  356.   IIdleTrigger = interface(ITrigger)

    357. 

  357.     ['{D537D2B0-9FB3-4D34-9739-1FF5CE7B1EF3}']

    358. 

  358.   end;

    359. 

  359. 

    360. 

  360.   ILogonTrigger = interface(ITrigger)

    361. 

  361.     ['{72DADE38-FAE4-4B3E-BAF4-5D009AF02B1C}']

    362. 

  362.     function get_Delay: TBStr; safecall;

    363. 

  363.     procedure set_Delay(pDelay: TBStr); safecall;

    364. 

  364.     function get_UserId: TBStr; safecall;

    365. 

  365.     procedure set_UserId(pUser: TBStr); safecall;

    366. 

  366.     property Delay: TBStr read get_Delay write set_Delay;

    367. 

  367.     property UserId: TBStr read get_UserId write set_UserId;

    368. 

  368.   end;

    369. 

  369. 

    370. 

  370.   IMonthlyTrigger = interface(ITrigger)

    371. 

  371.     ['{97C45EF1-6B02-4A1A-9C0E-1EBFBA1500AC}']

    372. 

  372.     function get_DaysOfMonth: Integer; safecall;

    373. 

  373.     procedure set_DaysOfMonth(pDays: Integer); safecall;

    374. 

  374.     function get_MonthsOfYear: Smallint; safecall;

    375. 

  375.     procedure set_MonthsOfYear(pMonths: Smallint); safecall;

    376. 

  376.     function get_RunOnLastDayOfMonth: WordBool; safecall;

    377. 

  377.     procedure set_RunOnLastDayOfMonth(pLastDay: WordBool); safecall;

    378. 

  378.     function get_RandomDelay: TBStr; safecall;

    379. 

  379.     procedure set_RandomDelay(pRandomDelay: TBStr); safecall;

    380. 

  380.     property DaysOfMonth: Integer read get_DaysOfMonth write set_DaysOfMonth;

    381. 

  381.     property MonthsOfYear: Smallint read get_MonthsOfYear write set_MonthsOfYear;

    382. 

  382.     property RunOnLastDayOfMonth: WordBool read get_RunOnLastDayOfMonth write set_RunOnLastDayOfMonth;

    383. 

  383.     property RandomDelay: TBStr read get_RandomDelay write set_RandomDelay;

    384. 

  384.   end;

    385. 

  385. 

    386. 

  386.   IMonthlyDOWTrigger = interface(ITrigger)

    387. 

  387.     ['{77D025A3-90FA-43AA-B52E-CDA5499B946A}']

    388. 

  388.     function get_DaysOfWeek: Smallint; safecall;

    389. 

  389.     procedure set_DaysOfWeek(pDays: Smallint); safecall;

    390. 

  390.     function get_WeeksOfMonth: Smallint; safecall;

    391. 

  391.     procedure set_WeeksOfMonth(pWeeks: Smallint); safecall;

    392. 

  392.     function get_MonthsOfYear: Smallint; safecall;

    393. 

  393.     procedure set_MonthsOfYear(pMonths: Smallint); safecall;

    394. 

  394.     function get_RunOnLastWeekOfMonth: WordBool; safecall;

    395. 

  395.     procedure set_RunOnLastWeekOfMonth(pLastWeek: WordBool); safecall;

    396. 

  396.     function get_RandomDelay: TBStr; safecall;

    397. 

  397.     procedure set_RandomDelay(pRandomDelay: TBStr); safecall;

    398. 

  398.     property DaysOfWeek: Smallint read get_DaysOfWeek write set_DaysOfWeek;

    399. 

  399.     property WeeksOfMonth: Smallint read get_WeeksOfMonth write set_WeeksOfMonth;

    400. 

  400.     property MonthsOfYear: Smallint read get_MonthsOfYear write set_MonthsOfYear;

    401. 

  401.     property RunOnLastWeekOfMonth: WordBool read get_RunOnLastWeekOfMonth write set_RunOnLastWeekOfMonth;

    402. 

  402.     property RandomDelay: TBStr read get_RandomDelay write set_RandomDelay;

    403. 

  403.   end;

    404. 

  404. 

    405. 

  405.   IRegistrationTrigger = interface(ITrigger)

    406. 

  406.     ['{4C8FEC3A-C218-4E0C-B23D-629024DB91A2}']

    407. 

  407.     function get_Delay: TBStr; safecall;

    408. 

  408.     procedure set_Delay(pDelay: TBStr); safecall;

    409. 

  409.     property Delay: TBStr read get_Delay write set_Delay;

    410. 

  410.   end;

    411. 

  411. 

    412. 

  412.   ISessionStateChangeTrigger = interface(ITrigger)

    413. 

  413.     ['{754DA71B-4385-4475-9DD9-598294FA3641}']

    414. 

  414.     function get_Delay: TBStr; safecall;

    415. 

  415.     procedure set_Delay(pDelay: TBStr); safecall;

    416. 

  416.     function get_UserId: TBStr; safecall;

    417. 

  417.     procedure set_UserId(pUser: TBStr); safecall;

    418. 

  418.     function get_StateChange: TASK_SESSION_STATE_CHANGE_TYPE; safecall;

    419. 

  419.     procedure set_StateChange(pType: TASK_SESSION_STATE_CHANGE_TYPE); safecall;

    420. 

  420.     property Delay: TBStr read get_Delay write set_Delay;

    421. 

  421.     property UserId: TBStr read get_UserId write set_UserId;

    422. 

  422.     property StateChange: TASK_SESSION_STATE_CHANGE_TYPE read get_StateChange write set_StateChange;

    423. 

  423.   end;

    424. 

  424. 

    425. 

  425.   ITimeTrigger = interface(ITrigger)

    426. 

  426.     ['{B45747E0-EBA7-4276-9F29-85C5BB300006}']

    427. 

  427.     function get_RandomDelay: TBStr; safecall;

    428. 

  428.     procedure set_RandomDelay(pRandomDelay: TBStr); safecall;

    429. 

  429.     property RandomDelay: TBStr read get_RandomDelay write set_RandomDelay;

    430. 

  430.   end;

    431. 

  431. 

    432. 

  432.   IWeeklyTrigger = interface(ITrigger)

    433. 

  433.     ['{5038FC98-82FF-436D-8728-A512A57C9DC1}']

    434. 

  434.     function get_DaysOfWeek: Smallint; safecall;

    435. 

  435.     procedure set_DaysOfWeek(pDays: Smallint); safecall;

    436. 

  436.     function get_WeeksInterval: Smallint; safecall;

    437. 

  437.     procedure set_WeeksInterval(pWeeks: Smallint); safecall;

    438. 

  438.     function get_RandomDelay: TBStr; safecall;

    439. 

  439.     procedure set_RandomDelay(pRandomDelay: TBStr); safecall;

    440. 

  440.     property DaysOfWeek: Smallint read get_DaysOfWeek write set_DaysOfWeek;

    441. 

  441.     property WeeksInterval: Smallint read get_WeeksInterval write set_WeeksInterval;

    442. 

  442.     property RandomDelay: TBStr read get_RandomDelay write set_RandomDelay;

    443. 

  443.   end;

    444. 

  444. 

    445. 

  445.   ITriggerCollection = interface(IDispatch)

    446. 

  446.     ['{85DF5081-1B24-4F32-878A-D9D14DF4CB77}']

    447. 

  447.     function get_Count: Integer; safecall;

    448. 

  448.     function get_Item(index: Integer): ITrigger; safecall;

    449. 

  449.     function get__NewEnum: IUnknown; safecall;

    450. 

  450.     function Create(triggerType: TASK_TRIGGER_TYPE2; out ppTrigger: ITrigger): HRESULT; stdcall;

    451. 

  451.     function Remove(index: OleVariant): HRESULT; stdcall;

    452. 

  452.     function Clear: HRESULT; stdcall;

    453. 

  453.     property Count: Integer read get_Count;

    454. 

  454.     property Item[index: Integer]: ITrigger read get_Item; default;

    455. 

  455.     property _NewEnum: IUnknown read get__NewEnum;

    456. 

  456.   end;

    457. 

  457. 

    458. 

  458.   IIdleSettings = interface(IDispatch)

    459. 

  459.     ['{84594461-0053-4342-A8FD-088FABF11F32}']

    460. 

  460.     function get_IdleDuration: TBStr; safecall;

    461. 

  461.     procedure set_IdleDuration(pDelay: TBStr); safecall;

    462. 

  462.     function get_WaitTimeout: TBStr; safecall;

    463. 

  463.     procedure set_WaitTimeout(pTimeout: TBStr); safecall;

    464. 

  464.     function get_StopOnIdleEnd: WordBool; safecall;

    465. 

  465.     procedure set_StopOnIdleEnd(pStop: WordBool); safecall;

    466. 

  466.     function get_RestartOnIdle: WordBool; safecall;

    467. 

  467.     procedure set_RestartOnIdle(pRestart: WordBool); safecall;

    468. 

  468.     property IdleDuration: TBStr read get_IdleDuration write set_IdleDuration;

    469. 

  469.     property WaitTimeout: TBStr read get_WaitTimeout write set_WaitTimeout;

    470. 

  470.     property StopOnIdleEnd: WordBool read get_StopOnIdleEnd write set_StopOnIdleEnd;

    471. 

  471.     property RestartOnIdle: WordBool read get_RestartOnIdle write set_RestartOnIdle;

    472. 

  472.   end;

    473. 

  473. 

    474. 

  474.   INetworkSettings = interface(IDispatch)

    475. 

  475.     ['{9F7DEA84-C30B-4245-80B6-00E9F646F1B4}']

    476. 

  476.     function get_Name: TBStr; safecall;

    477. 

  477.     procedure set_Name(pName: TBStr); safecall;

    478. 

  478.     function get_Id: TBStr; safecall;

    479. 

  479.     procedure set_Id(pId: TBStr); safecall;

    480. 

  480.     property Name: TBStr read get_Name write set_Name;

    481. 

  481.     property Id: TBStr read get_Id write set_Id;

    482. 

  482.   end;

    483. 

  483. 

    484. 

  484.   ITaskSettings = interface(IDispatch)

    485. 

  485.     ['{8FD4711D-2D02-4C8C-87E3-EFF699DE127E}']

    486. 

  486.     function get_AllowDemandStart: WordBool; safecall;

    487. 

  487.     procedure set_AllowDemandStart(pAllowDemandStart: WordBool); safecall;

    488. 

  488.     function get_RestartInterval: TBStr; safecall;

    489. 

  489.     procedure set_RestartInterval(pRestartInterval: TBStr); safecall;

    490. 

  490.     function get_RestartCount: SYSINT; safecall;

    491. 

  491.     procedure set_RestartCount(pRestartCount: SYSINT); safecall;

    492. 

  492.     function get_MultipleInstances: TASK_INSTANCES_POLICY; safecall;

    493. 

  493.     procedure set_MultipleInstances(pPolicy: TASK_INSTANCES_POLICY); safecall;

    494. 

  494.     function get_StopIfGoingOnBatteries: WordBool; safecall;

    495. 

  495.     procedure set_StopIfGoingOnBatteries(pStopIfOnBatteries: WordBool); safecall;

    496. 

  496.     function get_DisallowStartIfOnBatteries: WordBool; safecall;

    497. 

  497.     procedure set_DisallowStartIfOnBatteries(pDisallowStart: WordBool); safecall;

    498. 

  498.     function get_AllowHardTerminate: WordBool; safecall;

    499. 

  499.     procedure set_AllowHardTerminate(pAllowHardTerminate: WordBool); safecall;

    500. 

  500.     function get_StartWhenAvailable: WordBool; safecall;

    501. 

  501.     procedure set_StartWhenAvailable(pStartWhenAvailable: WordBool); safecall;

    502. 

  502.     function get_XmlText: TBStr; safecall;

    503. 

  503.     procedure set_XmlText(pText: TBStr); safecall;

    504. 

  504.     function get_RunOnlyIfNetworkAvailable: WordBool; safecall;

    505. 

  505.     procedure set_RunOnlyIfNetworkAvailable(pRunOnlyIfNetworkAvailable: WordBool); safecall;

    506. 

  506.     function get_ExecutionTimeLimit: TBStr; safecall;

    507. 

  507.     procedure set_ExecutionTimeLimit(pExecutionTimeLimit: TBStr); safecall;

    508. 

  508.     function get_Enabled: WordBool; safecall;

    509. 

  509.     procedure set_Enabled(pEnabled: WordBool); safecall;

    510. 

  510.     function get_DeleteExpiredTaskAfter: TBStr; safecall;

    511. 

  511.     procedure set_DeleteExpiredTaskAfter(pExpirationDelay: TBStr); safecall;

    512. 

  512.     function get_Priority: SYSINT; safecall;

    513. 

  513.     procedure set_Priority(pPriority: SYSINT); safecall;

    514. 

  514.     function get_Compatibility: TASK_COMPATIBILITY; safecall;

    515. 

  515.     procedure set_Compatibility(pCompatLevel: TASK_COMPATIBILITY); safecall;

    516. 

  516.     function get_Hidden: WordBool; safecall;

    517. 

  517.     procedure set_Hidden(pHidden: WordBool); safecall;

    518. 

  518.     function get_IdleSettings: IIdleSettings; safecall;

    519. 

  519.     procedure set_IdleSettings(ppIdleSettings: IIdleSettings); safecall;

    520. 

  520.     function get_RunOnlyIfIdle: WordBool; safecall;

    521. 

  521.     procedure set_RunOnlyIfIdle(pRunOnlyIfIdle: WordBool); safecall;

    522. 

  522.     function get_WakeToRun: WordBool; safecall;

    523. 

  523.     procedure set_WakeToRun(pWake: WordBool); safecall;

    524. 

  524.     function get_NetworkSettings: INetworkSettings; safecall;

    525. 

  525.     procedure set_NetworkSettings(ppNetworkSettings: INetworkSettings); safecall;

    526. 

  526.     property AllowDemandStart: WordBool read get_AllowDemandStart write set_AllowDemandStart;

    527. 

  527.     property RestartInterval: TBStr read get_RestartInterval write set_RestartInterval;

    528. 

  528.     property RestartCount: SYSINT read get_RestartCount write set_RestartCount;

    529. 

  529.     property MultipleInstances: TASK_INSTANCES_POLICY read get_MultipleInstances write set_MultipleInstances;

    530. 

  530.     property StopIfGoingOnBatteries: WordBool read get_StopIfGoingOnBatteries write set_StopIfGoingOnBatteries;

    531. 

  531.     property DisallowStartIfOnBatteries: WordBool read get_DisallowStartIfOnBatteries write set_DisallowStartIfOnBatteries;

    532. 

  532.     property AllowHardTerminate: WordBool read get_AllowHardTerminate write set_AllowHardTerminate;

    533. 

  533.     property StartWhenAvailable: WordBool read get_StartWhenAvailable write set_StartWhenAvailable;

    534. 

  534.     property XmlText: TBStr read get_XmlText write set_XmlText;

    535. 

  535.     property RunOnlyIfNetworkAvailable: WordBool read get_RunOnlyIfNetworkAvailable write set_RunOnlyIfNetworkAvailable;

    536. 

  536.     property ExecutionTimeLimit: TBStr read get_ExecutionTimeLimit write set_ExecutionTimeLimit;

    537. 

  537.     property Enabled: WordBool read get_Enabled write set_Enabled;

    538. 

  538.     property DeleteExpiredTaskAfter: TBStr read get_DeleteExpiredTaskAfter write set_DeleteExpiredTaskAfter;

    539. 

  539.     property Priority: SYSINT read get_Priority write set_Priority;

    540. 

  540.     property Compatibility: TASK_COMPATIBILITY read get_Compatibility write set_Compatibility;

    541. 

  541.     property Hidden: WordBool read get_Hidden write set_Hidden;

    542. 

  542.     property IdleSettings: IIdleSettings read get_IdleSettings write set_IdleSettings;

    543. 

  543.     property RunOnlyIfIdle: WordBool read get_RunOnlyIfIdle write set_RunOnlyIfIdle;

    544. 

  544.     property WakeToRun: WordBool read get_WakeToRun write set_WakeToRun;

    545. 

  545.     property NetworkSettings: INetworkSettings read get_NetworkSettings write set_NetworkSettings;

    546. 

  546.   end;

    547. 

  547. 

    548. 

  548.   ITaskSettings2 = interface(IDispatch)

    549. 

  549.     ['{2C05C3F0-6EED-4C05-A15F-ED7D7A98A369}']

    550. 

  550.     function get_DisallowStartOnRemoteAppSession: WordBool; safecall;

    551. 

  551.     procedure set_DisallowStartOnRemoteAppSession(pDisallowStart: WordBool); safecall;

    552. 

  552.     function get_UseUnifiedSchedulingEngine: WordBool; safecall;

    553. 

  553.     procedure set_UseUnifiedSchedulingEngine(pUseUnifiedEngine: WordBool); safecall;

    554. 

  554.     property DisallowStartOnRemoteAppSession: WordBool read get_DisallowStartOnRemoteAppSession write set_DisallowStartOnRemoteAppSession;

    555. 

  555.     property UseUnifiedSchedulingEngine: WordBool read get_UseUnifiedSchedulingEngine write set_UseUnifiedSchedulingEngine;

    556. 

  556.   end;

    557. 

  557. 

    558. 

  558.   IPrincipal = interface(IDispatch)

    559. 

  559.     ['{D98D51E5-C9B4-496A-A9C1-18980261CF0F}']

    560. 

  560.     function get_Id: TBStr; safecall;

    561. 

  561.     procedure set_Id(pId: TBStr); safecall;

    562. 

  562.     function get_DisplayName: TBStr; safecall;

    563. 

  563.     procedure set_DisplayName(pName: TBStr); safecall;

    564. 

  564.     function get_UserId: TBStr; safecall;

    565. 

  565.     procedure set_UserId(pUser: TBStr); safecall;

    566. 

  566.     function get_LogonType: TASK_LOGON_TYPE; safecall;

    567. 

  567.     procedure set_LogonType(pLogon: TASK_LOGON_TYPE); safecall;

    568. 

  568.     function get_GroupId: TBStr; safecall;

    569. 

  569.     procedure set_GroupId(pGroup: TBStr); safecall;

    570. 

  570.     function get_RunLevel: TASK_RUNLEVEL_TYPE; safecall;

    571. 

  571.     procedure set_RunLevel(pRunLevel: TASK_RUNLEVEL_TYPE); safecall;

    572. 

  572.     property Id: TBStr read get_Id write set_Id;

    573. 

  573.     property DisplayName: TBStr read get_DisplayName write set_DisplayName;

    574. 

  574.     property UserId: TBStr read get_UserId write set_UserId;

    575. 

  575.     property LogonType: TASK_LOGON_TYPE read get_LogonType write set_LogonType;

    576. 

  576.     property GroupId: TBStr read get_GroupId write set_GroupId;

    577. 

  577.     property RunLevel: TASK_RUNLEVEL_TYPE read get_RunLevel write set_RunLevel;

    578. 

  578.   end;

    579. 

  579. 

    580. 

  580.   IAction = interface(IDispatch)

    581. 

  581.     ['{BAE54997-48B1-4CBE-9965-D6BE263EBEA4}']

    582. 

  582.     function get_Id: TBStr; safecall;

    583. 

  583.     procedure set_Id(pId: TBStr); safecall;

    584. 

  584.     function get_type: TASK_ACTION_TYPE; safecall;

    585. 

  585.     property Id: TBStr read get_Id write set_Id;

    586. 

  586.     property ActionType: TASK_ACTION_TYPE read get_type;

    587. 

  587.   end;

    588. 

  588. 

    589. 

  589.   IComHandlerAction = interface(IAction)

    590. 

  590.     ['{6D2FD252-75C5-4F66-90BA-2A7D8CC3039F}']

    591. 

  591.     function get_ClassId: TBStr; safecall;

    592. 

  592.     procedure set_ClassId(pClsid: TBStr); safecall;

    593. 

  593.     function get_Data: TBStr; safecall;

    594. 

  594.     procedure set_Data(pData: TBStr); safecall;

    595. 

  595.     property ClassId: TBStr read get_ClassId write set_ClassId;

    596. 

  596.     property Data: TBStr read get_Data write set_Data;

    597. 

  597.   end;

    598. 

  598. 

    599. 

  599.   IEmailAction = interface(IAction)

    600. 

  600.     ['{10F62C64-7E16-4314-A0C2-0C3683F99D40}']

    601. 

  601.     function get_Server: TBStr; safecall;

    602. 

  602.     procedure set_Server(pServer: TBStr); safecall;

    603. 

  603.     function get_Subject: TBStr; safecall;

    604. 

  604.     procedure set_Subject(pSubject: TBStr); safecall;

    605. 

  605.     function get_To_: TBStr; safecall;

    606. 

  606.     procedure set_To_(pTo: TBStr); safecall;

    607. 

  607.     function get_Cc: TBStr; safecall;

    608. 

  608.     procedure set_Cc(pCc: TBStr); safecall;

    609. 

  609.     function get_Bcc: TBStr; safecall;

    610. 

  610.     procedure set_Bcc(pBcc: TBStr); safecall;

    611. 

  611.     function get_ReplyTo: TBStr; safecall;

    612. 

  612.     procedure set_ReplyTo(pReplyTo: TBStr); safecall;

    613. 

  613.     function get_From: TBStr; safecall;

    614. 

  614.     procedure set_From(pFrom: TBStr); safecall;

    615. 

  615.     function get_HeaderFields: ITaskNamedValueCollection; safecall;

    616. 

  616.     procedure set_HeaderFields(ppHeaderFields: ITaskNamedValueCollection); safecall;

    617. 

  617.     function get_Body: TBStr; safecall;

    618. 

  618.     procedure set_Body(pBody: TBStr); safecall;

    619. 

  619.     function get_Attachments: PSafeArray; safecall;

    620. 

  620.     procedure set_Attachments(pAttachements: PSafeArray); safecall;

    621. 

  621.     property Server: TBStr read get_Server write set_Server;

    622. 

  622.     property Subject: TBStr read get_Subject write set_Subject;

    623. 

  623.     property To_: TBStr read get_To_ write set_To_;

    624. 

  624.     property Cc: TBStr read get_Cc write set_Cc;

    625. 

  625.     property Bcc: TBStr read get_Bcc write set_Bcc;

    626. 

  626.     property ReplyTo: TBStr read get_ReplyTo write set_ReplyTo;

    627. 

  627.     property From: TBStr read get_From write set_From;

    628. 

  628.     property HeaderFields: ITaskNamedValueCollection read get_HeaderFields write set_HeaderFields;

    629. 

  629.     property Body: TBStr read get_Body write set_Body;

    630. 

  630.     property Attachments: PSafeArray read get_Attachments write set_Attachments;

    631. 

  631.   end;

    632. 

  632. 

    633. 

  633.   IExecAction = interface(IAction)

    634. 

  634.     ['{4C3D624D-FD6B-49A3-B9B7-09CB3CD3F047}']

    635. 

  635.     function get_Path: TBStr; safecall;

    636. 

  636.     procedure set_Path(pPath: TBStr); safecall;

    637. 

  637.     function get_Arguments: TBStr; safecall;

    638. 

  638.     procedure set_Arguments(pArgument: TBStr); safecall;

    639. 

  639.     function get_WorkingDirectory: TBStr; safecall;

    640. 

  640.     procedure set_WorkingDirectory(pWorkingDirectory: TBStr); safecall;

    641. 

  641.     property Path: TBStr read get_Path write set_Path;

    642. 

  642.     property Arguments: TBStr read get_Arguments write set_Arguments;

    643. 

  643.     property WorkingDirectory: TBStr read get_WorkingDirectory write set_WorkingDirectory;

    644. 

  644.   end;

    645. 

  645. 

    646. 

  646.   IShowMessageAction = interface(IAction)

    647. 

  647.     ['{505E9E68-AF89-46B8-A30F-56162A83D537}']

    648. 

  648.     function get_Title: TBStr; safecall;

    649. 

  649.     procedure set_Title(pTitle: TBStr); safecall;

    650. 

  650.     function get_MessageBody: TBStr; safecall;

    651. 

  651.     procedure set_MessageBody(pMessageBody: TBStr); safecall;

    652. 

  652.     property Title: TBStr read get_Title write set_Title;

    653. 

  653.     property MessageBody: TBStr read get_MessageBody write set_MessageBody;

    654. 

  654.   end;

    655. 

  655. 

    656. 

  656.   IActionCollection = interface(IDispatch)

    657. 

  657.     ['{02820E19-7B98-4ED2-B2E8-FDCCCEFF619B}']

    658. 

  658.     function get_Count: Integer; safecall;

    659. 

  659.     function get_Item(index: Integer): IAction; safecall;

    660. 

  660.     function get__NewEnum: IUnknown; safecall;

    661. 

  661.     function get_XmlText: TBStr; safecall;

    662. 

  662.     procedure set_XmlText(pText: TBStr); safecall;

    663. 

  663.     function Create(ActionType: TASK_ACTION_TYPE; out ppAction: IAction): HRESULT; stdcall;

    664. 

  664.     function Remove(index: OleVariant): HRESULT; stdcall;

    665. 

  665.     function Clear: HRESULT; stdcall;

    666. 

  666.     function get_Context: TBStr; safecall;

    667. 

  667.     procedure set_Context(pContext: TBStr); safecall;

    668. 

  668.     property Count: Integer read get_Count;

    669. 

  669.     property Item[index: Integer]: IAction read get_Item; default;

    670. 

  670.     property _NewEnum: IUnknown read get__NewEnum;

    671. 

  671.     property XmlText: TBStr read get_XmlText write set_XmlText;

    672. 

  672.     property Context: TBStr read get_Context write set_Context;

    673. 

  673.   end;

    674. 

  674. 

    675. 

  675.   ITaskVariables = interface(IUnknown)

    676. 

  676.     ['{3E4C9351-D966-4B8B-BB87-CEBA68BB0107}']

    677. 

  677.     function GetInput(out pInput: TBStr): HRESULT; stdcall;

    678. 

  678.     function SetOutput(input: TBStr): HRESULT; stdcall;

    679. 

  679.     function GetContext(out pContext: TBStr): HRESULT; stdcall;

    680. 

  680.   end;

    681. 

  681. 

    682. 

  682.   ITaskDefinition = interface(IDispatch)

    683. 

  683.     ['{F5BC8FC5-536D-4F77-B852-FBC1356FDEB6}']

    684. 

  684.     function get_RegistrationInfo: IRegistrationInfo; safecall;

    685. 

  685.     procedure set_RegistrationInfo(ppRegistrationInfo: IRegistrationInfo); safecall;

    686. 

  686.     function get_Triggers: ITriggerCollection; safecall;

    687. 

  687.     procedure set_Triggers(ppTriggers: ITriggerCollection); safecall;

    688. 

  688.     function get_Settings: ITaskSettings; safecall;

    689. 

  689.     procedure set_Settings(ppSettings: ITaskSettings); safecall;

    690. 

  690.     function get_Data: TBStr; safecall;

    691. 

  691.     procedure set_Data(pData: TBStr); stdcall;

    692. 

  692.     function get_Principal: IPrincipal; safecall;

    693. 

  693.     procedure set_Principal(ppPrincipal: IPrincipal); safecall;

    694. 

  694.     function get_Actions: IActionCollection; safecall;

    695. 

  695.     procedure set_Actions(ppActions: IActionCollection); safecall;

    696. 

  696.     function get_XmlText: TBStr; safecall;

    697. 

  697.     procedure set_XmlText(pXml: TBStr); safecall;

    698. 

  698.     property RegistrationInfo: IRegistrationInfo read get_RegistrationInfo write set_RegistrationInfo;

    699. 

  699.     property Triggers: ITriggerCollection read get_Triggers write set_Triggers;

    700. 

  700.     property Settings: ITaskSettings read get_Settings write set_Settings;

    701. 

  701.     property Data: TBStr read get_Data write set_Data;

    702. 

  702.     property Principal: IPrincipal read get_Principal write set_Principal;

    703. 

  703.     property Actions: IActionCollection read get_Actions write set_Actions;

    704. 

  704.     property XmlText: TBStr read get_XmlText write set_XmlText;

    705. 

  705.   end;

    706. 

  706. 

    707. 

  707.   IRunningTask = interface(IDispatch)

    708. 

  708.     ['{653758FB-7B9A-4F1E-A471-BEEB8E9B834E}']

    709. 

  709.     function get_Name: TBStr; safecall;

    710. 

  710.     function get_InstanceGuid: TBStr; safecall;

    711. 

  711.     function get_Path: TBStr; safecall;

    712. 

  712.     function get_State: TASK_STATE; safecall;

    713. 

  713.     function get_CurrentAction: TBStr; safecall;

    714. 

  714.     function Stop: HRESULT; stdcall;

    715. 

  715.     function Refresh: HRESULT; stdcall;

    716. 

  716.     function get_EnginePID: LongWord; safecall;

    717. 

  717.     property Name: TBStr read get_Name;

    718. 

  718.     property InstanceGuid: TBStr read get_InstanceGuid;

    719. 

  719.     property Path: TBStr read get_Path;

    720. 

  720.     property State: TASK_STATE read get_State;

    721. 

  721.     property CurrentAction: TBStr read get_CurrentAction;

    722. 

  722.     property EnginePID: LongWord read get_EnginePID;

    723. 

  723.   end;

    724. 

  724. 

    725. 

  725.   IRunningTaskCollection = interface(IDispatch)

    726. 

  726.     ['{6A67614B-6828-4FEC-AA54-6D52E8F1F2DB}']

    727. 

  727.     function get_Count: Integer; safecall;

    728. 

  728.     function get_Item(index: OleVariant): IRunningTask; safecall;

    729. 

  729.     function get__NewEnum: IUnknown; safecall;

    730. 

  730.     property Count: Integer read get_Count;

    731. 

  731.     property Item[index: OleVariant]: IRunningTask read get_Item; default;

    732. 

  732.     property _NewEnum: IUnknown read get__NewEnum;

    733. 

  733.   end;

    734. 

  734. 

    735. 

  735.   IRegisteredTask = interface(IDispatch)

    736. 

  736.     ['{9C86F320-DEE3-4DD1-B972-A303F26B061E}']

    737. 

  737.     function get_Name: TBStr; safecall;

    738. 

  738.     function get_Path: TBStr; safecall;

    739. 

  739.     function get_State: TASK_STATE; safecall;

    740. 

  740.     function get_Enabled: WordBool; safecall;

    741. 

  741.     procedure set_Enabled(pEnabled: WordBool); safecall;

    742. 

  742.     function Run(params: OleVariant;

    743. 

  743.       out ppRunningTask: IRunningTask): HRESULT; stdcall;

    744. 

  744.     function RunEx(params: OleVariant; flags: LONG; sessionID: Integer;

    745. 

  745.       user: TBStr; out ppRunningTask: IRunningTask): HRESULT; stdcall;

    746. 

  746.     function GetInstances(flags: LONG;

    747. 

  747.       out ppRunningTasks: IRunningTaskCollection): HRESULT; stdcall;

    748. 

  748.     function get_LastRunTime: TDateTime; safecall;

    749. 

  749.     function get_LastTaskResult: Integer; safecall;

    750. 

  750.     function get_NumberOfMissedRuns: Integer; safecall;

    751. 

  751.     function get_NextRunTime: TDateTime; safecall;

    752. 

  752.     function get_Definition: ITaskDefinition; safecall;

    753. 

  753.     function get_Xml: TBStr; safecall;

    754. 

  754.     function GetSecurityDescriptor(securityInformation: Integer; out pSddl: TBStr): HRESULT; stdcall;

    755. 

  755.     function SetSecurityDescriptor(sddl: TBStr; flags: LONG): HRESULT; stdcall;

    756. 

  756.     function Stop(flags: LONG): HRESULT; stdcall;

    757. 

  757.     function GetRunTimes(pstStart, pstEnd: PSystemTime; var pCount: DWORD;

    758. 

  758.       out pRunTimes: PSystemTime): HRESULT; stdcall;

    759. 

  759.     property Name: TBStr read get_Name;

    760. 

  760.     property Path: TBStr read get_Path;

    761. 

  761.     property State: TASK_STATE read get_State;

    762. 

  762.     property Enabled: WordBool read get_Enabled write set_Enabled;

    763. 

  763.     property LastRunTime: TDateTime read get_LastRunTime;

    764. 

  764.     property LastTaskResult: Integer read get_LastTaskResult;

    765. 

  765.     property NumberOfMissedRuns: Integer read get_NumberOfMissedRuns;

    766. 

  766.     property NextRunTime: TDateTime read get_NextRunTime;

    767. 

  767.     property Definition: ITaskDefinition read get_Definition;

    768. 

  768.     property XML: TBStr read get_Xml;

    769. 

  769.   end;

    770. 

  770. 

    771. 

  771.   IRegisteredTaskCollection = interface(IDispatch)

    772. 

  772.     ['{86627EB4-42A7-41E4-A4D9-AC33A72F2D52}']

    773. 

  773.     function get_Count: Integer; safecall;

    774. 

  774.     function get_Item(index: OleVariant): IRegisteredTask; safecall;

    775. 

  775.     function get__NewEnum: IUnknown; safecall;

    776. 

  776.     property Count: Integer read get_Count;

    777. 

  777.     property Item[index: OleVariant]: IRegisteredTask read get_Item; default;

    778. 

  778.     property _NewEnum: IUnknown read get__NewEnum;

    779. 

  779.   end;

    780. 

  780. 

    781. 

  781.   ITaskHandler = interface(IUnknown)

    782. 

  782.     ['{839D7762-5121-4009-9234-4F0D19394F04}']

    783. 

  783.     function Start(pHandlerServices: IUnknown; data: TBStr): HRESULT; stdcall;

    784. 

  784.     function Stop(out pRetCode: HRESULT): HRESULT; stdcall;

    785. 

  785.     function Pause: HRESULT; stdcall;

    786. 

  786.     function Resume: HRESULT; stdcall;

    787. 

  787.   end;

    788. 

  788. 

    789. 

  789.   ITaskHandlerStatus = interface(IUnknown)

    790. 

  790.     ['{EAEC7A8F-27A0-4DDC-8675-14726A01A38A}']

    791. 

  791.     function UpdateStatus(percentComplete: SHORT; statusMessage: TBStr): HRESULT; stdcall;

    792. 

  792.     function TaskCompleted(taskErrCode: HRESULT): HRESULT; stdcall;

    793. 

  793.   end;

    794. 

  794. 

    795. 

  795.   ITaskFolder = interface(IDispatch)

    796. 

  796.     ['{8CFAC062-A080-4C15-9A88-AA7C2AF80DFC}']

    797. 

  797.     function get_Name: TBStr; safecall;

    798. 

  798.     function get_Path: TBStr; safecall;

    799. 

  799.     function GetFolder(Path: TBStr; out ppFolder: ITaskFolder): HRESULT; stdcall;

    800. 

  800.     function GetFolders(flags: LONG; out ppFolders: ITaskFolderCollection): HRESULT; stdcall;

    801. 

  801.     function CreateFolder(subFolderName: TBStr; sddl: OleVariant; out ppFolder: ITaskFolder): HRESULT; stdcall;

    802. 

  802.     function DeleteFolder(subFolderName: TBStr; flags: LONG): HRESULT; stdcall;

    803. 

  803.     function GetTask(path: TBStr; out ppTask: IRegisteredTask): HRESULT; stdcall;

    804. 

  804.     function GetTasks(flags: LONG; out ppTasks: IRegisteredTaskCollection): HRESULT; stdcall;

    805. 

  805.     function DeleteTask(Name: TBStr; flags: LONG): HRESULT; stdcall;

    806. 

  806.     function RegisterTask(Path: TBStr; XmlText: TBStr; flags: LONG; UserId: OleVariant;

    807. 

  807.       password: OleVariant; LogonType: TASK_LOGON_TYPE; sddl: OleVariant; out ppTask: IRegisteredTask): HRESULT; stdcall;

    808. 

  808.     function RegisterTaskDefinition(path: TBStr; pDefinition: ITaskDefinition; flags: LONG;

    809. 

  809.       TASK_CREATION: OleVariant; password: OleVariant; logonType: TASK_LOGON_TYPE;

    810. 

  810.       sddl: OleVariant; out ppTask: IRegisteredTask): HRESULT; stdcall;

    811. 

  811.     function GetSecurityDescriptor(securityInformation: Integer; out pSddl: TBStr): HRESULT; stdcall;

    812. 

  812.     function SetSecurityDescriptor(sddl: TBStr; flags: LONG): HRESULT; stdcall;

    813. 

  813.     property Name: TBStr read get_Name;

    814. 

  814.     property Path: TBStr read get_Path;

    815. 

  815.   end;

    816. 

  816. 

    817. 

  817.   ITaskFolderCollection = interface(IDispatch)

    818. 

  818.     ['{79184A66-8664-423F-97F1-637356A5D812}']

    819. 

  819.     function get_Count: Integer; safecall;

    820. 

  820.     function get_Item(index: OleVariant): ITaskFolder; safecall;

    821. 

  821.     function get__NewEnum: IUnknown; safecall;

    822. 

  822.     property Count: Integer read get_Count;

    823. 

  823.     property Item[index: OleVariant]: ITaskFolder read get_Item; default;

    824. 

  824.     property _NewEnum: IUnknown read get__NewEnum;

    825. 

  825.   end;

    826. 

  826. 

    827. 

  827.   ITaskService = interface(IDispatch)

    828. 

  828.     ['{2FABA4C7-4DA9-4013-9697-20CC3FD40F85}']

    829. 

  829.     function GetFolder(Path: TBStr; out ppFolder: ITaskFolder): HRESULT; stdcall;

    830. 

  830.     function GetRunningTasks(flags: LONG; out ppRunningTasks: IRunningTaskCollection): HRESULT; stdcall;

    831. 

  831.     function NewTask(flags: DWORD; out ppDefinition: ITaskDefinition): HRESULT; stdcall;

    832. 

  832.     function Connect(serverName: OleVariant; user: OleVariant;

    833. 

  833.       domain: OleVariant; password: OleVariant): HRESULT; stdcall;

    834. 

  834.     function get_Connected: WordBool; safecall;

    835. 

  835.     function get_TargetServer: TBStr; safecall;

    836. 

  836.     function get_ConnectedUser: TBStr; safecall;

    837. 

  837.     function get_ConnectedDomain: TBStr; safecall;

    838. 

  838.     function get_HighestVersion: LongWord; safecall;

    839. 

  839.     property Connected: WordBool read get_Connected;

    840. 

  840.     property TargetServer: TBStr read get_TargetServer;

    841. 

  841.     property ConnectedUser: TBStr read get_ConnectedUser;

    842. 

  842.     property ConnectedDomain: TBStr read get_ConnectedDomain;

    843. 

  843.     property HighestVersion: LongWord read get_HighestVersion;

    844. 

  844.   end;

    845. 

  845. 

    846. 

  846. implementation

    847. 

  847. 

    848. 

  848. end.

    849. 

  849.