diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2012-10-08 18:43:29 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2012-10-08 18:43:29 +0000 |
| commit | 864081102a5f252415f41950b3039a896b4ae9c5 (patch) | |
| tree | c6b764651e9dd1f8f53b98eab05f16ba4a492a79 /plugins/Actman/actman.dpr | |
| parent | db5149b48346c417e18add5702a9dfe7f6e28dd0 (diff) | |
Awkwars's plugins - welcome to our trunk
git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Actman/actman.dpr')
| -rw-r--r-- | plugins/Actman/actman.dpr | 189 |
1 files changed, 189 insertions, 0 deletions
diff --git a/plugins/Actman/actman.dpr b/plugins/Actman/actman.dpr new file mode 100644 index 0000000000..caf0319c6a --- /dev/null +++ b/plugins/Actman/actman.dpr @@ -0,0 +1,189 @@ +{$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,
+ base64,
+ question,
+ mApiCardM,
+ 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;
+
+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);
+
+ //----- DBEDITOR support -----
+// CallService('DBEditorpp/RegisterSingleModule',dword(PluginShort),0);
+
+ IsMultiThread:=true;
+ // Load additional modules
+ ptr:=ActionLink;
+ while ptr<>nil do
+ begin
+ if @ptr^.Init<>nil then
+ ptr^.Init;
+ ptr:=ptr^.Next;
+ end;
+
+ CallService(MS_ACT_RUNBYNAME,TWPARAM(AutoStartName),0);
+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;
+
+end.
|