summaryrefslogtreecommitdiff
path: root/plugins/Actman/actman.dpr
diff options
context:
space:
mode:
authorVadim Dashevskiy <watcherhd@gmail.com>2014-12-19 20:02:47 +0000
committerVadim Dashevskiy <watcherhd@gmail.com>2014-12-19 20:02:47 +0000
commitf2cce78db24a0f0a53b8ca41ff112968a5f2d86b (patch)
tree5dce24a102dc4117ab993e201811948927842e47 /plugins/Actman/actman.dpr
parenta1ff366b1634ed741bdc764489f9e715f90900f5 (diff)
Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version)
git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Actman/actman.dpr')
-rw-r--r--plugins/Actman/actman.dpr197
1 files changed, 0 insertions, 197 deletions
diff --git a/plugins/Actman/actman.dpr b/plugins/Actman/actman.dpr
deleted file mode 100644
index e2a67414f5..0000000000
--- a/plugins/Actman/actman.dpr
+++ /dev/null
@@ -1,197 +0,0 @@
-{$include compilers.inc}
-{$IFDEF COMPILER_16_UP}
- {$WEAKLINKRTTI ON}
- {.$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
-{$ENDIF}
-{$IMAGEBASE $13200000}
-library actman;
-{%ToDo 'actman.todo'}
-{%File 'i_actlow.inc'}
-{%File 'm_actions.inc'}
-{%File 'm_actman.inc'}
-{%File 'i_action.inc'}
-{%File 'i_const.inc'}
-{%File 'i_contact.inc'}
-{%File 'i_opt_dlg2.inc'}
-{%File 'i_opt_dlg.inc'}
-{%File 'i_visual.inc'}
-{%File 'i_options.inc'}
-{%File 'i_services.inc'}
-{%File 'i_vars.inc'}
-{%File 'i_inoutxm.inc'}
-{%File 'tasks\i_opt_dlg.inc'}
-{%File 'tasks\i_options.inc'}
-{%File 'tasks\i_task.inc'}
-{%File 'hooks\i_options.inc'}
-{%File 'hooks\i_hook.inc'}
-{%File 'hooks\i_opt_dlg.inc'}
-{%File 'ua\i_opt_dlg.inc'}
-{%File 'ua\i_inoutxm.inc'}
-{%File 'ua\i_options.inc'}
-{%File 'ua\i_ua.inc'}
-{%File 'ua\i_uaplaces.inc'}
-{%File 'ua\i_uconst.inc'}
-
-uses
- m_api,
- Windows,
- messages,
- commctrl,
- common,
- wrapper,
- io,
- dbsettings,
- mirutils,
- syswin,
- question,
- mApiCardM,
- mircontacts,
- global,
- sedit,
- strans,
- ua in 'ua\ua.pas',
- hooks in 'hooks\hooks.pas',
- scheduler in 'tasks\scheduler.pas';
-
-{$r options.res}
-
-const
- PluginName = 'Action Manager';
-var
- hHookShutdown,
- onloadhook,
- opthook:cardinal;
- hevaction,hHookChanged,hevinout:cardinal;
- hsel,hinout,hfree,hget,hrun,hrung,hrunp:cardinal;
-
-{$include m_actions.inc}
-{$include m_actman.inc}
-
-
-function MirandaPluginInfoEx(mirandaVersion:DWORD):PPLUGININFOEX; cdecl;
-begin
- result:=@PluginInfo;
- PluginInfo.cbSize :=SizeOf(TPLUGININFOEX);
- PluginInfo.shortName :='Action manager';
- PluginInfo.version :=$00020001;
- PluginInfo.description:='Plugin for manage hotkeys to open contact window, insert text, '+
- 'run program and call services';
- PluginInfo.author :='Awkward';
- PluginInfo.authorEmail:='panda75@bk.ru; awk1975@ya.ru';
- PluginInfo.copyright :='(c) 2007-2012 Awkward';
- PluginInfo.homepage :='http://code.google.com/p/delphi-miranda-plugins/';
- PluginInfo.flags :=UNICODE_AWARE;
- PluginInfo.uuid :=MIID_ACTMAN;
-end;
-
-{$include i_const.inc}
-{$include i_vars.inc}
-
-{$include i_action.inc}
-{$include i_actlow.inc}
-{$include i_options.inc}
-{$include i_contact.inc}
-{$include i_opt_dlg.inc}
-{$include i_inoutxm.inc}
-{$include i_services.inc}
-
-function PreShutdown(wParam:WPARAM;lParam:LPARAM):int;cdecl;
-var
- ptr:pActionLink;
-begin
- result:=0;
-
- ptr:=ActionLink;
- while ptr<>nil do
- begin
- if @ptr^.DeInit<>nil then
- ptr^.DeInit;
- ptr:=ptr^.Next;
- end;
-
- FreeGroups;
-
- UnhookEvent(hHookShutdown);
- UnhookEvent(opthook);
-
- DestroyHookableEvent(hHookChanged);
- DestroyHookableEvent(hevinout);
- DestroyHookableEvent(hevaction);
-
- DestroyServiceFunction(hfree);
- DestroyServiceFunction(hget);
- DestroyServiceFunction(hrun);
- DestroyServiceFunction(hrung);
- DestroyServiceFunction(hrunp);
- DestroyServiceFunction(hinout);
- DestroyServiceFunction(hsel);
-end;
-
-// This function implements autostart action execution after all others plugins loading
-function DoAutostart(wParam:WPARAM;lParam:LPARAM):int;cdecl;
-begin
- Result:=0;
- UnhookEvent(onloadhook);
-
- CallService(MS_ACT_RUNBYNAME,TWPARAM(AutoStartName),0);
-end;
-
-function OnModulesLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
-var
- ptr:pActionLink;
-begin
- Result:=0;
- UnhookEvent(onloadhook);
-
- LoadGroups;
- RegisterIcons;
-
- opthook :=HookEvent(ME_OPT_INITIALISE ,@OnOptInitialise);
- hHookShutdown:=HookEvent(ME_SYSTEM_SHUTDOWN{ME_SYSTEM_OKTOEXIT},@PreShutdown);
- NotifyEventHooks(hHookChanged,twparam(ACTM_LOADED),0);
-
- IsMultiThread:=true;
- // Load additional modules
- ptr:=ActionLink;
- while ptr<>nil do
- begin
- if @ptr^.Init<>nil then
- ptr^.Init;
- ptr:=ptr^.Next;
- end;
-
- onloadhook:=HookEvent(ME_SYSTEM_MODULESLOADED,@DoAutostart);
-end;
-
-function Load():int; cdecl;
-begin
- Result:=0;
- Langpack_register;
-
- hHookChanged:=CreateHookableEvent(ME_ACT_CHANGED);
- hevinout :=CreateHookableEvent(ME_ACT_INOUT);
- hevaction :=CreateHookableEvent(ME_ACT_ACTION);
-
- hfree :=CreateServiceFunction(MS_ACT_FREELIST ,@ActFreeList);
- hget :=CreateServiceFunction(MS_ACT_GETLIST ,@ActGetList);
- hrun :=CreateServiceFunction(MS_ACT_RUNBYID ,@ActRun);
- hrung :=CreateServiceFunction(MS_ACT_RUNBYNAME,@ActRunGroup);
- hrunp :=CreateServiceFunction(MS_ACT_RUNPARAMS,@ActRunParam);
- hinout:=CreateServiceFunction(MS_ACT_INOUT ,@ActInOut);
- hsel :=CreateServiceFunction(MS_ACT_SELECT ,@ActSelect);
-
- onloadhook:=HookEvent(ME_SYSTEM_MODULESLOADED,@OnModulesLoaded);
-end;
-
-function Unload: int; cdecl;
-begin
- Result:=0;
-end;
-
-exports
- Load, Unload, MirandaPluginInfoEx;
-
-initialization
- DisableThreadLibraryCalls(hInstance);
-
-end.