From 9e46759e7968e312841f7050a42f64808b4c0d22 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Mon, 8 Dec 2014 19:32:16 +0000 Subject: Awkward's private repo sync git-svn-id: http://svn.miranda-ng.org/main/trunk@11279 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/ExternalAPI/delphi/m_yamn.inc | 43 ++++++++++++++++------------------- 1 file changed, 19 insertions(+), 24 deletions(-) (limited to 'plugins/ExternalAPI/delphi/m_yamn.inc') diff --git a/plugins/ExternalAPI/delphi/m_yamn.inc b/plugins/ExternalAPI/delphi/m_yamn.inc index f18edb8d19..7ecaa5ae25 100644 --- a/plugins/ExternalAPI/delphi/m_yamn.inc +++ b/plugins/ExternalAPI/delphi/m_yamn.inc @@ -5,21 +5,16 @@ //================================== VARIABLES STRUCT ======================================== // -{$IFNDEF MIRANDASERVICE} -type - MIRANDASERVICE = function(WPARAM,LPARAM:int):int; cdecl; -{$ENDIF} - const YAMN_VARIABLESVERSION = 3; type PYAMN_VARIABLES = ^TYAMN_VARIABLES; TYAMN_VARIABLES = record - hInst:HINSTANCE; - MessageWnds:THANDLE; + hInst :HINST; + MessageWnds :THANDLE; NewMailAccountWnd:THANDLE; - Shutdown:int; + Shutdown :int; end; CYAMNVariables = TYAMN_VARIABLES; @@ -28,14 +23,14 @@ type // type CExportedFunctions = record - ID:PAnsiChar; + ID :PAnsiChar; Ptr:pointer; end; type CExportedServices = record - ID:PAnsiChar; - Ptr:MIRANDASERVICE; + ID :PAnsiChar; + Ptr:TMIRANDASERVICE; end; // @@ -45,14 +40,14 @@ type const //UninstallPlugin Event //Sent when user wants to uninstall YAMN and all its plugins - ME_YAMN_UNINSTALLPLUGINS = 'YAMN/MirandaEvents/UninstallPlugins'; + ME_YAMN_UNINSTALLPLUGINS:PAnsiChar = 'YAMN/MirandaEvents/UninstallPlugins'; //NewMail Event //Notifies you about new mail //no arguments now (Developers, send mail, which params would you like to have, but note there's problem that //params are 32b numbers. When it is pointer to some data, these data should persist while every plugin read them and //after that they can be removed from memory. So it is problem) - ME_YAMN_NEWMAIL = 'YAMN/MirandaEvents/NewMail'; + ME_YAMN_NEWMAIL:PAnsiChar = 'YAMN/MirandaEvents/NewMail'; // //================================== YAMN SERVICES ================================== @@ -74,26 +69,26 @@ const //WPARAM- function ID. It is string representating function you need to get pointer (e.g. YAMN_WRITEWAITID) //LPARAM- not used now, but set it to 0 //returns pointer to YAMN function or NULL when functions does not exist - MS_YAMN_GETFCNPTR = 'YAMN/Service/GetFcn'; + MS_YAMN_GETFCNPTR:PAnsiChar = 'YAMN/Service/GetFcn'; //GetVariables Service //Ask YAMN for pointer to CYAMNVariables structure. //WPARAM- YAMN_VARIABLESVERSION //LPARAM- any value //returns pointer to YAMN_VARIABLES or NULL when version of structure does not match - MS_YAMN_GETVARIABLES = 'YAMN/Service/GetVar'; + MS_YAMN_GETVARIABLES:PAnsiChar = 'YAMN/Service/GetVar'; //ForceCheck Service //Check mail on accounts //WPARAM- not used //LPARAM- not used - MS_YAMN_FORCECHECK = 'YAMN/Service/ForceCheck'; + MS_YAMN_FORCECHECK:PAnsiChar = 'YAMN/Service/ForceCheck'; //AccountCheck Service //Check mail on individual account //WPARAM- HACCOUNT //LPARAM- not used - MS_YAMN_ACCOUNTCHECK = 'YAMN/Service/AccountCheck'; + MS_YAMN_ACCOUNTCHECK:PAnsiChar = 'YAMN/Service/AccountCheck'; //Contact List Context Menu Click //wParam=(WPARAM)hContact @@ -103,7 +98,7 @@ const //it is upto the caller to check for the protocol & status //of the TMCONTACT, it's not done for you anymore since it didn't make //sense to store all this information in memory, etc. - MS_YAMN_CLISTCONTEXT = 'YAMN/Service/ClistContactContextMenu'; + MS_YAMN_CLISTCONTEXT:PAnsiChar = 'YAMN/Service/ClistContactContextMenu'; //Contact List Context Menu Click for application //wParam=(WPARAM)hContact @@ -113,7 +108,7 @@ const //it is upto the caller to check for the protocol & status //of the TMCONTACT, it's not done for you anymore since it didn't make //sense to store all this information in memory, etc. - MS_YAMN_CLISTCONTEXTAPP = 'YAMN/Service/ClistContactContextMenuApp'; + MS_YAMN_CLISTCONTEXTAPP:PAnsiChar = 'YAMN/Service/ClistContactContextMenuApp'; //Contact List Double Click //wParam=(WPARAM)hContact @@ -123,34 +118,34 @@ const //it is upto the caller to check for the protocol & status //of the TMCONTACT, it's not done for you anymore since it didn't make //sense to store all this information in memory, etc. - MS_YAMN_CLISTDBLCLICK = 'YAMN/Service/ClistContactDoubleclicked'; + MS_YAMN_CLISTDBLCLICK:PAnsiChar = 'YAMN/Service/ClistContactDoubleclicked'; //FilterMail Service //Ask YAMN to process mail filtering. YAMN calls filter plugins to mark mail as spam etc... Warning! Leave all //read or write access to mail as this function waits for write-access to mail! //WPARAM- (HACCOUNT) account to which mail belongs //LPARAM- (HYAMNMAIL) mail to filter - MS_YAMN_FILTERMAIL = 'YAMN/Service/FilterMail'; + MS_YAMN_FILTERMAIL:PAnsiChar = 'YAMN/Service/FilterMail'; //MailBrowser Service //runs mail browser window (or tray icon only or popups only) //WPARAM- pointer to YAMN_MAILBROWSERPARAM structure, data to mailbrowser. You do not need to fill ThreadRunningEV event member. //LPARAM- YAMN_MAILBROWSERPARAM structure version param. Use YAMN_MAILBROWSERVERSION definition. //returns zero if failed, nonzero if succeed - MS_YAMN_MAILBROWSER = 'YAMN/Service/RunMailBrowser'; + MS_YAMN_MAILBROWSER:PAnsiChar = 'YAMN/Service/RunMailBrowser'; //NoNewMail Service //runs no new mail procedure (shows popups e.g.) //WPARAM- pointer to YAMN_NONEWMAILPARAM structure, data to no new mail procedure. You do not need to fill ThreadRunningEV event member. //LPARAM- YAMN_NONEWMAILPARAM structure version param. Use YAMN_NONEWMAILVERSION definition. //returns zero if failed, nonzero if succeed - MS_YAMN_NONEWMAILPROC = 'YAMN/Service/NoNewMailProc'; + MS_YAMN_NONEWMAILPROC:PAnsiChar = 'YAMN/Service/NoNewMailProc'; //BadConnection Service //runs bad connection window //WPARAM- pointer to YAMN_BADCONNECTIONPARAM structure, data to mailbrowser. You do not need to fill ThreadRunningEV event member. //LPARAM- YAMN_BADCONNECTIONPARAM structure version param. Use YAMN_BADCONNECTIONVERSION definition. //returns zero if failed, nonzero if succeed - MS_YAMN_BADCONNECTION = 'YAMN/Service/BadConnection'; + MS_YAMN_BADCONNECTION:PAnsiChar = 'YAMN/Service/BadConnection'; {$ENDIF} -- cgit v1.2.3