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

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

Windows编程

开发平台：

Delphi

JwaMsTask.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Microsoft Task Scheduler 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: mstask.h, released August 2001. The original Pascal    }
  9. { code is: MsTask.pas, released October 2001. 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. { Contributor(s): Sunish Issac  (sunish@nettaxi.com)                           }
  16. {                 }
  17. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  18. {                }
  19. { You may retrieve the latest version of this file at the Project JEDI home    }
  20. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  21. { http://members.chello.nl/m.vanbrakel2                                        }
  22. {                }
  23. { The contents of this file are used with permission, subject to the Mozilla   }
  24. { Public License Version 1.1 (the "License"); you may not use this file except }
  25. { in compliance with the License. You may obtain a copy of the License at      }
  26. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  27. {                                                                              }
  28. { Software distributed under the License is distributed on an "AS IS" basis,   }
  29. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  30. { the specific language governing rights and limitations under the License.    }
  31. {                                                                              }
  32. { Alternatively, the contents of this file may be used under the terms of the  }
  33. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  34. { provisions of the LGPL License are applicable instead of those above.        }
  35. { If you wish to allow use of your version of this file only under the terms   }
  36. { of the LGPL License and not to allow others to use your version of this file }
  37. { under the MPL, indicate your decision by deleting  the provisions above and  }
  38. { replace  them with the notice and other provisions required by the LGPL      }
  39. { License.  If you do not delete the provisions above, a recipient may use     }
  40. { your version of this file under either the MPL or the LGPL License.          }
  41. {                 }
  42. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  43. {                 }
  44. {******************************************************************************}
  46. unit JwaMsTask;
  48. {$WEAKPACKAGEUNIT}
  50. {$HPPEMIT ''}
  51. {$HPPEMIT '#include "mstask.h"'}
  52. {$HPPEMIT ''}
  54. {$I WINDEFINES.INC}
  56. interface
  58. uses
  59.   JwaWinBase, JwaWinType, CommCtrl {TODO};
  61. const
  62.   TASK_SUNDAY = ($1);
  63.   {$EXTERNALSYM TASK_SUNDAY}
  64.   TASK_MONDAY = ($2);
  65.   {$EXTERNALSYM TASK_MONDAY}
  66.   TASK_TUESDAY = ($4);
  67.   {$EXTERNALSYM TASK_TUESDAY}
  68.   TASK_WEDNESDAY = ($8);
  69.   {$EXTERNALSYM TASK_WEDNESDAY}
  70.   TASK_THURSDAY = ($10);
  71.   {$EXTERNALSYM TASK_THURSDAY}
  72.   TASK_FRIDAY = ($20);
  73.   {$EXTERNALSYM TASK_FRIDAY}
  74.   TASK_SATURDAY = ($40);
  75.   {$EXTERNALSYM TASK_SATURDAY}
  76.   TASK_FIRST_WEEK = (1);
  77.   {$EXTERNALSYM TASK_FIRST_WEEK}
  78.   TASK_SECOND_WEEK = (2);
  79.   {$EXTERNALSYM TASK_SECOND_WEEK}
  80.   TASK_THIRD_WEEK = (3);
  81.   {$EXTERNALSYM TASK_THIRD_WEEK}
  82.   TASK_FOURTH_WEEK = (4);
  83.   {$EXTERNALSYM TASK_FOURTH_WEEK}
  84.   TASK_LAST_WEEK = (5);
  85.   {$EXTERNALSYM TASK_LAST_WEEK}
  86.   TASK_JANUARY = ($1);
  87.   {$EXTERNALSYM TASK_JANUARY}
  88.   TASK_FEBRUARY = ($2);
  89.   {$EXTERNALSYM TASK_FEBRUARY}
  90.   TASK_MARCH = ($4);
  91.   {$EXTERNALSYM TASK_MARCH}
  92.   TASK_APRIL = ($8);
  93.   {$EXTERNALSYM TASK_APRIL}
  94.   TASK_MAY = ($10);
  95.   {$EXTERNALSYM TASK_MAY}
  96.   TASK_JUNE = ($20);
  97.   {$EXTERNALSYM TASK_JUNE}
  98.   TASK_JULY = ($40);
  99.   {$EXTERNALSYM TASK_JULY}
  100.   TASK_AUGUST = ($80);
  101.   {$EXTERNALSYM TASK_AUGUST}
  102.   TASK_SEPTEMBER = ($100);
  103.   {$EXTERNALSYM TASK_SEPTEMBER}
  104.   TASK_OCTOBER = ($200);
  105.   {$EXTERNALSYM TASK_OCTOBER}
  106.   TASK_NOVEMBER = ($400);
  107.   {$EXTERNALSYM TASK_NOVEMBER}
  108.   TASK_DECEMBER = ($800);
  109.   {$EXTERNALSYM TASK_DECEMBER}
  111.   TASK_FLAG_INTERACTIVE = ($1);
  112.   {$EXTERNALSYM TASK_FLAG_INTERACTIVE}
  113.   TASK_FLAG_DELETE_WHEN_DONE = ($2);
  114.   {$EXTERNALSYM TASK_FLAG_DELETE_WHEN_DONE}
  115.   TASK_FLAG_DISABLED = ($4);
  116.   {$EXTERNALSYM TASK_FLAG_DISABLED}
  117.   TASK_FLAG_START_ONLY_IF_IDLE = ($10);
  118.   {$EXTERNALSYM TASK_FLAG_START_ONLY_IF_IDLE}
  119.   TASK_FLAG_KILL_ON_IDLE_END = ($20);
  120.   {$EXTERNALSYM TASK_FLAG_KILL_ON_IDLE_END}
  121.   TASK_FLAG_DONT_START_IF_ON_BATTERIES = ($40);
  122.   {$EXTERNALSYM TASK_FLAG_DONT_START_IF_ON_BATTERIES}
  123.   TASK_FLAG_KILL_IF_GOING_ON_BATTERIES = ($80);
  124.   {$EXTERNALSYM TASK_FLAG_KILL_IF_GOING_ON_BATTERIES}
  125.   TASK_FLAG_RUN_ONLY_IF_DOCKED = ($100);
  126.   {$EXTERNALSYM TASK_FLAG_RUN_ONLY_IF_DOCKED}
  127.   TASK_FLAG_HIDDEN = ($200);
  128.   {$EXTERNALSYM TASK_FLAG_HIDDEN}
  129.   TASK_FLAG_RUN_IF_CONNECTED_TO_INTERNET = ($400);
  130.   {$EXTERNALSYM TASK_FLAG_RUN_IF_CONNECTED_TO_INTERNET}
  131.   TASK_FLAG_RESTART_ON_IDLE_RESUME = ($800);
  132.   {$EXTERNALSYM TASK_FLAG_RESTART_ON_IDLE_RESUME}
  133.   TASK_FLAG_SYSTEM_REQUIRED = ($1000);
  134.   {$EXTERNALSYM TASK_FLAG_SYSTEM_REQUIRED}
  135.   TASK_FLAG_RUN_ONLY_IF_LOGGED_ON = ($2000);
  136.   {$EXTERNALSYM TASK_FLAG_RUN_ONLY_IF_LOGGED_ON}
  138.   TASK_TRIGGER_FLAG_HAS_END_DATE = ($1);
  139.   {$EXTERNALSYM TASK_TRIGGER_FLAG_HAS_END_DATE}
  140.   TASK_TRIGGER_FLAG_KILL_AT_DURATION_END = ($2);
  141.   {$EXTERNALSYM TASK_TRIGGER_FLAG_KILL_AT_DURATION_END}
  142.   TASK_TRIGGER_FLAG_DISABLED = ($4);
  143.   {$EXTERNALSYM TASK_TRIGGER_FLAG_DISABLED}
  145.   TASK_MAX_RUN_TIMES = (1440);
  146.   {$EXTERNALSYM TASK_MAX_RUN_TIMES}
  148. type
  149.   PTaskTriggerType = ^TTaskTriggerType;
  150.   _TASK_TRIGGER_TYPE = (
  151.     TASK_TIME_TRIGGER_ONCE,
  152.     TASK_TIME_TRIGGER_DAILY,
  153.     TASK_TIME_TRIGGER_WEEKLY,
  154.     TASK_TIME_TRIGGER_MONTHLYDATE,
  155.     TASK_TIME_TRIGGER_MONTHLYDOW,
  156.     TASK_EVENT_TRIGGER_ON_IDLE,
  157.     TASK_EVENT_TRIGGER_AT_SYSTEMSTART,
  158.     TASK_EVENT_TRIGGER_AT_LOGON);
  159.   TASK_TRIGGER_TYPE = _TASK_TRIGGER_TYPE;
  160.   {$EXTERNALSYM TASK_TRIGGER_TYPE}
  161.   {$EXTERNALSYM _TASK_TRIGGER_TYPE}
  162.   PTASK_TRIGGER_TYPE = ^_TASK_TRIGGER_TYPE;
  163.   {$EXTERNALSYM PTASK_TRIGGER_TYPE}
  164.   TTaskTriggerType = _TASK_TRIGGER_TYPE;
  166.   PDaily = ^TDaily;
  167.   _DAILY = record
  168.     DaysInterval: WORD;
  169.   end;
  170.   {$EXTERNALSYM _DAILY}
  171.   TDaily = _DAILY;
  173.   PWeekly = ^TWeekly;
  174.   _WEEKLY = record
  175.     WeeksInterval: WORD;
  176.     rgfDaysOfTheWeek: WORD;
  177.   end;
  178.   {$EXTERNALSYM _WEEKLY}
  179.   TWeekly = _WEEKLY;
  181.   PMonthlyDate = ^TMonthlyDate;
  182.   _MONTHLYDATE = record
  183.     rgfDays: DWORD;
  184.     rgfMonths: WORD;
  185.   end;
  186.   {$EXTERNALSYM _MONTHLYDATE}
  187.   TMonthlyDate = _MONTHLYDATE;
  189.   PMonthlyDow = ^TMonthlyDow;
  190.   _MONTHLYDOW = record
  191.     wWhichWeek: WORD;
  192.     rgfDaysOfTheWeek: WORD;
  193.     rgfMonths: WORD;
  194.   end;
  195.   {$EXTERNALSYM _MONTHLYDOW}
  196.   TMonthlyDow = _MONTHLYDOW;
  198.   PTriggerTypeUnion = ^TTriggerTypeUnion;
  199.   _TRIGGER_TYPE_UNION = record
  200.     case Integer of
  201.       0: (Daily: TDaily);
  202.       1: (Weekly: TWeekly);
  203.       2: (MonthlyDate: TMonthlyDate);
  204.       3: (MonthlyDOW: TMonthlyDow);
  205.   end;
  206.   {$EXTERNALSYM _TRIGGER_TYPE_UNION}
  207.   TRIGGER_TYPE_UNION = _TRIGGER_TYPE_UNION;
  208.   {$EXTERNALSYM TRIGGER_TYPE_UNION}
  209.   TTriggerTypeUnion = _TRIGGER_TYPE_UNION;
  211.   PTaskTrigger = ^TTaskTrigger;
  212.   _TASK_TRIGGER = record
  213.     cbTriggerSize: WORD;
  214.     Reserved1: WORD;
  215.     wBeginYear: WORD;
  216.     wBeginMonth: WORD;
  217.     wBeginDay: WORD;
  218.     wEndYear: WORD;
  219.     wEndMonth: WORD;
  220.     wEndDay: WORD;
  221.     wStartHour: WORD;
  222.     wStartMinute: WORD;
  223.     MinutesDuration: DWORD;
  224.     MinutesInterval: DWORD;
  225.     rgFlags: DWORD;
  226.     TriggerType: TTaskTriggerType;
  227.     Type_: TTriggerTypeUnion;
  228.     Reserved2: WORD;
  229.     wRandomMinutesInterval: WORD;
  230.   end;
  231.   {$EXTERNALSYM _TASK_TRIGGER}
  232.   TASK_TRIGGER = _TASK_TRIGGER;
  233.   {$EXTERNALSYM TASK_TRIGGER}
  234.   PTASK_TRIGGER = ^TASK_TRIGGER;
  235.   {$EXTERNALSYM PTASK_TRIGGER}
  236.   TTaskTrigger = _TASK_TRIGGER;
  238. const
  239.   IID_ITaskTrigger: TGUID = '{148BD52B-A2AB-11CE-B11F-00AA00530503}';
  240.   {$EXTERNALSYM IID_ITaskTrigger}
  242. // interface ITaskTrigger
  244. type
  245.   ITaskTrigger = interface (IUnknown)
  246.     ['{148BD52B-A2AB-11CE-B11F-00AA00530503}']
  247.     function SetTrigger(const pTrigger: PTaskTrigger): HRESULT; stdcall;
  248.     function GetTrigger(pTrigger: PTaskTrigger): HRESULT; stdcall;
  249.     function GetTriggerString(var ppwszTrigger: LPWSTR): HRESULT; stdcall;
  250.   end;
  251.   {$EXTERNALSYM ITaskTrigger}
  253. const
  254.   IID_IScheduledWorkItem: TGUID = '{A6B952F0-A4B1-11D0-997D-00AA006887EC}';
  255.   {$EXTERNALSYM IID_IScheduledWorkItem}
  257. // interface IScheduledWorkItem
  259. type
  260.   IScheduledWorkItem = interface (IUnknown)
  261.     ['{A6B952F0-A4B1-11D0-997D-00AA006887EC}']
  262.     function CreateTrigger(out piNewTrigger: Word; out ppTrigger: ITaskTrigger): HRESULT; stdcall;
  263.     function DeleteTrigger(iTrigger: Word): HRESULT; stdcall;
  264.     function GetTriggerCount(out pwCount: Word): HRESULT; stdcall;
  265.     function GetTrigger(iTrigger: Word; var ppTrigger: ITaskTrigger): HRESULT; stdcall;
  266.     function GetTriggerString(iTrigger: Word; out ppwszTrigger: PWideChar): HRESULT; stdcall;
  267.     function GetRunTimes(const pstBegin: LPSYSTEMTIME; const pstEnd: LPSYSTEMTIME;
  268.       var pCount: Word; out rgstTaskTimes: LPSYSTEMTIME): HRESULT; stdcall;
  269.     function GetNextRunTime(var pstNextRun: SYSTEMTIME): HRESULT; stdcall;
  270.     function SetIdleWait(wIdleMinutes: Word; wDeadlineMinutes: Word): HRESULT; stdcall;
  271.     function GetIdleWait(out pwIdleMinutes: Word; out pwDeadlineMinutes: Word): HRESULT; stdcall;
  272.     function Run: HRESULT; stdcall;
  273.     function Terminate: HRESULT; stdcall;
  274.     function EditWorkItem(hParent: HWND; dwReserved: DWORD): HRESULT; stdcall;
  275.     function GetMostRecentRunTime(out pstLastRun: TSystemTime): HRESULT; stdcall;
  276.     function GetStatus(out phrStatus: HRESULT): HRESULT stdcall;
  277.     function GetExitCode(out pdwExitCode: DWORD): HRESULT stdcall;
  278.     function SetComment(pwszComment: LPCWSTR): HRESULT stdcall;
  279.     function GetComment(out ppwszComment: LPWSTR): HRESULT stdcall;
  280.     function SetCreator(pwszCreator: LPCWSTR): HRESULT; stdcall;
  281.     function GetCreator(out ppwszCreator: LPWSTR): HRESULT; stdcall;
  282.     function SetWorkItemData(cbData: Word; var rgbData: Byte): HRESULT; stdcall;
  283.     function GetWorkItemData(out pcbData: Word; out prgbData: Byte): HRESULT; stdcall;
  284.     function SetErrorRetryCount(wRetryCount: Word): HRESULT; stdcall;
  285.     function GetErrorRetryCount(out pwRetryCount: Word): HRESULT; stdcall;
  286.     function SetErrorRetryInterval(wRetryInterval: Word): HRESULT; stdcall;
  287.     function GetErrorRetryInterval(out pwRetryInterval: Word): HRESULT; stdcall;
  288.     function SetFlags(dwFlags: DWORD): HRESULT; stdcall;
  289.     function GetFlags(out pdwFlags: DWORD): HRESULT; stdcall;
  290.     function SetAccountInformation(pwszAccountName: LPCWSTR; pwszPassword: LPCWSTR): HRESULT; stdcall;
  291.     function GetAccountInformation(out ppwszAccountName: LPWSTR): HRESULT; stdcall;
  292.   end;
  293.   {$EXTERNALSYM IScheduledWorkItem}
  295. const
  296.   IID_ITask: TGUID = '{148BD524-A2AB-11CE-B11F-00AA00530503}';
  297.   {$EXTERNALSYM IID_ITask}
  299. // interface ITask
  301. type
  302.   ITask = interface (IScheduledWorkItem)
  303.     ['{148BD524-A2AB-11CE-B11F-00AA00530503}']
  304.     function SetApplicationName(pwszApplicationName: LPCWSTR): HRESULT; stdcall;
  305.     function GetApplicationName(out ppwszApplicationName: LPWSTR): HRESULT; stdcall;
  306.     function SetParameters(pwszParameters: LPCWSTR): HRESULT; stdcall;
  307.     function GetParameters(out ppwszParameters: LPWSTR): HRESULT; stdcall;
  308.     function SetWorkingDirectory(pwszWorkingDirectory: LPCWSTR): HRESULT; stdcall;
  309.     function GetWorkingDirectory(out ppwszWorkingDirectory: LPWSTR): HRESULT; stdcall;
  310.     function SetPriority(dwPriority: DWORD): HRESULT; stdcall;
  311.     function GetPriority(out pdwPriority: DWORD): HRESULT; stdcall;
  312.     function SetTaskFlags(dwFlags: DWORD): HRESULT; stdcall;
  313.     function GetTaskFlags(out pdwFlags: DWORD): HRESULT; stdcall;
  314.     function SetMaxRunTime(dwMaxRunTimeMS: DWORD): HRESULT; stdcall;
  315.     function GetMaxRunTime(out pdwMaxRunTimeMS: DWORD): HRESULT; stdcall;
  316.   end;
  317.   {$EXTERNALSYM ITask}
  319. const
  320.   IID_IEnumWorkItems: TGUID = '{148BD528-A2AB-11CE-B11F-00AA00530503}';
  321.   {$EXTERNALSYM IID_IEnumWorkItems}
  323. // interface IEnumWorkItems
  325. type
  326.   IEnumWorkItems = interface (IUnknown)
  327.     ['{148BD528-A2AB-11CE-B11F-00AA00530503}']
  328.     function Next(celt: ULONG; out rgpwszNames: LPLPWSTR; out pceltFetched: ULONG): HRESULT; stdcall;
  329.     function Skip(celt: ULONG): HRESULT; stdcall;
  330.     function Reset: HRESULT; stdcall;
  331.     function Clone(out ppEnumWorkItems: IEnumWorkItems): HRESULT; stdcall;
  332.   end;
  333.   {$EXTERNALSYM IEnumWorkItems}
  335. const
  336.   IID_ITaskScheduler: TGUID = '{148BD527-A2AB-11CE-B11F-00AA00530503}';
  337.   {$EXTERNALSYM IID_ITaskScheduler}
  339. // interface ITaskScheduler
  341. type
  342.   ITaskScheduler = interface (IUnknown)
  343.     ['{148BD527-A2AB-11CE-B11F-00AA00530503}']
  344.     function SetTargetComputer(pwszComputer: LPCWSTR): HRESULT; stdcall;
  345.     function GetTargetComputer(out ppwszComputer: LPWSTR): HRESULT; stdcall;
  346.     function Enum(out ppEnumWorkItems: IEnumWorkItems): HRESULT; stdcall;
  347.     function Activate(pwszName: PWideChar; var riid: TGUID; out ppUnk: IUnknown): HRESULT; stdcall;
  348.     function Delete(pwszName: LPCWSTR): HRESULT; stdcall;
  349.     function NewWorkItem(pwszTaskName: PWideChar; var rclsid: TGUID; var riid: TGUID; out ppUnk: IUnknown): HRESULT; stdcall;
  350.     function AddWorkItem(pwszTaskName: LPCWSTR; var pWorkItem: IScheduledWorkItem): HRESULT; stdcall;
  351.     function IsOfType(pwszName: LPCWSTR; var riid: TGUID): HRESULT; stdcall;
  352.   end;
  353.   {$EXTERNALSYM ITaskScheduler}
  355. const
  356.   CLSID_CTask: TGuid = '{148BD520-A2AB-11CE-B11F-00AA00530503}';
  357.   {$EXTERNALSYM CLSID_CTask}
  359.   CLSID_CTaskScheduler: TGuid = '{148BD52A-A2AB-11CE-B11F-00AA00530503}';
  360.   {$EXTERNALSYM CLSID_CTaskScheduler}
  362. type
  363.   PTaskPage = ^TTaskPage;
  364.   _TASKPAGE = (
  365.     TASKPAGE_TASK,
  366.     TASKPAGE_SCHEDULE,
  367.     TASKPAGE_SETTINGS);
  368.   {$EXTERNALSYM _TASKPAGE}
  369.   TASKPAGE = _TASKPAGE;
  370.   {$EXTERNALSYM TASKPAGE}
  371.   TTaskPage = _TASKPAGE;
  373. const
  374.   IID_IProvideTaskPage: TGuid = '{4086658a-cbbb-11cf-b604-00c04fd8d565}';
  375.   {$EXTERNALSYM IID_IProvideTaskPage}
  377. // interface IProvideTaskPage
  379. type
  380.   IProvideTaskPage = interface (IUnknown)
  381.     ['{4086658A-CBBB-11CF-B604-00C04FD8D565}']
  382.     function GetPage(tpType: TTaskPage; fPersistChanges: BOOL; var phPage: HPropSheetPage): HRESULT; stdcall;
  383.   end;
  384.   {$EXTERNALSYM IProvideTaskPage}
  386. const
  387.   ISchedulingAgent = ITaskScheduler;
  388.   {$EXTERNALSYM ISchedulingAgent}
  389.   IEnumTasks = IEnumWorkItems;
  390.   {$EXTERNALSYM IEnumTasks}
  391.   //IID_ISchedulingAgent   = IID_ITaskScheduler;
  392.   IID_ISchedulingAgent: TGUID = '{148BD527-A2AB-11CE-B11F-00AA00530503}';
  393.   {$EXTERNALSYM IID_ISchedulingAgent}
  394.   //CLSID_CSchedulingAgent = CLSID_CTaskScheduler;
  395.   CLSID_CSchedulingAgent: TGuid = '{148BD52A-A2AB-11CE-B11F-00AA00530503}';
  396.   {$EXTERNALSYM CLSID_CSchedulingAgent}
  399. //added to use save option without ole2 - not there in original source of mstask.h
  401.   {$EXTERNALSYM IID_IPersistFile}
  402.   IID_IPersistFile: TGUID = (
  403.     D1: $0000010B; D2: $0000; D3: $0000; D4: ($C0, $00, $00, $00, $00, $00, $00, $46));
  405. implementation
  407. end.