1 files changed, 6 insertions, 18 deletions
diff --git a/plugins/Actman/tasks/scheduler.pas b/plugins/Actman/tasks/scheduler.pas
index 05e9cb6a58..1ec1202f26 100644
--- a/plugins/Actman/tasks/scheduler.pas
+++ b/plugins/Actman/tasks/scheduler.pas
@@ -2,21 +2,15 @@ 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,
+  mirutils, common, dbsettings, m_api, wrapper,
   global;
 
 {$R tasks.res}
 
-{$include m_actman.inc}
-
 var
   hevent: THANDLE;
 
@@ -28,11 +22,6 @@ var
 
 // ------------ base interface functions -------------
 
-var
-  hendis,
-  hcount,
-  hdel: THANDLE;
-
 procedure Init;
 begin
 
@@ -45,19 +34,18 @@ begin
   else
     SetAllTasks;
 
-  hcount:=CreateServiceFunction(MS_ACT_TASKCOUNT ,@TaskCount);
-  hendis:=CreateServiceFunction(MS_ACT_TASKENABLE,@TaskEnable);
-  hdel  :=CreateServiceFunction(MS_ACT_TASKDELETE,@TaskDelete);
+  CreateServiceFunction(MS_ACT_TASKCOUNT ,@TaskCount);
+  CreateServiceFunction(MS_ACT_TASKENABLE,@TaskEnable);
+  CreateServiceFunction(MS_ACT_TASKDELETE,@TaskDelete);
+
   hevent:=CreateHookableEvent(ME_ACT_BELL);
 
 end;
 
 procedure DeInit;
 begin
+  DestroyHookableEvent(hevent);
   StopAllTasks;
-  DestroyServiceFunction(hendis);
-  DestroyServiceFunction(hdel);
-  DestroyServiceFunction(hcount);
   ClearTasks;
 end;