diff options
Diffstat (limited to 'plugins/MirandaNGHistoryToDB/MirandaNGHistoryToDB.dpr')
| -rw-r--r-- | plugins/MirandaNGHistoryToDB/MirandaNGHistoryToDB.dpr | 935 |
1 files changed, 935 insertions, 0 deletions
diff --git a/plugins/MirandaNGHistoryToDB/MirandaNGHistoryToDB.dpr b/plugins/MirandaNGHistoryToDB/MirandaNGHistoryToDB.dpr new file mode 100644 index 0000000000..3f59234df9 --- /dev/null +++ b/plugins/MirandaNGHistoryToDB/MirandaNGHistoryToDB.dpr @@ -0,0 +1,935 @@ +{ ############################################################################ }
+{ # # }
+{ # MirandaNG HistoryToDB Plugin v2.5 # }
+{ # # }
+{ # License: GPLv3 # }
+{ # # }
+{ # Author: Grigorev Michael (icq: 161867489, email: sleuthhound@gmail.com) # }
+{ # # }
+{ ############################################################################ }
+
+library MirandaNGHistoryToDB;
+
+{$I Global.inc}
+
+uses
+ madExcept,
+ madLinkDisAsm,
+ madListHardware,
+ madListProcesses,
+ madListModules,
+ m_api,
+ Windows,
+ SysUtils,
+ XMLIntf,
+ XMLDoc,
+ ShellApi,
+ WideStrUtils,
+ JclStringConversions,
+ Contacts in 'Contacts.pas',
+ Database in 'Database.pas',
+ Menu in 'Menu.pas',
+ About in 'About.pas',
+ MsgExport in 'MsgExport.pas' {ExportForm},
+ Global in 'Global.pas',
+ FSMonitor in 'FSMonitor.pas',
+ MapStream in 'MapStream.pas';
+
+// use it to make plugin unicode-aware
+{$DEFINE UNICODE}
+
+// tell Miranda about this plugin ExVersion
+function MirandaPluginInfoEx(mirandaVersion:DWORD): PPLUGININFOEX; cdecl;
+begin
+ PluginInfo.cbSize:= SizeOf(TPLUGININFOEX);
+ PluginInfo.shortName:= htdPluginShortName;
+ PluginInfo.version:= htdVersion;
+ PluginInfo.description:= htdDescription_EN;
+ PluginInfo.author:= htdAuthor_EN;
+ PluginInfo.authorEmail:= htdAuthorEmail;
+ PluginInfo.copyright:= htdCopyright_EN;
+ PluginInfo.homepage:= htdHomePageURL;
+ PluginInfo.flags:= UNICODE_AWARE;
+ PluginInfo.uuid:= MIID_HISTORYTODBDLL;
+ Result := @PluginInfo;
+end;
+
+var
+ {$ifdef REPLDEFHISTMOD}
+ PluginInterfaces: array[0..1] of TGUID;
+ {$else}
+ PluginInterfaces: array[0..0] of TGUID;
+ {$endif REPLDEFHISTMOD}
+
+ PluginStatus: Boolean = False;
+ StartExport: Boolean = False;
+ StartUpdate: Boolean = False;
+ DefaultINICopy: Boolean = False;
+
+ HookModulesLoad,
+ HookBuildMenu,
+ HookContactMenu,
+ HookSystemHistoryMenu,
+ {$ifdef REPLDEFHISTMOD}
+ HookShowMainHistory,
+ {$endif REPLDEFHISTMOD}
+ HookEventAdded,
+ //HookTTBLoaded,
+ HookShowHistoryAPI,
+ HookShowContactHistoryAPI,
+ HookShowVersionAPI: THandle;
+ //hTTBButton: THandle = 0;
+ DialogMainWindow: HWND = 0;
+
+const
+ hLangpack: THANDLE = 0;
+
+function OnModulesLoad(awParam:WPARAM; alParam:LPARAM): Integer; cdecl; forward;
+function OnBuildContactMenu(awParam: WPARAM; alParam: LPARAM): Integer; cdecl; forward;
+function OnEventAdded(wParam: WPARAM; lParam: LPARAM): Integer; cdecl; forward;
+//function OnTTBLoaded(awParam: WPARAM; alParam: LPARAM): Integer; cdecl; forward;
+function OpenHistoryWindow(wParam:WPARAM;lParam:LPARAM): Integer; cdecl; forward;
+
+// tell Miranda about supported interfaces
+function MirandaPluginInterfaces:PMUUID; cdecl;
+begin
+ {$ifdef REPLDEFHISTMOD}
+ PluginInterfaces[0]:=MIID_UIHISTORY;
+ PluginInterfaces[1]:=MIID_LAST;
+ {$else}
+ PluginInterfaces[0]:=MIID_LAST;
+ {$endif REPLDEFHISTMOD}
+ Result := @PluginInterfaces;
+end;
+
+{ Показываем историю контакта }
+function OpenHistoryWindow(wParam: WPARAM; lParam: LPARAM): Integer; cdecl;
+var
+ ContactProto, ContactID, ContactName: AnsiString;
+ MyContactName, MyContactID: AnsiString;
+ ProtoType: Integer;
+ WinName: String;
+begin
+ Result := 0;
+ ContactProto := GetContactProto(wParam);
+ ContactID := GetContactID(wParam, ContactProto);
+ ContactName := GetContactDisplayName(wParam, '', True);
+ MyContactName := GetMyContactDisplayName(ContactProto);
+ MyContactID := GetMyContactID(ContactProto);
+ if ContactID = '' then
+ ContactID := TranslateW('Unknown Contact');
+ if ContactName = '' then
+ ContactName := TranslateW('Unknown Contact');
+ if MyContactID = '' then
+ MyContactID := TranslateW('Unknown Contact');
+ if MyContactName = '' then
+ MyContactName := TranslateW('Unknown Contact');
+ // Доп. проверка протокола
+ if ContactProto = MyAccount then
+ ContactProto := 'ICQ';
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция PluginContactMenuCommand: ' + 'Contact ID: ' + ContactID + ' | Contact Name: ' + ContactName + ' | Proto: ' + ContactProto + ' | My Contact ID: ' + MyContactID + ' | My Contact Name: ' + MyContactName, 2);
+ // Тип истории
+ ProtoType := StrContactProtoToInt(ContactProto);
+ // Показываем последние N сообщений переписки
+ WinName := 'HistoryToDBViewer for ' + htdIMClientName + ' ('+MyAccount+')';
+ if SearchMainWindow(pWideChar(WinName)) then
+ begin
+ // Формат команды:
+ // для истории контакта:
+ // 008|0|UserID|UserName|ProtocolType
+ // для истории чата:
+ // 008|2|ChatName
+ OnSendMessageToOneComponent(WinName, '008|0|'+ContactID+'|'+ContactName+'|'+IntToStr(ProtoType));
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Процедура PluginContactMenuCommand: Отправляем запрос - 008|0|'+ContactID+'|'+ContactName+'|'+IntToStr(ProtoType), 2);
+ end
+ else
+ begin
+ if FileExists(PluginPath + 'HistoryToDBViewer.exe') then
+ begin
+ if MatchStrings(LowerCase(ContactProto), 'skype*') then // Skype
+ begin
+ // Ставим признак типа истории (История чат-сообщений)
+ Glogal_History_Type := 2;
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Процедура PluginContactMenuCommand: Запускаем ' + PluginPath + 'HistoryToDBViewer.exe' + ' "'+PluginPath+'" "'+ProfilePath+'" '+IntToStr(Glogal_History_Type)+' "'+MyContactID+'" "'+MyContactName+'" "'+ContactName+'"', 2);
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBViewer.exe'), PWideChar(' "'+PluginPath+'" "'+ProfilePath+'" '+IntToStr(Glogal_History_Type)+' "'+MyContactID+'" "'+MyContactName+'" "'+ContactName+'"'), nil, SW_SHOWNORMAL);
+ end
+ else
+ begin
+ // Ставим признак типа истории (История IM-сообщений)
+ Glogal_History_Type := 0;
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Процедура PluginContactMenuCommand: Запускаем ' + PluginPath + 'HistoryToDBViewer.exe' + ' "'+PluginPath+'" "'+ProfilePath+'" '+IntToStr(Glogal_History_Type)+' "'+MyContactID+'" "'+MyContactName+'" "'+ContactID+'" "'+ContactName+'" '+IntToStr(ProtoType), 2);
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBViewer.exe'), PWideChar(' "'+PluginPath+'" "'+ProfilePath+'" '+IntToStr(Glogal_History_Type)+' "'+MyContactID+'" "'+MyContactName+'" "'+ContactID+'" "'+ContactName+'" '+IntToStr(ProtoType)), nil, SW_SHOWNORMAL);
+ end;
+ end
+ else
+ MsgInf(htdPluginShortName, Format(GetLangStr('ERR_NO_FOUND_VIEWER'), [PluginPath + 'HistoryToDBViewer.exe']));
+ end;
+end;
+
+{ Построение меню контакта только для определенных протоколов }
+function OnBuildContactMenu(awParam: WPARAM; alParam: LPARAM): Integer; cdecl;
+var
+ MenuItem: TCLISTMENUITEM;
+ ContactProto, ContactID, ContactName: AnsiString;
+begin
+ Result := 0;
+ ContactProto := GetContactProto(awParam);
+ // Меню
+ ZeroMemory(@MenuItem, SizeOf(MenuItem));
+ MenuItem.cbSize := SizeOf(MenuItem);
+ MenuItem.flags := CMIM_FLAGS;
+ if (ContactProto = MyAccount) or
+ MatchStrings(LowerCase(ContactProto), 'icq*') or
+ MatchStrings(LowerCase(ContactProto), 'jabber*') or
+ MatchStrings(LowerCase(ContactProto), 'aim*') or
+ MatchStrings(LowerCase(ContactProto), 'irc*') or
+ MatchStrings(LowerCase(ContactProto), 'msn*') or
+ MatchStrings(LowerCase(ContactProto), 'yahoo*') or
+ MatchStrings(LowerCase(ContactProto), 'gadu*') or
+ MatchStrings(LowerCase(ContactProto), 'skype*') or
+ MatchStrings(LowerCase(ContactProto), 'vkonta*') then
+ begin // Показываем пунк в меню контакта
+ ContactID := GetContactID(awParam, ContactProto);
+ ContactName := GetContactDisplayName(awParam, '', True);
+ if ContactName = '' then
+ ContactName := TranslateW('Unknown Contact');
+ if ContactID = '' then
+ ContactID := TranslateW('Unknown Contact');
+ // Доп. проверка протокола
+ if ContactProto = MyAccount then
+ ContactProto := 'ICQ';
+ MenuItem.flags := MenuItem.flags or CMIM_NAME;
+ MenuItem.szName.a := pAnsiChar(AnsiString(Format(WideStringToString(GetLangStr('ShowContactHistory'), CP_ACP), [ContactName, ContactID])));
+ CallService(MS_CLIST_MODIFYMENUITEM, HookContactMenu, lParam(@MenuItem));
+ if EnableDebug then // Если отладка
+ WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция OnBuildContactMenu: ' + 'Contact ID: ' + ContactID + ' | Contact Name: ' + ContactName + ' | Proto: ' + ContactProto, 2);
+ end
+ else // Или скрываем
+ begin
+ MenuItem.flags := MenuItem.flags or CMIF_HIDDEN;
+ CallService(MS_CLIST_MODIFYMENUITEM, HookContactMenu, lParam(@MenuItem));
+ if EnableDebug then // Если отладка
+ begin
+ ContactID := GetContactID(awParam, ContactProto);
+ ContactName := GetContactDisplayName(awParam, '', True);
+ if ContactName = '' then
+ ContactName := TranslateW('Unknown Contact');
+ if ContactID = '' then
+ ContactID := TranslateW('Unknown Contact');
+ // Доп. проверка протокола
+ if ContactProto = MyAccount then
+ ContactProto := 'ICQ';
+ WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция OnBuildContactMenu: ' + 'Contact ID: ' + ContactID + ' | Contact Name: ' + ContactName + ' | Proto: ' + ContactProto, 2);
+ end;
+ end;
+end;
+
+{ Перехват событий в базе Миранды }
+function OnEventAdded(wParam: WPARAM; lParam: LPARAM): Integer; cdecl;
+var
+ ContactProto, ContactID, ContactName: AnsiString;
+ MyContactName, MyContactID: AnsiString;
+ BlobSize, ProtoType: Integer;
+ DBEventInfo: TDBEventInfo;
+ msgA: PAnsiChar;
+ msgW: PChar;
+ msgLen, LenW: Cardinal;
+ I: Integer;
+ Msg_RcvrNick, Msg_RcvrAcc, Msg_SenderNick, Msg_SenderAcc, Msg_Text, MD5String: WideString;
+ Date_Str, MsgStatus: String;
+ InsertSQLData, EncInsertSQLData, WinName: String;
+ ASize: Integer;
+ hContact: THandle;
+begin
+ Result := 0;
+ ZeroMemory(@DBEventInfo, SizeOf(DBEventInfo));
+ DBEventInfo.cbSize := SizeOf(DBEventInfo);
+ DBEventInfo.pBlob := nil;
+ BlobSize := CallService(MS_DB_EVENT_GETBLOBSIZE, lParam, 0);
+ GetMem(DBEventInfo.pBlob, BlobSize);
+ DBEventInfo.cbBlob := BlobSize;
+ if (CallService(MS_DB_EVENT_GET, lParam, Integer(@DBEventInfo)) = 0) and (DBEventInfo.eventType = EVENTTYPE_MESSAGE and EVENTTYPE_URL) then
+ begin
+ // Получаем текст сообщения
+ msgA := PAnsiChar(DBEventInfo.pBlob);
+ msgW := nil;
+ msgLen := lstrlenA(PAnsiChar(DBEventInfo.pBlob)) + 1;
+ if msgLen > DBEventInfo.cbBlob then
+ msgLen := DBEventInfo.cbBlob;
+ if Boolean(DBEventInfo.flags and DBEF_UTF) then
+ begin
+ SetLength(Msg_Text, msgLen);
+ LenW := Utf8ToWideChar(PChar(Msg_Text), msgLen, msgA, msgLen - 1, CP_ACP);
+ if Integer(LenW) > 0 then
+ SetLength(Msg_Text, LenW - 1)
+ else
+ Msg_Text := AnsiToWideString(msgA, CP_ACP, msgLen - 1);
+ end
+ else
+ begin
+ LenW := 0;
+ if DBEventInfo.cbBlob >= msgLen * SizeOf(Char) then
+ begin
+ msgW := PChar(msgA + msgLen);
+ for i := 0 to ((DBEventInfo.cbBlob - msgLen) div SizeOf(Char)) - 1 do
+ if msgW[i] = #0 then
+ begin
+ LenW := i;
+ Break;
+ end;
+ end;
+ if (LenW > 0) and (LenW < msgLen) then
+ SetString(Msg_Text, msgW, LenW)
+ else
+ Msg_Text := AnsiToWideString(msgA, CP_ACP, msgLen - 1);
+ end;
+ // Тип истории
+ hContact := wParam;
+ ContactProto := GetContactProto(hContact);
+ ProtoType := StrContactProtoToInt(ContactProto);
+ // Если сообщение от метаконтакта, то не пишем его в БД
+ // т.к. оно отправляется итак в БД через нужный протокол
+ if ProtoType = 15 then
+ Exit;
+ // Данные собеседника
+ ContactID := GetContactID(hContact, ContactProto);
+ ContactName := GetContactDisplayName(hContact, '', True);
+ // Мои данные
+ MyContactName := GetMyContactDisplayName(ContactProto);
+ MyContactID := GetMyContactID(ContactProto);
+ // Доп. проверка протокола
+ if ContactProto = MyAccount then
+ ContactProto := 'ICQ';
+ ProtoType := StrContactProtoToInt(ContactProto);
+ // End
+ if ContactID = '' then
+ ContactID := TranslateW('Unknown Contact');
+ if ContactName = '' then
+ ContactName := TranslateW('Unknown Contact');
+ if MyContactID = '' then
+ MyContactID := TranslateW('Unknown Contact');
+ if MyContactName = '' then
+ MyContactName := TranslateW('Unknown Contact');
+ // Корректируем MyContactID и ContactName если приходят и
+ // отправляются сообщения для Метаконтакта
+ {if (ProtoType = 15) and (MyContactID = TranslateW('Unknown Contact')) and (MyContactName <> TranslateW('Unknown Contact')) then
+ MyContactID := MyContactName;
+ if (ProtoType = 15) and (ContactName = TranslateW('Unknown Contact')) and (ContactID <> TranslateW('Unknown Contact')) then
+ ContactName := ContactID;}
+ // Экранирование, перекодирование и т.п.
+ Msg_SenderNick := PrepareString(pWideChar(AnsiToWideString(MyContactName, CP_ACP)));
+ Msg_SenderAcc := PrepareString(pWideChar(AnsiToWideString(MyContactID, CP_ACP)));
+ Msg_SenderNick := WideStringToUTF8(Msg_SenderNick);
+ Msg_SenderAcc := WideStringToUTF8(Msg_SenderAcc);
+ Msg_RcvrNick := PrepareString(pWideChar(AnsiToWideString(ContactName, CP_ACP)));
+ Msg_RcvrAcc := PrepareString(pWideChar(AnsiToWideString(ContactID, CP_ACP)));
+ Msg_RcvrNick := WideStringToUTF8(Msg_RcvrNick);
+ Msg_RcvrAcc := WideStringToUTF8(Msg_RcvrAcc);
+ Msg_Text := WideStringToUTF8(PrepareString(pWideChar(Msg_Text)));
+ MD5String := Msg_RcvrAcc + FormatDateTime('YYYY-MM-DD HH:MM:SS', UnixToLocalTime(DBEventInfo.timestamp)) + Msg_Text;
+ if (DBType = 'oracle') or (DBType = 'oracle-9i') then
+ Date_Str := FormatDateTime('DD.MM.YYYY HH:MM:SS', UnixToLocalTime(DBEventInfo.timestamp))
+ else
+ Date_Str := FormatDateTime('YYYY-MM-DD HH:MM:SS', UnixToLocalTime(DBEventInfo.timestamp));
+ if MatchStrings(LowerCase(ContactProto), 'skype*') then
+ begin
+ // Определяем направление отправки (мы отправили или нам прислали)
+ if (DBEventInfo.flags and DBEF_SENT) = 0 then
+ MsgStatus := '0' // Входящее
+ else
+ MsgStatus := '1'; // Исходящее
+ // Лог отладки
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция OnEventAdded: ' + 'Contact ID: ' + ContactID + ' | Contact Name: ' + ContactName + ' | Proto: ' + ContactProto + ' | My Contact ID: ' + MyContactID + ' | My Contact Name: ' + MyContactName + ' | Contact Proto = ' + ContactProto + ' | MsgStatus = ' + MsgStatus + ' | DateTime = ' + FormatDateTime('DD.MM.YYYY HH:MM:SS', UnixToLocalTime(DBEventInfo.timestamp)) + ' | Message = ' + Msg_Text, 2);
+ if (MatchStrings(DBType, 'oracle*')) then // Если Oracle, то пишем SQL-лог в формате CHAT_MSG_LOG_ORACLE
+ InsertSQLData := Format(CHAT_MSG_LOG_ORACLE, [DBUserName, MsgStatus, 'to_date('''+Date_Str+''', ''dd.mm.yyyy hh24:mi:ss'')', Msg_RcvrNick, 'Skype', Msg_RcvrNick+' ('+Msg_RcvrAcc+')', BoolToIntStr(True), BoolToIntStr(False), BoolToIntStr(False), Msg_Text, EncryptMD5(MD5String)])
+ else
+ InsertSQLData := Format(CHAT_MSG_LOG, [DBUserName, MsgStatus, Date_Str, Msg_RcvrNick, 'Skype', Msg_RcvrNick+' ('+Msg_RcvrAcc+')', BoolToIntStr(True), BoolToIntStr(False), BoolToIntStr(False), Msg_Text, EncryptMD5(MD5String)]);
+ end
+ else
+ begin
+ // Определяем направление отправки (мы отправили или нам прислали)
+ if (DBEventInfo.flags and DBEF_SENT) = 0 then
+ MsgStatus := '1' // Входящее
+ else
+ MsgStatus := '0'; // Исходящее
+ // Лог отладки
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция OnEventAdded: ' + 'Contact ID: ' + ContactID + ' | Contact Name: ' + ContactName + ' | Proto: ' + ContactProto + ' | My Contact ID: ' + MyContactID + ' | My Contact Name: ' + MyContactName + ' | Contact Proto = ' + ContactProto + ' | MsgStatus = ' + MsgStatus + ' | DateTime = ' + FormatDateTime('DD.MM.YYYY HH:MM:SS', UnixToLocalTime(DBEventInfo.timestamp)) + ' | Message = ' + Msg_Text, 2);
+ if (MatchStrings(DBType, 'oracle*')) then // Если Oracle, то пишем SQL-лог в формате MSG_LOG_ORACLE
+ InsertSQLData := Format(MSG_LOG_ORACLE, [DBUserName, IntToStr(ProtoType), Msg_SenderNick, Msg_SenderAcc, Msg_RcvrNick, Msg_RcvrAcc, MsgStatus, 'to_date('''+Date_Str+''', ''dd.mm.yyyy hh24:mi:ss'')', Msg_Text, EncryptMD5(MD5String)])
+ else
+ InsertSQLData := Format(MSG_LOG, [DBUserName, IntToStr(ProtoType), Msg_SenderNick, Msg_SenderAcc, Msg_RcvrNick, Msg_RcvrAcc, MsgStatus, Date_Str, Msg_Text, EncryptMD5(MD5String)]);
+ end;
+ // Посылаем сообщение через MMF для Автоматического режима синхронизации
+ if SyncMethod = 0 then
+ begin
+ WinName := 'HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')';
+ if SearchMainWindow(pWideChar(WinName)) then
+ begin
+ EncInsertSQLData := EncryptStr(InsertSQLData);
+ ASize := 2*Length(EncInsertSQLData);
+ with FMap do
+ begin
+ Clear;
+ WriteBuffer(@ASize,Sizeof(Integer));
+ WriteBuffer(PChar(EncInsertSQLData),ASize);
+ end;
+ // Отправляем сигнал, что сообщение в памяти
+ OnSendMessageToOneComponent('HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')', '010');
+ end
+ else
+ WriteInLog(ProfilePath, InsertSQLData, 0);
+ end
+ else // Для режима синхронизации по расписанию и ручного пишем сообщения в SQL-файл
+ WriteInLog(ProfilePath, InsertSQLData, 0);
+ // Если режим по расписанию
+ if SyncMethod = 2 then
+ begin
+ if (SyncInterval > 4) and (SyncInterval < 8) then
+ begin
+ Inc(MessageCount);
+ if (SyncInterval = 5) and (MessageCount = 10) then
+ begin
+ OnSendMessageToAllComponent('002');
+ MessageCount := 0;
+ end;
+ if (SyncInterval = 6) and (MessageCount = 20) then
+ begin
+ OnSendMessageToAllComponent('002');
+ MessageCount := 0;
+ end;
+ if (SyncInterval = 7) and (MessageCount = 30) then
+ begin
+ OnSendMessageToAllComponent('002');
+ MessageCount := 0;
+ end;
+ end;
+ if SyncInterval = 9 then
+ begin
+ Inc(MessageCount);
+ if MessageCount = SyncMessageCount then
+ begin
+ OnSendMessageToAllComponent('002');
+ MessageCount := 0;
+ end;
+ end;
+ end;
+ end;
+end;
+
+{function OnTTBLoaded(awParam: WPARAM; alParam: LPARAM): Integer; cdecl;
+var
+ TTB: TTBButtonV2;
+begin
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция OnTTBLoaded', 2);
+ if hTTBButton <> 0 then
+ begin
+ if ServiceExists(MS_TTB_REMOVEBUTTON)>0 then
+ begin
+ CallService(MS_TTB_REMOVEBUTTON, WPARAM(hTTBButton),0);
+ hTTBButton := 0;
+ end;
+ end;
+ if ShowPluginButton then
+ begin
+ if ServiceExists(MS_TTB_ADDBUTTON) > 0 then
+ begin
+ ZeroMemory(@TTB, SizeOf(TTB));
+ TTB.cbSize := SizeOf(TTB);
+ TTB.pszServiceUp := MHTD_SHOWSERVICE;
+ TTB.pszServiceDown:= MHTD_SHOWSERVICE;
+ TTB.hIconUp := LoadImage(hInstance, 'ICON_0', IMAGE_ICON, 16, 16, 0);
+ TTB.hIconDn := ttb.hIconUp;
+ TTB.dwFlags := TTBBF_VISIBLE;
+ TTB.name := htdDBName;
+ hTTBButton := CallService(MS_TTB_ADDBUTTON, WPARAM(@TTB), 0);
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция OnTTBLoaded: Кнопка добавлена.', 2);
+ end;
+ end;
+ Result := 0;
+end;}
+
+{ Cервис MS_MHTD_SHOWHISTORY
+ Смотри детали в m_historytodb.inc }
+function HTDBShowHistory(wParam { 0 } : WPARAM; lParam { 0 } : LPARAM): int_ptr; cdecl;
+var
+ WinName: String;
+begin
+ Result := 0;
+ // Ищем окно HistoryToDBViewer
+ WinName := 'HistoryToDBViewer';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBViewer не найден, то ищем другое окно
+ begin
+ WinName := 'HistoryToDBViewer for ' + htdIMClientName + ' ('+MyAccount+')';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBViewer не запущен, то запускаем
+ begin
+ if FileExists(PluginPath + 'HistoryToDBViewer.exe') then
+ begin
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBViewer.exe'), PWideChar(' "'+PluginPath+'" "'+ProfilePath+'"'), nil, SW_SHOWNORMAL);
+ end
+ else
+ MsgInf(htdPluginShortName, Format(GetLangStr('ERR_NO_FOUND_VIEWER'), [PluginPath + 'HistoryToDBViewer.exe']));
+ end
+ else // Иначе посылаем запрос на показ окна
+ OnSendMessageToOneComponent(WinName, '0040');
+ end
+ else // Иначе посылаем запрос на показ окна
+ OnSendMessageToOneComponent(WinName, '0040');
+end;
+
+{ Cервис MS_MHTD_SHOWCONTACTHISTORY
+ Смотри детали в m_historytodb.inc }
+function HTDBShowContactHistory(wParam { hContact } : WPARAM; lParam { 0 } : LPARAM): int_ptr; cdecl;
+begin
+ Result := OpenHistoryWindow(wParam, 0);
+end;
+
+{ Cервис MS_MHTD_GETVERSION
+ Смотри детали в m_historytodb.inc }
+function HTDBGetVersion(wParam { 0 } : WPARAM; lParam { 0 } : LPARAM): int_ptr; cdecl;
+begin
+ Result := htdVersion;
+end;
+
+function OnModulesLoad(awParam{0}:WPARAM; alParam{0}:LPARAM):integer; cdecl;
+var
+ Mi: TCListMenuItem;
+ //{$ifdef REPLDEFHISTMOD}
+ Si: TCListMenuItem;
+ //{$endif REPLDEFHISTMOD}
+ AutoCoreLang, UpdTmpPath, WinName: String;
+ I: Byte;
+ MenuMainService: PAnsiChar;
+ //IMUPD: TUpdate;
+begin
+ // Лог-файлы закрыты
+ MsgLogOpened := False;
+ ErrLogOpened := False;
+ DebugLogOpened := False;
+ ContactListLogOpened := False;
+ ProtoListLogOpened := False;
+ ImportLogOpened := False;
+ // Инициализация шифрования
+ EncryptInit;
+ // Определяем локализацию
+ if FileExists(ExtractFilePath(ParamStr(0))+'Langpack_russian.txt') then
+ AutoCoreLang := 'Russian'
+ else
+ AutoCoreLang := 'English';
+ // Запрос на закрытие всех компонентов плагина если они были запущены
+ OnSendMessageToAllComponent('003');
+ // Копируем дефолтный файл конфигурации юзеру в профиль
+ if FileExists(PluginPath + DefININame) then
+ begin
+ if FileExists(ProfilePath + ININame) then
+ RenameFile(ProfilePath + ININame, ProfilePath + ININame + '.' + FormatDateTime('ddmmyyhhmmss', Now));
+ if CopyFileEx(PChar(PluginPath + DefININame), PChar(ProfilePath + ININame), nil, nil, nil, COPY_FILE_FAIL_IF_EXISTS) then
+ begin
+ DefaultINICopy := True;
+ if FileExists(ProfilePath + ININame) then
+ DeleteFile(PluginPath + DefININame);
+ end;
+ end;
+ // Задаем вопросы при первом запуске
+ if (GetDBInt(htdDBName, 'FirstRun.FirstActivate', 0) = 0) or (DefaultINICopy) then
+ begin
+ if AutoCoreLang = 'Russian' then
+ begin
+ case MessageBox(DialogMainWindow, PWideChar('Вы впервые активировали плагин ' + htdPluginShortName + '.' + #13 +
+ 'Для корректной работы плагина проверьте настройки соединения с базой данных.' + #13 +
+ 'Вы хотите начать экспорт истории?'), PWideChar(htdPluginShortName),36) of
+ 6: StartExport := True; // Да
+ 7: StartExport := False; // Нет
+ end;
+ end
+ else
+ begin
+ case MessageBox(DialogMainWindow, PWideChar('The first time you activate the plugin ' + htdPluginShortName + '.' + #13 +
+ 'To work correctly, check your plug-in connection to the database.' + #13 +
+ 'Do you want to start exporting the history?'), PWideChar(htdPluginShortName),36) of
+ 6: StartExport := True; // Да
+ 7: StartExport := False; // Нет
+ end;
+ end;
+ end;
+ // Проверяем значения флага обновления
+ if GetDBInt(htdDBName, 'FirstRun.RunUpdateDoneV'+IntToStr(htdVersion), 0) = 0 then
+ begin
+ if AutoCoreLang = 'Russian' then
+ begin
+ //MsgInf(htdPluginShortName, 'Вы впервые активировали плагин ' + htdPluginShortName + '.' + #13 + 'Для корректной работы плагина проверьте настройки соединения с базой данных.' + #13 + 'Спасибо за использование плагина ' + htdPluginShortName + '.')
+ case MessageBox(DialogMainWindow, PWideChar('Вы впервые активировали плагин ' + htdPluginShortName + '.' + #13 +
+ 'Для корректной работы плагина необходимо запустить процесс обновления плагина через Интернет.' + #13 +
+ 'Вы хотите начать процесс обновления?'), PWideChar(htdPluginShortName),36) of
+ 6: StartUpdate := True; // Да
+ 7: StartUpdate := False; // Нет
+ end;
+ end
+ else
+ begin
+ //MsgInf(htdPluginShortName, 'The first time you activate the plugin ' + htdPluginShortName + '.' + #13 + 'To work correctly, check your plug-in connection to the database.' + #13 + 'Thank you for using the plugin ' + htdPluginShortName + '.');
+ case MessageBox(DialogMainWindow, PWideChar('The first time you activate the plugin ' + htdPluginShortName + '.' + #13 +
+ 'To work correctly, the plugin must run the update plugin via the Internet.' + #13 +
+ 'Do you want to start the update process?'), PWideChar(htdPluginShortName),36) of
+ 6: StartUpdate := True; // Да
+ 7: StartUpdate := False; // Нет
+ end;
+ end;
+ end;
+ // Выбор языка по умолчанию
+ if AutoCoreLang <> DefaultLanguage then
+ begin
+ CoreLanguage := AutoCoreLang;
+ WriteCustomINI(ProfilePath, 'DefaultLanguage', CoreLanguage);
+ end
+ else
+ CoreLanguage := DefaultLanguage;
+ // Загружаем настройки локализации
+ LangDoc := NewXMLDocument();
+ CoreLanguageChanged;
+ // Записываем типа IM клиента
+ WriteCustomINI(ProfilePath, 'IMClientType', htdIMClientName);
+ WriteCustomINI(ProfilePath, 'IMClientPlatformType', htdPlatform);
+ // Записываем отсутствие запроса на чтение настроек
+ WriteCustomINI(ProfilePath, 'SettingsFormRequestSend', '0');
+ // Создаем окно About и Export
+ if not Assigned(AboutForm) then
+ AboutForm := TAboutForm.Create(nil);
+ ExportFormDestroy := True;
+ // API - Открытие окна истории
+ HookShowHistoryAPI := CreateServiceFunction(MS_MHTD_SHOWHISTORY, @HTDBShowHistory);
+ // API - Открытие окна истории указанного контакта
+ HookShowContactHistoryAPI := CreateServiceFunction(MS_MHTD_SHOWCONTACTHISTORY, @HTDBShowContactHistory);
+ // API - Версия плагина
+ HookShowVersionAPI := CreateServiceFunction(MS_MHTD_GETVERSION, @HTDBGetVersion);
+ // Инициализация основного меню
+ MenuMainItemsInit;
+ // Создаем основное меню
+ FillChar(Mi, SizeOf(Mi), 0);
+ Mi.cbSize := SizeOf(Mi);
+ Mi.szPopupName.a := '&' + htdPluginShortName;
+ Mi.popupPosition := 500000;
+ Mi.hIcon := LoadImage(hInstance,'ICON_0',IMAGE_ICON,16,16,0);
+ Mi.flags := 0;
+ for I := Low(MainMenuItems) to High(MainMenuItems) do
+ begin
+ if MainMenuItems[I].Icon = '' then
+ Mi.hIcon := 0
+ else
+ Mi.hIcon := LoadImage(hInstance, pChar(MainMenuItems[I].Icon), IMAGE_ICON, 16, 16, 0);
+ Mi.szName.a := pAnsiChar(AnsiString(MainMenuItems[I].Name));
+ MenuMainService := pAnsiChar(AnsiString(Format('%s/MainMenuCommand%d', [htdPluginShortName, I])));
+ //if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Функция Load: ' + 'MenuMainName = ' + MenuMainItems[I].Name + ' | MenuMainService = ' + MenuMainService, 2);
+ MainMenuHandle[I] := CreateServiceFunctionParam(MenuMainService, @MainMenuItems[I].Proc, I);
+ Mi.pszService := MenuMainService;
+ Mi.Position := MainMenuItems[I].Position;
+ MenuHandle[I] := CallService(MS_CLIST_ADDMAINMENUITEM, 0, Windows.LPARAM(@Mi));
+ end;
+ // Создаем свой пункт в основном меню для системной истории
+ //{$ifdef REPLDEFHISTMOD}
+ FillChar(Si, SizeOf(Si), 0);
+ Si.cbSize := SizeOf(Si);
+ Si.Position := 500060000;
+ Si.szName.a := pAnsiChar(AnsiString(Format(WideStringToString(GetLangStr('IMButtonCaption'), CP_ACP), [htdPluginShortName])));
+ Si.pszService := MS_MHTD_SHOWHISTORY;//MS_HISTORY_SHOWCONTACTHISTORY;
+ Si.hIcon := LoadImage(hInstance,'ICON_0',IMAGE_ICON,16,16,0);;
+ HookSystemHistoryMenu := CallService(MS_CLIST_ADDMAINMENUITEM,0,LPARAM(@Si));
+ //{$endif REPLDEFHISTMOD}
+ // Создаем свой пункт в меню контакта
+ CreateServiceFunction(htdPluginShortName+'/ContactMenuCommand', @OpenHistoryWindow);
+ Mi.pszContactOwner := nil; // Все контакты
+ Mi.cbSize := SizeOf(Mi);
+ Mi.position := 1000090000;
+ Mi.flags := 0;
+ Mi.hIcon := LoadImage(hInstance,'ICON_0',IMAGE_ICON,16,16,0);
+ Mi.szName.a := pAnsiChar(WideStringToString(GetLangStr('ShowOneContactHistory'), CP_ACP));
+ Mi.pszService := htdPluginShortName+'/ContactMenuCommand';
+ HookContactMenu := CallService(MS_CLIST_ADDCONTACTMENUITEM, 0, LPARAM(@Mi));
+ // Хук на открытие меню контакта
+ HookBuildMenu := HookEvent(ME_CLIST_PREBUILDCONTACTMENU, OnBuildContactMenu);
+ // Хук на добавление данных в локальную БД Миранды
+ HookEventAdded := HookEvent(ME_DB_EVENT_ADDED, OnEventAdded);
+ // Открытие окна истории
+ {$ifdef REPLDEFHISTMOD}
+ HookShowMainHistory := CreateServiceFunction(MS_HISTORY_SHOWCONTACTHISTORY, @OpenHistoryWindow);
+ {$endif REPLDEFHISTMOD}
+ // Поддержка TopToolBar
+ //HookTTBLoaded := HookEvent(ME_TTB_MODULELOADED, OnTTBLoaded);
+ // Register in updater
+ {if Boolean(ServiceExists(MS_UPDATE_REGISTER)) then
+ begin
+ ZeroMemory(@IMUPD,SizeOf(IMUPD));
+ IMUPD.cbSize := SizeOf(IMUPD);
+ IMUPD.szComponentName := htdPluginShortName;
+ IMUPD.pbVersion := @hppVersionStr[1];
+ IMUPD.cpbVersion := Length(hppVersionStr);
+ // File listing section
+ //IMUPD.szUpdateURL = UPDATER_AUTOREGISTER;
+ IMUPD.szUpdateURL := htdFLUpdateURL;
+ IMUPD.szVersionURL := htdFLVersionURL;
+ IMUPD.pbVersionPrefix := htdFLVersionPrefix;
+ IMUPD.cpbVersionPrefix := Length(htdFLVersionPrefix);
+ // Alpha-beta section
+ IMUPD.szBetaUpdateURL := htdUpdateURL;
+ IMUPD.szBetaVersionURL := htdVersionURL;
+ IMUPD.pbBetaVersionPrefix := htdVersionPrefix;
+ IMUPD.cpbBetaVersionPrefix := Length(htdVersionPrefix);
+ IMUPD.szBetaChangelogURL := htdChangelogURL;
+ CallService(MS_UPDATE_REGISTER, 0, LPARAM(@IMUPD));
+ end;}
+ // Регистрируемся в dbeditor
+ CallService(MS_DBEDIT_REGISTERSINGLEMODULE, WPARAM(PAnsiChar(htdDBName)), 0);
+ { Запускаем контроль файла конфигурации
+ FILE_NOTIFY_CHANGE_FILE_NAME = $00000001;//Изменение имени файла
+ FILE_NOTIFY_CHANGE_DIR_NAME = $00000002;//Изменение имени папки
+ FILE_NOTIFY_CHANGE_ATTRIBUTES = $00000004;//Изменение атрибутов файла
+ FILE_NOTIFY_CHANGE_SIZE = $00000008;//Изменение размера файла
+ FILE_NOTIFY_CHANGE_LAST_WRITE = $00000010;//Изменение времени последней записи
+ FILE_NOTIFY_CHANGE_LAST_ACCESS = $00000020;//Изменение времени последнего доступа
+ FILE_NOTIFY_CHANGE_CREATION = $00000040;//Изменение времени создания
+ FILE_NOTIFY_CHANGE_SECURITY = $00000100;//Изменение прав доступа
+ }
+ StartWatch(ProfilePath, FILE_NOTIFY_CHANGE_LAST_WRITE, False, @ProfileDirChangeCallBack);
+ // MMF
+ if SyncMethod = 0 then
+ FMap := TMapStream.CreateEx('HistoryToDB for ' + htdIMClientName + ' ('+MyAccount+')',MAXDWORD,2000);
+ // Плагин загружен
+ PluginStatus := True;
+ // Кол. сообщений
+ MessageCount := 0;
+ // Пишем данные о первом запуске в базу
+ WriteDBInt(htdDBName, 'FirstRun.FirstActivate', 1);
+ // Обновление утилиты HistoryToDBUpdater.exe из временной папки
+ UpdTmpPath := GetUserTempPath + 'IMHistory\';
+ if FileExists(UpdTmpPath + 'HistoryToDBUpdater.exe') then
+ begin
+ // Ищем окно HistoryToDBUpdater
+ WinName := 'HistoryToDBUpdater';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBUpdater не найден, то ищем другое окно
+ begin
+ WinName := 'HistoryToDBUpdater for ' + htdIMClientName + ' ('+MyAccount+')';
+ if SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBUpdater запущен, то закрываем его
+ OnSendMessageToOneComponent(WinName, '009');
+ end
+ else // Иначе посылаем запрос
+ OnSendMessageToOneComponent(WinName, '009');
+ Sleep(800);
+ // Удаляем старую утилиту
+ if DeleteFile(PluginPath + 'HistoryToDBUpdater.exe') then
+ begin
+ if CopyFileEx(PChar(UpdTmpPath + 'HistoryToDBUpdater.exe'), PChar(PluginPath + 'HistoryToDBUpdater.exe'), nil, nil, nil, COPY_FILE_FAIL_IF_EXISTS) then
+ begin
+ DeleteFile(UpdTmpPath + 'HistoryToDBUpdater.exe');
+ if CoreLanguage = 'Russian' then
+ MsgInf(htdPluginShortName, Format('Утилита обновления %s успешно обновлена.', ['HistoryToDBUpdater.exe']))
+ else
+ MsgInf(htdPluginShortName, Format('Update utility %s successfully updated.', ['HistoryToDBUpdater.exe']));
+ end;
+ end
+ else
+ begin
+ DeleteFile(UpdTmpPath + 'HistoryToDBUpdater.exe');
+ if CoreLanguage = 'Russian' then
+ MsgDie(htdPluginShortName, Format('Ошибка обновления утилиты %s из временной папки.', [PluginPath + 'HistoryToDBUpdater.exe']))
+ else
+ MsgDie(htdPluginShortName, Format('Error update utility %s', [PluginPath + 'HistoryToDBUpdater.exe']));
+ end;
+ end;
+ // Обновление утилиты HistoryToDBUpdater.exe из папки плагина
+ if FileExists(PluginPath + 'HistoryToDBUpdater.upd') then
+ begin
+ // Ищем окно HistoryToDBUpdater
+ WinName := 'HistoryToDBUpdater';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBUpdater не найден, то ищем другое окно
+ begin
+ WinName := 'HistoryToDBUpdater for ' + htdIMClientName + ' ('+MyAccount+')';
+ if SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBUpdater запущен, то закрываем его
+ OnSendMessageToOneComponent(WinName, '009');
+ end
+ else // Иначе посылаем запрос
+ OnSendMessageToOneComponent(WinName, '009');
+ Sleep(800);
+ // Удаляем старую утилиту
+ if DeleteFile(PluginPath + 'HistoryToDBUpdater.exe') then
+ begin
+ if CopyFileEx(PChar(PluginPath + 'HistoryToDBUpdater.upd'), PChar(PluginPath + 'HistoryToDBUpdater.exe'), nil, nil, nil, COPY_FILE_FAIL_IF_EXISTS) then
+ begin
+ DeleteFile(PluginPath + 'HistoryToDBUpdater.upd');
+ if CoreLanguage = 'Russian' then
+ MsgInf(htdPluginShortName, Format('Утилита обновления %s успешно обновлена.', ['HistoryToDBUpdater.exe']))
+ else
+ MsgInf(htdPluginShortName, Format('Update utility %s successfully updated.', ['HistoryToDBUpdater.exe']));
+ end;
+ end
+ else
+ begin
+ DeleteFile(PluginPath + 'HistoryToDBUpdater.upd');
+ if CoreLanguage = 'Russian' then
+ MsgDie(htdPluginShortName, Format('Ошибка обновления утилиты %s из папки плагинов.', [PluginPath + 'HistoryToDBUpdater.exe']))
+ else
+ MsgDie(htdPluginShortName, Format('Error update utility %s', [PluginPath + 'HistoryToDBUpdater.exe']));
+ end;
+ end;
+ // Запуск обновления
+ if StartUpdate then
+ begin
+ if FileExists(PluginPath + 'HistoryToDBUpdater.exe') then
+ begin
+ // Пишем данные в базу
+ WriteDBInt(htdDBName, 'FirstRun.RunUpdateDoneV'+IntToStr(htdVersion), 1);
+ // Отправлен запрос
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBUpdater.exe'), PWideChar(' "'+ProfilePath+'"'), nil, SW_SHOWNORMAL);
+ end
+ else
+ MsgInf(htdPluginShortName, Format(GetLangStr('ERR_NO_FOUND_UPDATER'), [PluginPath + 'HistoryToDBUpdater.exe']));
+ end
+ else
+ begin
+ // Проверяем значения флага обновления
+ if GetDBInt(htdDBName, 'FirstRun.RunUpdateDoneV'+IntToStr(htdVersion), 0) = 0 then
+ WriteDBInt(htdDBName, 'FirstRun.RunUpdateDoneV'+IntToStr(htdVersion), 1); // Пишем данные в базу
+ end;
+ // Показать окно экспорта
+ if StartExport then
+ begin
+ if ExportFormDestroy then
+ ChildExport := TExportForm.Create(nil);
+ if Assigned(ChildExport) then
+ begin
+ if not ChildExport.Showing then
+ ChildExport.Show
+ else
+ ChildExport.BringFormToFront(ChildExport);
+ end;
+ end;
+ // Если не запускаем обновление, то запускаем программу синхронизации HistoryToDBSync
+ if not StartUpdate then
+ begin
+ if FileExists(PluginPath + 'HistoryToDBSync.exe') then
+ begin
+ WinName := 'HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBSync for QIP не запущен, то запускаем
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBSync.exe'), PWideChar(' "'+PluginPath+'" "'+ProfilePath+'"'), nil, SW_SHOWNORMAL)
+ end
+ else
+ begin
+ if CoreLanguage = 'Russian' then
+ MsgInf(htdPluginShortName, Format('Программа синхронизации истории %s не найдена.' + #13 + 'Запустите процесс обновления плагина.', [PluginPath + 'HistoryToDBSync.exe']))
+ else
+ MsgInf(htdPluginShortName, Format('The history synchronization program %s not found.' + #13 + 'Begin the process of updating the plugin.', [PluginPath + 'HistoryToDBSync.exe']));
+ end;
+ end;
+ Result := 0;
+end;
+
+function Load():Integer; cdecl;
+var
+ ProfileName, TmpProfilePath: String;
+ Str: PAnsiChar;
+begin
+ CallService(MS_LANGPACK_REGISTER,WPARAM(@hLangpack),LPARAM(@PluginInfo));
+ // Кодовая страница
+ hppCodepage := CallService(MS_LANGPACK_GETCODEPAGE, 0, 0);
+ if (hppCodepage = CALLSERVICE_NOTFOUND) or (hppCodepage = CP_ACP) then
+ hppCodepage := GetACP();
+ // Проверка на поддержку Мета-контактов
+ MetaContactsEnabled := Boolean(ServiceExists(MS_MC_GETMOSTONLINECONTACT));
+ if MetaContactsEnabled then
+ begin
+ Str := pAnsiChar(CallService(MS_MC_GETPROTOCOLNAME, 0, 0));
+ if Assigned(Str) then
+ MetaContactsProto := AnsiString(Str)
+ else
+ MetaContactsEnabled := False;
+ end;
+ // Путь до плагинов
+ SetLength(DllPath, MAX_PATH);
+ SetLength(DllPath, GetModuleFileNameW(hInstance, @DllPath[1], MAX_PATH));
+ PluginPath := ExtractFilePath(DllPath);
+ // Путь до директории профиля (USERNAME\USERNAME.dat)
+ SetLength(TmpProfilePath, MAX_PATH);
+ CallService(MS_DB_GETPROFILEPATH, MAX_PATH, lParam(@TmpProfilePath[1]));
+ SetLength(TmpProfilePath, StrLen(pAnsiChar(@TmpProfilePath[1])));
+ TmpProfilePath := pAnsiChar(TmpProfilePath) + PathDelim;
+ // Имя файла профиля
+ SetLength(ProfileName, MAX_PATH);
+ CallService(MS_DB_GETPROFILENAME, MAX_PATH, lParam(@ProfileName[1]));
+ SetLength(ProfileName, StrLen(pAnsiChar(@ProfileName[1])));
+ // Путь до профиля USERNAME.dat
+ TmpProfilePath := TmpProfilePath + ExtractFileNameEx(TmpProfilePath+pAnsiChar(ProfileName), False) + PathDelim;
+ if DirectoryExists(TmpProfilePath) then
+ ProfilePath := TmpProfilePath
+ else
+ ProfilePath := ExtractFilePath(DllPath);
+ // Загружаем настройки
+ LoadINI(ProfilePath);
+ // Записываем Имя профиля, потом оно используется для заголовка программ
+ MyAccount := ExtractFileNameEx(pAnsiChar(ProfileName), False);
+ WriteCustomINI(ProfilePath, 'MyAccount', MyAccount);
+ // Инициализация основных функций
+ HookModulesLoad := HookEvent(ME_SYSTEM_MODULESLOADED, OnModulesLoad);
+ Result := 0;
+end;
+
+function Unload: int; cdecl;
+var
+ I: Byte;
+begin
+ Result := 0;
+ if PluginStatus then
+ begin
+ // Останавливаем контроль файла конфигурации
+ StopWatch;
+ if Assigned(AboutForm) then FreeAndNil(AboutForm);
+ if Assigned(ExportForm) then FreeAndNil(ExportForm);
+ // Удаляем меню
+ for I := Low(MainMenuHandle) to High(MainMenuHandle) do
+ begin
+ DestroyServiceFunction(MainMenuHandle[I]);
+ DestroyServiceFunction(MenuHandle[I]);
+ end;
+ {$ifdef REPLDEFHISTMOD}
+ DestroyServiceFunction(HookShowMainHistory);
+ {$endif REPLDEFHISTMOD}
+ DestroyServiceFunction(HookShowHistoryAPI);
+ DestroyServiceFunction(HookShowContactHistoryAPI);
+ DestroyServiceFunction(HookShowVersionAPI);
+ //{$ifdef REPLDEFHISTMOD}
+ UnhookEvent(HookSystemHistoryMenu);
+ //{$endif REPLDEFHISTMOD}
+ UnhookEvent(HookContactMenu);
+ //UnhookEvent(HookTTBLoaded);
+ UnhookEvent(HookEventAdded);
+ UnhookEvent(HookBuildMenu);
+ UnhookEvent(HookModulesLoad);
+ // Запрос на закрытие всех компонентов плагина
+ OnSendMessageToAllComponent('003');
+ // Закрываем лог-файлы
+ if MsgLogOpened then
+ CloseLogFile(0);
+ if ErrLogOpened then
+ CloseLogFile(1);
+ if DebugLogOpened then
+ CloseLogFile(2);
+ if ContactListLogOpened then
+ CloseLogFile(3);
+ if ProtoListLogOpened then
+ CloseLogFile(4);
+ // Очистка ключей шифрования
+ EncryptFree;
+ // MMF
+ if Assigned(FMap) then
+ FMap.Free;
+ // Откл. языковой поддержки
+ LangDoc.Active := False;
+ end;
+end;
+
+exports
+ MirandaPluginInfoEx,
+ MirandaPluginInterfaces,
+ Load,
+ Unload;
+
+begin
+end.
+
|