History++ sources upload (all files, no project)

git-svn-id: http://svn.miranda-ng.org/main/trunk@756 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

6 files changed, 1153 insertions, 0 deletions

diff --git a/plugins/HistoryPlusPlus/inc/m_icqext.inc b/plugins/HistoryPlusPlus/inc/m_icqext.inc
new file mode 100644
index 0000000000..37336d863d
--- /dev/null
+++ b/plugins/HistoryPlusPlus/inc/m_icqext.inc
@@ -0,0 +1,19 @@
+    //auth

+    //db event added to NULL contact

+    //blob format is:

+    //ASCIIZ    text

+    //DWORD     uin

+    //HANDLE    hContact

+    ICQEVENTTYPE_AUTH_GRANTED   = 2004;    //database event type

+    ICQEVENTTYPE_AUTH_DENIED    = 2005;    //database event type

+    ICQEVENTTYPE_SELF_REMOVE    = 2007;    //database event type

+    ICQEVENTTYPE_FUTURE_AUTH    = 2008;    //database event type

+    ICQEVENTTYPE_CLIENT_CHANGE  = 2009;    //database event type

+    ICQEVENTTYPE_CHECK_STATUS   = 2010;    //database event type

+    ICQEVENTTYPE_IGNORECHECK_STATUS = 2011;//database event type

+

+    //broadcast from server

+    //ASCIIZ    text

+    //ASCIIZ    from name

+    //ASCIIZ    from e-mail

+    ICQEVENTTYPE_BROADCAST      = 2006;    //database event type

diff --git a/plugins/HistoryPlusPlus/inc/m_ieview.inc b/plugins/HistoryPlusPlus/inc/m_ieview.inc
new file mode 100644
index 0000000000..2881ef5c8c
--- /dev/null
+++ b/plugins/HistoryPlusPlus/inc/m_ieview.inc
@@ -0,0 +1,217 @@
+{

+  IEView Plugin for Miranda IM

+  Copyright (C) 2005  Piotr Piastucki

+

+  This program is free software; you can redistribute it and/or

+  modify it under the terms of the GNU General Public License

+  as published by the Free Software Foundation; either version 2

+  of the License, or (at your option) any later version.

+

+  This program is distributed in the hope that it will be useful,

+  but WITHOUT ANY WARRANTY; without even the implied warranty of

+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+  GNU General Public License for more details.

+

+  You should have received a copy of the GNU General Public License

+  along with this program; if not, write to the Free Software

+  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

+}

+

+{$IFNDEF M_IEVIEW}

+{$DEFINE M_IEVIEW}

+

+const

+  MS_IEVIEW_WINDOW              = 'IEVIEW/NewWindow';

+  MS_IEVIEW_EVENT               = 'IEVIEW/Event';

+  MS_IEVIEW_NAVIGATE            = 'IEVIEW/Navigate';

+

+  ME_IEVIEW_OPTIONSCHANGED      = 'IEVIEW/OptionsChanged';

+(*

+  MS_IEVIEW_UTILS               = 'IEVIEW/Utils';

+  MS_IEVIEW_SHOWSMILEYSELECTION = 'IEVIEW/ShowSmileySelection';

+  ME_IEVIEW_NOTIFICATION        = 'IEVIEW/Notification';

+*)

+  IEW_CREATE       = 1; // create new window (control)

+  IEW_DESTROY      = 2; // destroy control

+  IEW_SETPOS       = 3; // set window position and size

+  IEW_SCROLLBOTTOM = 4; // scroll text to bottom

+

+  IEWM_SRMM    = 0; // regular SRMM

+  IEWM_TABSRMM = 1; // TabSRMM-compatible HTML builder

+  IEWM_HTML    = 2; // HTML

+  IEWM_SCRIVER = 3; // HTML

+  IEWM_MUCC    = 4; // MUCC group chats GUI

+  IEWM_CHAT    = 5; // chat.dll group chats GUI

+  IEWM_HISTORY = 6; // history viewer

+  IEWM_BROWSER = 256; // empty browser window

+

+type

+  PIEVIEWWINDOW = ^TIEVIEWWINDOW;

+  TIEVIEWWINDOW = record

+    cbSize : int;   // size of the strusture

+    iType  : int;   // one of IEW_* values

+    dwMode : DWORD; // compatibility mode - one of IEWM_* values

+    dwFlags: DWORD; // flags, one of IEWF_* values

+    parent : HWND;  // parent window HWND

+    hwnd   : HWND;  // IEW_CREATE returns WebBrowser control's HWND here

+    x      : int;   // IE control horizontal position

+    y      : int;   // IE control vertical position

+    cx     : int;   // IE control horizontal size

+    cy     : int;   // IE control vertical size

+  end;

+

+const

+  IEEDF_UNICODE       = 1; // if set pszText is a pointer to wchar_t string instead of AnsiChar string

+  IEEDF_UNICODE_TEXT  = 1; // if set pszText is a pointer to wchar_t string instead of AnsiChar string

+  IEEDF_UNICODE_NICK  = 2; // if set pszNick is a pointer to wchar_t string instead of AnsiChar string

+  IEEDF_UNICODE_TEXT2 = 4; // if set pszText2 is a pointer to wchar_t string instead of AnsiChar string

+// The following flags are valid only for message events (IEED_EVENT_MESSAGE)

+  IEEDF_FORMAT_FONT  = $00000100; // if set pszFont (font name) is valid and should be used

+  IEEDF_FORMAT_SIZE  = $00000200; // if set fontSize is valid and should be used

+  IEEDF_FORMAT_COLOR = $00000400; // if set color is valid and should be used

+  IEEDF_FORMAT_STYLE = $00000800; // if set fontSize is valid and should be used

+

+  IEEDF_READ = $00001000; // if set

+  IEEDF_SENT = $00002000; // if set

+  IEEDF_RTL  = $00004000; // if set

+

+  IEED_EVENT_MESSAGE      = $0001; // message

+  IEED_EVENT_STATUSCHANGE = $0002; // status change

+  IEED_EVENT_FILE         = $0003; // file

+  IEED_EVENT_URL          = $0004; // url

+  IEED_EVENT_ERRMSG       = $0005; // error message

+  IEED_EVENT_SYSTEM       = $0006; // system event

+

+  IEED_MUCC_EVENT_MESSAGE = $0001; // message

+  IEED_MUCC_EVENT_TOPIC   = $0002; // topic change

+  IEED_MUCC_EVENT_JOINED  = $0003; // user joined

+  IEED_MUCC_EVENT_LEFT    = $0004; // user left

+  IEED_MUCC_EVENT_ERROR   = $0005; // error

+

+// MUCC-related dwData bit flags

+  IEEDD_MUCC_SHOW_NICK       = $00000001;

+  IEEDD_MUCC_MSG_ON_NEW_LINE = $00000002;

+  IEEDD_MUCC_SHOW_DATE       = $00000010;

+  IEEDD_MUCC_SHOW_TIME       = $00000020;

+  IEEDD_MUCC_SECONDS         = $00000040;

+  IEEDD_MUCC_LONG_DATE       = $00000080;

+

+  IEED_GC_EVENT_HIGHLIGHT    = $8000;

+  IEED_GC_EVENT_MESSAGE      = $0001;

+  IEED_GC_EVENT_TOPIC        = $0002;

+  IEED_GC_EVENT_JOIN         = $0003;

+  IEED_GC_EVENT_PART         = $0004;

+  IEED_GC_EVENT_QUIT         = $0006;

+  IEED_GC_EVENT_NICK         = $0007;

+  IEED_GC_EVENT_ACTION       = $0008;

+  IEED_GC_EVENT_KICK         = $0009;

+  IEED_GC_EVENT_NOTICE       = $000A;

+  IEED_GC_EVENT_INFORMATION  = $000B;

+  IEED_GC_EVENT_ADDSTATUS    = $000C;

+  IEED_GC_EVENT_REMOVESTATUS = $000D;

+

+// GC-related dwData bit flags

+  IEEDD_GC_SHOW_NICK       = $00000001;

+  IEEDD_GC_SHOW_TIME       = $00000002;

+  IEEDD_GC_SHOW_ICON       = $00000004;

+  IEEDD_GC_MSG_ON_NEW_LINE = $00001000;

+

+  IE_FONT_BOLD      = $000100; // Bold font flag

+  IE_FONT_ITALIC    = $000200; // Italic font flag

+  IE_FONT_UNDERLINE = $000400; // Underlined font flags

+

+type

+  PtagIEVIEWEVENTDATA = ^TtagIEVIEWEVENTDATA;

+  TtagIEVIEWEVENTDATA = record

+    cbSize   :int;

+    iType    :int;       // Event type, one of MUCC_EVENT_* values

+    dwFlags  :dword;     // Event flags - IEEF_*

+    fontName :PAnsiChar;     // Text font name

+    fontSize :int;       // Text font size (in pixels)

+    fontStyle:int;       // Text font style (combination of IE_FONT_* flags)

+    color    :TCOLORREF; // Text color

+    Nick     :TChar;     // Nick, usage depends on type of event

+    Text     :TChar;     // Text, usage depends on type of event

+    dwData   :dword;     // DWORD data e.g. status

+    bIsMe    :BOOL;      // TRUE if the event is related to the user

+    time     :dword;     // Time of the event

+    next     :PtagIEVIEWEVENTDATA;

+    Text2    :TChar;     // Text, usage depends on type of event

+  end;

+  PIEVIEWEVENTDATA = PtagIEVIEWEVENTDATA;

+  TIEVIEWEVENTDATA = TtagIEVIEWEVENTDATA;

+

+const

+  IEE_LOG_DB_EVENTS  = 1; // log specified number of DB events

+  IEE_CLEAR_LOG      = 2; // clear log

+  IEE_GET_SELECTION  = 3; // get selected text

+  IEE_SAVE_DOCUMENT  = 4; // save current document

+  IEE_LOG_MEM_EVENTS = 5; // log specified number of IEView events

+

+  IEEF_RTL          = 1; // turn on RTL support

+  IEEF_NO_UNICODE   = 2; // disable Unicode support

+  IEEF_NO_SCROLLING = 4; // do not scroll logs to bottom

+

+const

+  IEVIEWEVENT_SIZE_V1 = 28;

+  IEVIEWEVENT_SIZE_V2 = 32;

+  IEVIEWEVENT_SIZE_V3 = 36;

+

+type

+  tagIEVIEWEVENT = record

+    case byte of

+      0: (hDbEventFirst: THANDLE);

+      1: (eventData :PIEVIEWEVENTDATA);

+  end;

+

+  PIEVIEWEVENT = ^TIEVIEWEVENT;

+  TIEVIEWEVENT = record

+    cbSize   :int; // size of the strusture

+    iType    :int; // one of IEE_* values

+    dwFlags  :DWORD;   // one of IEEF_* values

+    hwnd     :HWND;    // HWND returned by IEW_CREATE

+    hContact :THANDLE; // contact

+    Event    :tagIEVIEWEVENT; // first event to log, when IEE_LOG_EVENTS

+                              // returns it will contain the last event

+                              // actually logged or NULL if no event was logged

+    count    :int;     // number of events to log

+    codepage :int;     // ANSI codepage

+    pszProto :PAnsiChar;

+  end;

+(*

+type

+  PIEVIEWSHOWSMILEYSEL = ^TIEVIEWSHOWSMILEYSEL;

+  TIEVIEWSHOWSMILEYSEL = record

+    cbSize       : int;    // size of the structure

+    Protocolname : PAnsiChar;  // protocol to use... if you have defined a protocol,

+                           // u can use your own protocol name. Smiley add will

+                           // automatically select the smileypack that is

+                           // defined for your protocol. Or, use "Standard" for

+                           // standard smiley set. Or "ICQ", "MSN" if you

+                           // prefer those icons. If not found or NULL:

+                           // "Standard" will be used

+    xPosition    : int;    // Postition to place the selectwindow

+    yPosition    : int;

+    Direction    : int;    // Direction (i.e. size upwards/downwards/etc) of

+                           // the window 0, 1, 2, 3

+    hwndTarget   : HWND;   // Window, where to send the message when smiley is

+                           // selected.

+    targetMessage: DWORD;  // Target message, to be sent.

+    targetWParam : LPARAM; // Target WParam to be sent (LParam will be AnsiChar*

+                           // to select smiley) see the example file.

+  end;

+*)

+const

+  IEN_NAVIGATE = 1; // navigate to the given destination

+  IENF_UNICODE = 1; // if set urlW is used instead of urlW

+

+type

+  IEVIEWNAVIGATE = record

+    cbSize :int;   // size of the strusture

+    iType  :int;   // one of IEN_* values

+    dwFlags:dword; // one of IEEF_* values

+    hwnd   :HWND;  // HWND returned by IEW_CREATE

+    url    :TChar; // Text, usage depends on type of event

+end;

+

+{$ENDIF}

diff --git a/plugins/HistoryPlusPlus/inc/m_jabber.inc b/plugins/HistoryPlusPlus/inc/m_jabber.inc
new file mode 100644
index 0000000000..bbb051e203
--- /dev/null
+++ b/plugins/HistoryPlusPlus/inc/m_jabber.inc
@@ -0,0 +1,32 @@
+{

+Jabber Protocol Plugin for Miranda IM

+Copyright ( C ) 2002-04  Santithorn Bunchua

+Copyright ( C ) 2005-07  George Hazan

+Copyright ( C ) 2007     Maxim Mluhov

+

+This program is free software; you can redistribute it and/or

+modify it under the terms of the GNU General Public License

+as published by the Free Software Foundation; either version 2

+of the License, or ( at your option ) any later version.

+

+This program is distributed in the hope that it will be useful,

+but WITHOUT ANY WARRANTY; without even the implied warranty of

+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+GNU General Public License for more details.

+

+You should have received a copy of the GNU General Public License

+along with this program; if not, write to the Free Software

+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

+}

+

+{$IFNDEF M_JABBER}

+{$DEFINE M_JABBER}

+

+const

+

+    // registered db event types

+    JABBER_DB_EVENT_TYPE_CHATSTATES          = 2000;

+    JS_DB_GETEVENTTEXT_CHATSTATES            = '/GetEventText2000';

+    JABBER_DB_EVENT_CHATSTATES_GONE          = 1;

+

+{$ENDIF}

diff --git a/plugins/HistoryPlusPlus/inc/m_mathmodule.inc b/plugins/HistoryPlusPlus/inc/m_mathmodule.inc
new file mode 100644
index 0000000000..a4d10edfa6
--- /dev/null
+++ b/plugins/HistoryPlusPlus/inc/m_mathmodule.inc
@@ -0,0 +1,199 @@
+{$IFNDEF M_MATHMODULE}

+{$DEFINE M_MATHMODULE}

+  {--------------------------------------------------- }

+  {

+                   2                   

+                  x  + 2 Pi

+                               +  R

+                   Sin(wt)

+  

+                     Math-Module

+  

+        Miranda Plugin by Stephan Kassemeyer

+     MathModule API  -  (c) Stephan Kassemeyer

+                    8 May, 2004

+   }

+  { --------- }

+  {

+     Miranda Service-functions defined by MathModule

+     call with the

+     int ( CallService)(const AnsiChar   servicename,WPARAM,LPARAM)

+     that you get from miranda when Miranda calls the

+     Load(PLUGINLINK   link)

+     of your PlugIn-dll

+     the CallService function then is:

+     link->CallServiceSync(Servicename,wparam,lparam)

+   }

+  { --------- }

+

+const

+  MATH_RTF_REPLACE_FORMULAE = 'Math/RtfReplaceFormulae';

+  { replace all formulas in a RichEdit with bitmaps. }

+  { wParam = 0 }

+  { lParam = *TMathRichedit Info }

+  { return: TRUE if replacement succeeded, FALSE if not (disable by user?). }

+  { handle of richedit. }

+  { NULL: replace all. }

+type

+  PMathRicheditInfo = ^TMathRicheditInfo;

+  TMathRicheditInfo = record

+    hwndRichEditControl : HWND;

+    sel                 : PCHARRANGE;

+    disableredraw       : int;

+  end;

+  { WARNING:   !!! }

+  { Strange things happen if you use this function twice on the same CHARRANGE: }

+  { if Math-startDelimiter == Math-endDelimiter, there is the following problem: }

+  { it might be that someone forgot an endDelimiter, this results in a lonesome startdelimiter. }

+  { if you try to MATH_REPLACE_FORMULAE the second time, startDelimiters and endDelimiters are mixed up. }

+  { The same problem occours if we have empty formulae, because two succeding delimiters are }

+  { replaced with a single delimiter. }

+

+const

+  MATH_GET_STARTDELIMITER = 'Math/GetStartDelimiter';

+  { returns the delimiter that marks the beginning of a formula }

+  { wparam=0 }

+  { lparam=0 }

+  { result=*AnsiChar Delimiter }

+  { !!! the result-buffer must be deleted with MTH_FREE_MATH_BUFFER }

+

+  MATH_GETENDDELIMITER = 'Math/GetEndDelimiter';

+  { returns the delimiter that marks the end of a formula }

+  { wparam=0 }

+  { lparam=0 }

+  { result=*AnsiChar Delimiter }

+  { !!! the result-buffer must be deleted with MTH_FREE_MATH_BUFFER }

+

+  MTH_FREE_MATH_BUFFER = 'Math/FreeRTFBitmapText';

+  { deletes any buffer that MathModule has created. }

+  { wparam=0 }

+  { lparam=(*AnsiChar) buffer }

+  { result=0 }

+

+  MATH_SETBKGCOLOR = 'Math/SetBackGroundColor';

+  { changes the background color of the next formula to be rendered. }

+  { wparam=0 }

+  { lparam=(COLORREF) color }

+  { result=0 }

+

+  MATH_SET_PARAMS = 'Math/SetParams';

+  { sets a parameter (only integer values) encoded in  wparam }

+  { wparam=paramcode }

+  { lparam=parametervalue }

+  { paramcodes: }

+const

+  MATH_PARAM_BKGCOLOR  = 0; // (COLORREF) std-rgb-color or TRANSPARENT_Color

+  MATH_PARAM_FONTCOLOR = 1; // (COLORREF) std-rgb-color

+  RESIZE_HWND          = 2; // (HWND) preview window resizes RESIZE_HWND when

+                            // it is being resized.

+  ToolboxEdit_HWND     = 3; // (HWND) If this hwnd (of an edit-box) is set,

+                            // MathModule can insert Formula-elements from

+                            // the Math-Toolbox.

+// you can make the BKGCOLOR Transparent (default) by using this color:

+  TRANSPARENT_Color = $FFFFFFFF-1;  // this is default

+

+const

+  MTH_GETBITMAP = 'Math/GetBitmap';

+  {returns Bitmap that represents the formula given in lparam (string-pointer) }

+  {this formula has NO Delimiters. }

+  {wparam=0 }

+  {lparam=(*AnsiChar)Formula }

+  {result=(HBITMAP) bitmap }

+  {!!! the bitmap must be deleted with DeleteObject(hobject) }

+  {example: }

+  {HBITMAP Bmp=(HBITMAP)CallService(MTH_GETBITMAP,0, (LPARAM)formula); }

+

+  MTH_GET_RTF_BITMAPTEXT = 'Math/GetRTFBitmapText';

+  { returns rich-text stream that includes bitmaps from text given in lparam }

+  { text included between MATH_GET_STARTDELIMITER and MATH_GETENDDELIMITER }

+  { hereby is replaced with a rtf-bitmap-stream that represents the corresponding formula }

+  { wparam=0 }

+  { lparam=*AnsiChar text }

+  { result=*AnsiChar rtfstream }

+  { !!! the result-buffer must be deleted with MTH_FREE_RTF_BITMAPTEXT }

+

+  MTH_FREE_RTF_BITMAPTEXT = 'Math/FreeRTFBitmapText';

+  { deletes the buffer that MTH_GET_RTF_BITMAPTEXT has created. }

+  { wparam=0 }

+  { lparam=(*AnsiChar) buffer }

+  { result=0 }

+

+  { ************************************************************** }

+  { The following is still SRMM - specific. }

+  { I plan to modify it, so that other PlugIns can take advantage of e.g. preview-window.... }

+const

+  MTH_SHOW = 'Math/Show';

+  { shows the preview-window }

+  { wparam=0 }

+  { lparam=0 }

+  { result=0 }

+

+  MTH_HIDE = 'Math/Hide';

+  { hides the preview-window }

+  { wparam=0 }

+  { lparam=0 }

+  { result=0 }

+

+  MTH_RESIZE = 'Math/Resize';

+  { sets the size of the preview-window }

+  { wparam=0 }

+  { lparam=(*TMathWindowInfo) }

+  { result=0 }

+type

+  PTMathWindowInfo = ^TTMathWindowInfo;

+  TTMathWindowInfo = record

+    top   : int;

+    left  : int;

+    right : int;

+    bottom: int;

+  end;

+

+const

+  MTH_SETFORMULA = 'Math/SetFormula';

+  { sets the text that the preview-window should parse to display formulas found inside }

+  { wparam=0 }

+  { lparam=(*AnsiChar) text }

+  { result=0 }

+

+  MTH_Set_ToolboxEditHwnd = 'Math/SetTBhwnd';

+  { If this hwnd (of an edit-box) is set, MathModule can insert Formula-elements from the Math-Toolbox. }

+  { wparam=0 }

+  { lparam=handle }

+  {übergibt fenster-Handle des aktuellen Message-Dialogs }

+

+  MTH_Set_Srmm_HWND = 'Math/SetSrmmHWND';

+  { If MathModule knows the handle of a SRMM-based window, following features exist: }

+  { - preview window resizes Math-Srmm when it is being resized. }

+  { wparam=0 }

+  { lparam=handle }

+  { result=0 }

+  { todo: umbenennen in MTH_Set_ResizeWindowHandle, zusaetzlich MTH_Set_ToolboxEditHandle erstellen, dann keine SRMM-Abhaengigkeit mehr. }

+  { damit ResizeWindows selbst entscheiden koennen, was sie tun, kann man auch ein miranda-event "MTH_preview_resized" einrichten. }

+

+  MTH_GET_PREVIEW_HEIGHT = 'Math/getPreviewHeight';

+  { returns the height of the whole preview-window (including system-menu-bar) }

+  { consider this when maximizing a window to that preview-window is hooked on top or bottom }

+  { it returns the height no matter whether preview-window is visible or not }

+  { wparam=0 }

+  { lparam=0 }

+  { result=(int) height }

+

+  MTH_GET_PREVIEW_SHOWN = 'Math/getPreviewShown';

+  { returns 1 if preview window is visible }

+  { returns 0 if preview window is invisible }

+  { result=(int) shown }

+

+  MTH_SUBSTITUTE_DELIMITER = 'Math/SubstituteDelimiter';

+  { replaces Substitute given lparam-structure with internal Math-Delimiter }

+  { wparam=0 }

+  { lparam=(TMathSubstInfo) substInfo }

+  { result=0 }

+

+type

+  PTMathSubstInfo = ^TTMathSubstInfo;

+  TTMathSubstInfo = record

+    EditHandle : HWND;

+    Substitute : PAnsiChar;

+  end;

+{--------------------------------------------------- }

+{$ENDIF}

diff --git a/plugins/HistoryPlusPlus/inc/m_music.inc b/plugins/HistoryPlusPlus/inc/m_music.inc
new file mode 100644
index 0000000000..aba0bd27f6
--- /dev/null
+++ b/plugins/HistoryPlusPlus/inc/m_music.inc
@@ -0,0 +1,419 @@
+{$IFNDEF M_MUSIC}

+{$DEFINE M_MUSIC}

+

+// defined in interfaces.inc

+//const MIID_WATRACK:MUUID='{FC6C81F4-837E-4430-9601-A0AA43177AE3}';

+

+type

+  pSongInfoA = ^tSongInfoA;

+  tSongInfoA = record

+    artist   :PAnsiChar;

+    title    :PAnsiChar;

+    album    :PAnsiChar;

+    genre    :PAnsiChar;

+    comment  :PAnsiChar;

+    year     :PAnsiChar;

+    mfile    :PAnsiChar; // media file

+    kbps     :dword;

+    khz      :dword;

+    channels :dword;

+    track    :dword;

+    total    :dword;     // music length

+    time     :dword;     // elapsed time

+    wndtext  :PAnsiChar; // window title

+    player   :PAnsiChar; // player name

+    plyver   :dword;     // player version

+    icon     :THANDLE;   // player icon

+    fsize    :dword;     // media file size

+    vbr      :dword;

+    status   :integer;   // WAT_MES_* const

+    plwnd    :HWND;      // player window

+    // video  part

+    codec    :dword;

+    width    :dword;

+    height   :dword;

+    fps      :dword;

+    date     :int64;

+    txtver   :PAnsiChar;

+    lyric    :PAnsiChar;

+    cover    :PAnsiChar;

+    volume   :dword;

+    url      :PAnsiChar; // player homepage

+    winampwnd:HWND;

+  end;

+type

+  pSongInfo=^tSongInfo;

+  tSongInfo = record

+    artist   :pWideChar;

+    title    :pWideChar;

+    album    :pWideChar;

+    genre    :pWideChar;

+    comment  :pWideChar;

+    year     :pWideChar;

+    mfile    :pWideChar; // media file

+    kbps     :dword;

+    khz      :dword;

+    channels :dword;

+    track    :dword;

+    total    :dword;     // music length

+    time     :dword;     // elapsed time

+    wndtext  :pWideChar; // window title

+    player   :pWideChar; // player name

+    plyver   :dword;     // player version

+    icon     :THANDLE;   // player icon

+    fsize    :dword;     // media file size

+    vbr      :dword;

+    status   :integer;   // WAT_MES_* const

+    plwnd    :HWND;      // player window

+    // video  part

+    codec    :dword;

+    width    :dword;

+    height   :dword;

+    fps      :dword;

+    date     :int64;

+    txtver   :pWideChar;

+    lyric    :pWideChar;

+    cover    :pWideChar; // cover path

+    volume   :dword;

+    url      :PWideChar; // player homepage

+    winampwnd:HWND;

+  end;

+  pSongInfoW = pSongInfo;

+  tSongInfoW = tSongInfo;

+

+const

+  // result codes

+  WAT_RES_UNKNOWN   = -2;

+  WAT_RES_NOTFOUND  = -1;

+  WAT_RES_ERROR     = WAT_RES_NOTFOUND;

+  WAT_RES_OK        = 0;

+  WAT_RES_ENABLED   = WAT_RES_OK;

+  WAT_RES_DISABLED  = 1;

+  // internal

+  WAT_RES_NEWFILE   = 3;

+  WAT_RES_NEWPLAYER = 4;

+

+// result for MS_WAT_GETMUSICINFO service

+const

+  WAT_PLS_NORMAL   = WAT_RES_OK;

+  WAT_PLS_NOMUSIC  = WAT_RES_DISABLED;

+  WAT_PLS_NOTFOUND = WAT_RES_NOTFOUND;

+

+const

+  WAT_INF_UNICODE = 0;

+  WAT_INF_ANSI    = 1;

+  WAT_INF_UTF8    = 2;

+  WAT_INF_CHANGES = $100;

+

+const

+  MS_WAT_INSERT:PAnsiChar = 'WATrack/Insert';

+  MS_WAT_EXPORT:PAnsiChar = 'WATrack/Export';

+

+const

+{

+  wParam : WAT_INF_* constant

+  lParam : pointer to pSongInfo (Unicode) or pSongInfoA (ANSI/UTF8)

+  Affects: Fill structure by currently played music info

+  returns: WAT_PLS_* constant

+  note: pointer will be point to global SongInfo structure of plugin

+  warning: Non-Unicode data filled only by request

+  if lParam=0 only internal SongInfo structure will be filled

+  Example:

+    var p:pSongInfo;

+    CallService(MS_WAT_GETMUSICINFO,0,dword(@p));

+}

+  MS_WAT_GETMUSICINFO:PAnsiChar = 'WATrack/GetMusicInfo';

+{

+  wParam:0

+  lParam : pointer to pSongInfo (Unicode)

+  Affects: Fill structure by info from file named in SongInfo.mfile

+  returns: 0, if success

+  note: fields, which values can't be obtained, leaves old values.

+    you must free given strings by miranda mir_free

+}

+  MS_WAT_GETFILEINFO:PAnsiChar = 'WATrack/GetFileInfo';

+

+{

+  wParam: encoding (WAT_INF_* consts, 0 = WAT_INF_UNICODE)

+  lParam: codepage (0 = ANSI)

+  Returns Global unicode SongInfo pointer or tranlated to Ansi/UTF8 structure

+}

+  MS_WAT_RETURNGLOBAL:PAnsiChar = 'WATrack/GetMainStructure';

+

+//!! DON'T CHANGE THESE VALUES!

+const

+  WAT_CTRL_FIRST = 1;

+

+  WAT_CTRL_PREV  = 1;

+  WAT_CTRL_PLAY  = 2;

+  WAT_CTRL_PAUSE = 3;

+  WAT_CTRL_STOP  = 4;

+  WAT_CTRL_NEXT  = 5;

+  WAT_CTRL_VOLDN = 6;

+  WAT_CTRL_VOLUP = 7;

+  WAT_CTRL_SEEK  = 8; // lParam is new position (sec)

+

+  WAT_CTRL_LAST  = 8;

+

+{

+  wParam: button code (WAT_CTRL_* const)

+  lParam: 0, or value (see WAT_CTRL_* const comments)

+  Affects: emulate player button pressing

+  returns: 0 if unsuccesful

+}

+  MS_WAT_PRESSBUTTON:PAnsiChar = 'WATrack/PressButton';

+

+{

+  Get user's Music Info

+}

+  MS_WAT_GETCONTACTINFO:PAnsiChar = 'WATrack/GetContactInfo';

+

+// ------------ Plugin/player status ------------

+

+{

+  wParam: 1  - switch off plugin

+          0  - switch on plugin

+          -1 - switch plugin status

+          2  - get plugin version

+          other - get plugin status

+  lParam: 0

+  Affects: Switch plugin status to enabled or disabled

+  returns: version, old plugin status, 0, if was enabled

+}

+  MS_WAT_PLUGINSTATUS:PAnsiChar = 'WATrack/PluginStatus';

+

+  ME_WAT_MODULELOADED:PAnsiChar = 'WATrack/ModuleLoaded';

+

+const

+  WAT_EVENT_PLAYERSTATUS = 1; // WAT_PLS_* in loword, WAT_MES_* in hiword

+  WAT_EVENT_NEWTRACK     = 2; // SongInfo ptr

+  WAT_EVENT_PLUGINSTATUS = 3; // 0-enabled; 1-dis.temporary; 2-dis.permanent

+  WAT_EVENT_NEWPLAYER    = 4; //

+  WAT_EVENT_NEWTEMPLATE  = 5; // TM_* constant

+

+{

+  Plugin or player status changed:

+  wParam: type of event (see above)

+  lParam: value

+}

+  ME_WAT_NEWSTATUS:PAnsiChar = 'WATrack/NewStatus';

+

+// ---------- Popup module ------------

+

+{

+  wParam: not used

+  lParam: not used

+  Affects: Show popup or Info window with current music information

+  note: Only Info window will be showed if Popup plugin disabled

+}

+  MS_WAT_SHOWMUSICINFO:PAnsiChar = 'WATrack/ShowMusicInfo';

+

+// --------- Statistic (report) module -------------

+

+{

+  wParam: pointer to log file name or NIL

+  lParam: pointer to report file name or NIL

+  Affects: Create report from log and run it (if option is set)

+  returns: 0 if unsuccesful

+  note: if wParam or lParam is a NIL then file names from options are used

+}

+  MS_WAT_MAKEREPORT :PAnsiChar = 'WATrack/MakeReport';

+//  MS_WAT_MAKEREPORTW:PAnsiChar = 'WATrack/MakeReportW';

+

+{

+  wParam, lParam - not used

+  Affects: pack statistic file

+}

+  MS_WAT_PACKLOG:PAnsiChar = 'WATrack/PackLog';

+

+{

+  wParam: not used

+  lParam: pointer to SongInfo

+}

+  MS_WAT_ADDTOLOG:PAnsiChar = 'WATrack/AddToLog';

+

+// ----------- Formats and players -----------

+

+// media file status

+

+const

+  WAT_MES_STOPPED = 0;

+  WAT_MES_PLAYING = 1;

+  WAT_MES_PAUSED  = 2;

+  WAT_MES_UNKNOWN = -1;

+

+const

+  WAT_ACT_REGISTER   = 1;

+  WAT_ACT_UNREGISTER = 2;

+  WAT_ACT_DISABLE    = 3;

+  WAT_ACT_ENABLE     = 4;

+  WAT_ACT_GETSTATUS  = 5; // not found/enabled/disabled

+  WAT_ACT_SETACTIVE  = 6;

+  WAT_ACT_REPLACE    = $10000; // can be combined with WAT_REGISTERFORMAT

+

+const

+  // flags

+  WAT_OPT_DISABLED    = $00000001; // [formats,players,options] registered but disabled

+  WAT_OPT_ONLYONE     = $00000002; // [formats,players] code can't be overwriten

+  WAT_OPT_PLAYERINFO  = $00000004; // [players] song info from player

+  WAT_OPT_WINAMPAPI   = $00000008; // [players] Winamp API support

+  WAT_OPT_CHECKTIME   = $00000010; // [options] check file time for changes

+  WAT_OPT_VIDEO       = $00000020; // [formats,options] format is video

+  WAT_OPT_LAST        = $00000040; // (internal-Winamp Clone) put to the end of queue

+  WAT_OPT_FIRST       = $00000080; // (internal)

+  WAT_OPT_TEMPLATE    = $00000100; // (internal)

+  WAT_OPT_IMPLANTANT  = $00000200; // [options] use process implantation

+  WAT_OPT_HASURL      = $00000400; // [players] URL field present

+  WAT_OPT_CHANGES     = $00000800; // (internal) obtain only chaged values

+                                   // (volume, status, window text, elapsed time)

+  WAT_OPT_APPCOMMAND  = $00001000; // [options] Special (multimedia) key support

+  WAT_OPT_CHECKALL    = $00002000; // [options] Check all players

+  WAT_OPT_KEEPOLD     = $00004000; // [options] Keep Old opened file

+  WAT_OPT_MULTITHREAD = $00008000; // [options] Use multithread scan

+  WAT_OPT_SINGLEINST  = $00010000; // [players] Single player instance

+  WAT_OPT_PLAYERDATA  = $00020000; // (internal) to obtain player data

+  WAT_OPT_CONTAINER   = $00040000; // [formats] format is container (need to check full)

+

+type

+  tReadFormatProc = function(var Info:tSongInfo):boolean; cdecl;

+  pMusicFormat = ^tMusicFormat;

+  tMusicFormat = record

+    proc :tReadFormatProc;

+    ext  :array [0..7] of AnsiChar;

+    flags:cardinal;

+  end;

+

+const

+{

+  wParam: action

+  lParam: pointer to tMusicFormat if wParam = WAT_ACT_REGISTER,

+          else - pointer to extension string (ANSI)

+  returns: see result codes

+}

+  MS_WAT_FORMAT:PAnsiChar = 'WATrack/Format';

+

+{

+  wParam: pointer to SongInfo structure (plwind field must be initialized)

+  lParam: flags

+  Affects: trying to fill SongInfo using Winamp API

+}

+  MS_WAT_WINAMPINFO:PAnsiChar = 'WATrack/WinampInfo';

+

+{

+  wParam: window

+  lParam: LoWord - command; HiWord - value

+}

+  MS_WAT_WINAMPCOMMAND:PAnsiChar = 'WATrack/WinampCommand';

+

+type

+  tInitProc    = function():integer;cdecl;

+  tDeInitProc  = function():integer;cdecl;

+  tStatusProc  = function(wnd:HWND):integer;cdecl;

+  tNameProc    = function(wnd:HWND;flags:integer):pWideChar;cdecl;

+  tCheckProc   = function(wnd:HWND;flags:integer):HWND;cdecl;

+  tInfoProc    = function(var SongInfo:tSongInfo;flags:integer):integer;cdecl;

+  tCommandProc = function(wnd:HWND;command:integer;value:integer):integer;cdecl;

+

+  pPlayerCell = ^tPlayerCell;

+  tPlayerCell = record

+    Desc     :PAnsiChar; // Short player name

+    flags    :cardinal;

+    Icon     :HICON;     // can be 0. for registration only

+    Init     :pointer;   // tInitProc;    can be NIL. initialize any data

+    DeInit   :pointer;   // tDeInitProc;  can be NIL. finalize player processing

+    Check    :pointer;   // tCheckProc;   check player

+    GetStatus:pointer;   // tStatusProc;  can be NIL. get player status

+    GetName  :pointer;   // tNameProc;    can be NIL. get media filename

+    GetInfo  :pointer;   // tInfoProc;    can be NIL. get info from player

+    Command  :pointer;   // tCommandProc; can be NIL. send command to player

+    URL      :PAnsiChar; // only if WAT_OPT_HASURL flag present

+    Notes    :PWideChar; // any tips, notes etc for this player

+  end;

+

+const

+{

+  wParam: action

+  lParam: pointer to tPlayerCell if wParam = WAT_ACT_REGISTER,

+          else - pointer to player description string (ANSI)

+  returns: player window handle or value>0 if found

+  note: If you use GetName or GetInfo field, please, do not return empty

+        filename even when mediafile is remote!

+}

+  MS_WAT_PLAYER:PAnsiChar = 'WATrack/Player';

+

+// --------- MyShows.ru ---------

+

+{

+  Toggle MyShows scrobbling status

+  wParam,lParam=0

+  Returns: previous state

+}

+const

+  MS_WAT_MYSHOWS:pAnsiChar = 'WATrack/MyShows';

+

+

+const

+  MS_WAT_MYSHOWSINFO:pAnsiChar = 'WATrack/MyShowsInfo';

+

+// --------- Last FM  ---------

+

+{

+  Toggle LastFM scrobbling status

+  wParam,lParam=0

+  Returns: previous state

+}

+const

+  MS_WAT_LASTFM:pAnsiChar = 'WATrack/LastFM';

+

+{

+  Get Info based on currently played song

+  wParam: pLastFMInfo

+  lParam: int language (first 2 bytes - 2-letters language code)

+}

+type

+  pLastFMInfo = ^tLastFMInfo;

+  tLastFMInfo = record

+    request:cardinal;   // 0 - artist, 1 - album, 2 - track

+    artist :pWideChar; // artist

+    album  :pWideChar; // album or similar artists for Artist info request

+    title  :pWideChar; // track title 

+    tags   :pWideChar; // tags

+    info   :pWideChar; // artist bio or wiki article

+    image  :pAnsiChar; // photo/cover link

+    similar:pWideChar;

+    release:pWideChar;

+    trknum :cardinal;

+  end;

+const

+  MS_WAT_LASTFMINFO:pAnsiChar = 'WATrack/LastFMInfo';

+

+// --------- Templates ----------

+

+const

+{

+  wParam: 0 (standard Info) or pSongInfo

+  lParam: Unicode template

+  returns: New Unicode (replaced) string

+}

+  MS_WAT_REPLACETEXT:PAnsiChar = 'WATrack/ReplaceText';

+

+{

+  event types for History

+  Blob structure for EVENTTYPE_WAT_ANSWER:

+   Uniciode artist#0title#0album#0answer

+}

+const

+  EVENTTYPE_WAT_REQUEST = 9601;

+  EVENTTYPE_WAT_ANSWER  = 9602;

+  EVENTTYPE_WAT_ERROR   = 9603;

+  EVENTTYPE_WAT_MESSAGE = 9604;

+

+const

+{

+  wParam: 0 or parent window

+  lParam: 0

+  note:   Shows Macro help window with edit aliases ability

+}

+  MS_WAT_MACROHELP:pAnsiChar = 'WATrack/MacroHelp';

+

+{$ENDIF M_MUSIC}

diff --git a/plugins/HistoryPlusPlus/inc/m_speak.inc b/plugins/HistoryPlusPlus/inc/m_speak.inc
new file mode 100644
index 0000000000..5a90fa98b0
--- /dev/null
+++ b/plugins/HistoryPlusPlus/inc/m_speak.inc
@@ -0,0 +1,267 @@
+{

+Copyright (C) 2007 Ricardo Pescuma Domenecci

+

+This is free software; you can redistribute it and/or

+modify it under the terms of the GNU Library General Public

+License as published by the Free Software Foundation; either

+version 2 of the License, or (at your option) any later version.

+

+This is distributed in the hope that it will be useful,

+but WITHOUT ANY WARRANTY; without even the implied warranty of

+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

+Library General Public License for more details.

+

+You should have received a copy of the GNU Library General Public

+License along with this file; see the file license.txt.  If

+not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,

+Boston, MA 02111-1307, USA.

+}

+

+{$IFNDEF M_SPEAK}

+{$DEFINE M_SPEAK}

+

+(*

+There is 2 ways of using the speak plugin:

+

+1. Older and simple way: just call

+	Speak_Say(hContact, _T("text to speak"))

+and the text will be spoken using contact settings. If hContact is NULL, it will use

+system settings.

+Previous versions only had an ascii version, so if you want to support then you need

+to call

+	Speak_SayA(hContact, "text to speak")

+

+

+2. Integrating with meSpeak GUI: for that you have first to register a speak type and

+then call the speak functions. In both case you have 2 options:

+

+2.1 Sending the full text: meSpeak GUI will only allow to enable/disable the type.

+To register call (in modules loaded):

+	Speak_Register("PluginName (DB key)", "name", "Prety name for GUI", "icon_xyz")

+And to speak call:

+	Speak_SayEx("name", hContact, _T("text to speak"))

+

+2.2 Using templates: you will not pass the text, but some variables. meSpeak handles

+the GUI to allow the user to create the text for those variables. These functions

+end with WT (with templates).

+To register call (in modules loaded):

+	AnsiChar *templates[] = { "Name\nDefault\n%var1%\tDescription 1\n%var2%\tDescription2\n%var3%\tDescription 3" };

+	Speak_RegisterWT("PluginName (DB key)", "name", "Prety name for GUI", "icon_xyz",

+					 templates, 1);

+And to speak call:

+	TCHAR *variables[] = { _T("var1"), _T("Value 1"), _T("var2"), _T("Value 2"), _T("var3"), _T("Value 3") };

+	Speak_SayExWT("name", hContact, 0, variables, 3);

+*)

+

+const

+  MIID_SPEAK = '{1ef72725-6a83-483b-aa50-8953e359eead}';

+

+  {*

+  Speak a text

+

+  wParam: (HANDLE) hContact

+  lParam: (AnsiChar *) text

+  return: 0 on success

+  *}

+  MS_SPEAK_SAY_A = 'Speak/Say';

+

+  {*

+  Speak a unicode text

+

+  wParam: (HANDLE) hContact

+  lParam: (WCHAR *) text

+  return: 0 on success

+  *}

+  MS_SPEAK_SAY_W = 'Speak/SayW';

+

+type

+  PSPEAK_TYPE = ^TSPEAK_TYPE;

+  TSPEAK_TYPE = record

+    cbSize: integer;

+	  module: PAnsiChar;

+	  name: PAnsiChar;					// Internal type name

+	  description: PAnsiChar;		// Will be translated

+	  icon: PAnsiChar;					// Name off icolib icon

+  	// Aditional data if wants to use add to history services

+	  templates: ^PAnsiChar;    // Each entry is: "Name\nDefault\n%var%\tDescription\n%var%\tDescription\n%var%\tDescription"

+	  numTemplates: integer;

+  end;

+

+const

+  {*

+  Register and speak type

+

+  wParam: (SPEAK_TYPE *) type

+  lParam: 0

+  return: 0 on success

+  *}

+  MS_SPEAK_REGISTER = 'Speak/Register';

+

+const

+  SPEAK_CHAR  = 1;

+  SPEAK_WCHAR = 2;

+

+type

+  PSPEAK_ITEM = ^TSPEAK_ITEM;

+  TSPEAK_ITEM = record

+    cbSize: integer;

+    _type: PAnsiChar;		      // Internal type name

+  	hContact: THandle;

+	  flags: integer;       // SPEAK_*

+	  templateNum: integer;	// -1 to use text

+    case boolean of

+      true:  (text: PAnsiChar);

+      false: (

+        variables: Pointer;

+        numVariables: integer;

+      );

+  end;

+

+const

+  {*

+  Speak a text

+

+  wParam: (SPEAK_ITEM *) Item

+  lParam: 0

+  return: 0 on success

+  *}

+  MS_SPEAK_SAYEX = 'Speak/SayEx';

+

+

+{$IFDEF I_AM_A_CONSTANT_THAT_IS_NEVER_DEFINED_BUT_ALLOWS_THE_CODE_BELOW_NOT_TO_BE_COMMENTED}

+// Helper functions

+

+static int Speak_SayA(HANDLE hContact, const AnsiChar *text)

+{

+	return CallService(MS_SPEAK_SAY_A, (WPARAM) hContact, (LPARAM) text);

+}

+

+static int Speak_SayW(HANDLE hContact, const WCHAR *text)

+{

+	return CallService(MS_SPEAK_SAY_W, (WPARAM) hContact, (LPARAM) text);

+}

+

+static int Speak_Register(AnsiChar *module, AnsiChar *name, AnsiChar *description, AnsiChar *icon)

+{

+	SPEAK_TYPE type;

+

+	if (!ServiceExists(MS_SPEAK_REGISTER))

+		return -1;

+

+	type.cbSize = sizeof(type);

+	type.module = module;

+	type.name = name;

+	type.description = description;

+	type.icon = icon;

+	type.templates = NULL;

+	type.numTemplates = 0;

+

+	return CallService(MS_SPEAK_REGISTER, (WPARAM) &type, 0);

+}

+

+static int Speak_RegisterWT(const AnsiChar *module, const AnsiChar *name, const AnsiChar *description,

+							const AnsiChar *icon, AnsiChar **templates, int numTemplates)

+{

+	SPEAK_TYPE type;

+

+	if (!ServiceExists(MS_SPEAK_REGISTER))

+		return -1;

+

+	type.cbSize = sizeof(type);

+	type.module = module;

+	type.name = name;

+	type.description = description;

+	type.icon = icon;

+	type.templates = templates;

+	type.numTemplates = numTemplates;

+

+	return CallService(MS_SPEAK_REGISTER, (WPARAM) &type, 0);

+}

+

+static int Speak_SayExA(AnsiChar *type, HANDLE hContact, const AnsiChar *text)

+{

+	SPEAK_ITEM item;

+

+	if (!ServiceExists(MS_SPEAK_SAYEX))

+		// Try old service

+		return Speak_SayA(hContact, text);

+

+	item.cbSize = sizeof(item);

+	item.flags = SPEAK_CHAR;

+	item.type = type;

+	item.hContact = hContact;

+	item.templateNum = -1;

+	item.text = text;

+

+	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

+}

+

+static int Speak_SayExW(AnsiChar *type, HANDLE hContact, const WCHAR *text)

+{

+	SPEAK_ITEM item;

+

+	if (!ServiceExists(MS_SPEAK_SAYEX))

+		// Try old service

+		return Speak_SayW(hContact, text);

+

+	item.cbSize = sizeof(item);

+	item.flags = SPEAK_WCHAR;

+	item.type = type;

+	item.hContact = hContact;

+	item.templateNum = -1;

+	item.text = text;

+

+	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

+}

+

+static int Speak_SayExWTA(AnsiChar *type, HANDLE hContact, int templateNum, AnsiChar **variables, int numVariables)

+{

+	SPEAK_ITEM item;

+

+	if (!ServiceExists(MS_SPEAK_SAYEX))

+		return -1;

+

+	item.cbSize = sizeof(item);

+	item.flags = SPEAK_CHAR;

+	item.type = type;

+	item.hContact = hContact;

+	item.templateNum = templateNum;

+	item.variables = variables;

+	item.numVariables = numVariables;

+

+	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

+}

+

+static int Speak_SayExWTW(AnsiChar *type, HANDLE hContact, int templateNum, WCHAR **variables, int numVariables)

+{

+	SPEAK_ITEM item;

+

+	if (!ServiceExists(MS_SPEAK_SAYEX))

+		return -1;

+

+	item.cbSize = sizeof(item);

+	item.flags = SPEAK_WCHAR;

+	item.type = type;

+	item.hContact = hContact;

+	item.templateNum = templateNum;

+	item.variables = variables;

+	item.numVariables = numVariables;

+

+	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

+}

+

+

+#ifdef UNICODE

+#  define MS_SPEAK_SAY MS_SPEAK_SAY_W

+#  define Speak_Say Speak_SayW

+#  define Speak_SayEx Speak_SayExW

+#  define Speak_SayExWT Speak_SayExWTW

+#else

+#  define MS_SPEAK_SAY MS_SPEAK_SAY_A

+#  define Speak_Say Speak_SayA

+#  define Speak_SayEx Speak_SayExA

+#  define Speak_SayExWT Speak_SayExWTA

+#endif

+

+{$ENDIF}

+{$ENDIF}