From 858af271c0175cce3aad327c8092f6bcd69c89b4 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Fri, 12 Apr 2019 16:48:28 +0300 Subject: major crutch for pascal plugins --- include/delphi/m_api.pas | 11 +++++++++-- include/newpluginapi.h | 4 +++- 2 files changed, 12 insertions(+), 3 deletions(-) (limited to 'include') diff --git a/include/delphi/m_api.pas b/include/delphi/m_api.pas index 5500263fca..6237eaaa56 100644 --- a/include/delphi/m_api.pas +++ b/include/delphi/m_api.pas @@ -142,13 +142,19 @@ type type PCMPlugin = ^CMPlugin; - CMPlugin = record + CMPlugin = packed record vft : pointer; // virtual function table + m_hInst : THANDLE; m_szModule : PAnsiChar; m_pInfo : PPLUGININFOEX; m_hLogger : THANDLE; - m_hLang : int; + + blabla1 : pointer; // emulator of icon's list + blabla2 : integer; + blabla3 : integer; + blabla4 : integer; + blabla5 : pointer; end; //----- Fork enchancement ----- @@ -252,6 +258,7 @@ implementation initialization g_plugin.m_hInst := hInstance; g_plugin.m_pInfo := @PluginInfo; + g_plugin.blabla4 := 10; RegisterPlugin(g_plugin); finalization diff --git a/include/newpluginapi.h b/include/newpluginapi.h index 69fa059881..30f7abff60 100644 --- a/include/newpluginapi.h +++ b/include/newpluginapi.h @@ -151,6 +151,8 @@ typedef int(*pfnUninitProto)(PROTO_INTERFACE*); #pragma warning(push) #pragma warning(disable:4275) +struct IcolibItem; + class MIR_APP_EXPORT CMPluginBase : public MNonCopyable { void tryOpenLog(); @@ -160,7 +162,7 @@ protected: const char *m_szModuleName; const PLUGININFOEX &m_pInfo; HANDLE m_hLogger = nullptr; - LIST m_arIcons; + LIST m_arIcons; CMPluginBase(const char *moduleName, const PLUGININFOEX &pInfo); ~CMPluginBase(); -- cgit v1.2.3