summaryrefslogtreecommitdiff
path: root/plugins/!Deprecated/Actman20/tasks/scheduler.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/!Deprecated/Actman20/tasks/scheduler.pas')
-rw-r--r--plugins/!Deprecated/Actman20/tasks/scheduler.pas86
1 files changed, 0 insertions, 86 deletions
diff --git a/plugins/!Deprecated/Actman20/tasks/scheduler.pas b/plugins/!Deprecated/Actman20/tasks/scheduler.pas
deleted file mode 100644
index 05e9cb6a58..0000000000
--- a/plugins/!Deprecated/Actman20/tasks/scheduler.pas
+++ /dev/null
@@ -1,86 +0,0 @@
-unit scheduler;
-
-interface
-
-procedure Init;
-procedure DeInit;
-function AddOptionPage(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;
-
-implementation
-
-uses
- windows, commctrl, messages,
- mirutils, common, dbsettings, io, m_api, wrapper,
- global;
-
-{$R tasks.res}
-
-{$include m_actman.inc}
-
-var
- hevent: THANDLE;
-
-{$include i_task.inc}
-{$include i_tconst.inc}
-{$include i_options.inc}
-{$include i_opt_dlg.inc}
-{$include i_service.inc}
-
-// ------------ base interface functions -------------
-
-var
- hendis,
- hcount,
- hdel: THANDLE;
-
-procedure Init;
-begin
-
- if LoadTasks=0 then
- begin
- MaxTasks:=8;
- GetMem (TaskList ,MaxTasks*SizeOf(tTaskRec));
- FillChar(TaskList^,MaxTasks*SizeOf(tTaskRec),0);
- end
- else
- SetAllTasks;
-
- hcount:=CreateServiceFunction(MS_ACT_TASKCOUNT ,@TaskCount);
- hendis:=CreateServiceFunction(MS_ACT_TASKENABLE,@TaskEnable);
- hdel :=CreateServiceFunction(MS_ACT_TASKDELETE,@TaskDelete);
- hevent:=CreateHookableEvent(ME_ACT_BELL);
-
-end;
-
-procedure DeInit;
-begin
- StopAllTasks;
- DestroyServiceFunction(hendis);
- DestroyServiceFunction(hdel);
- DestroyServiceFunction(hcount);
- ClearTasks;
-end;
-
-function AddOptionPage(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;
-begin
- result:=0;
- tmpl:=PAnsiChar(IDD_TASKS);
- proc:=@DlgProcOpt;
- name:='Scheduler';
-end;
-
-var
- amLink:tActionLink;
-
-procedure InitLink;
-begin
- amLink.Next :=ActionLink;
- amLink.Init :=@Init;
- amLink.DeInit :=@DeInit;
- amLink.AddOption:=@AddOptionPage;
- ActionLink :=@amLink;
-end;
-
-initialization
- InitLink;
-end.