From a1d6cb7bdc354be0968c6ba5ac4615e14a90eead Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 18 May 2016 17:21:08 +0000 Subject: these tons of code aren't needed anymore... git-svn-id: http://svn.miranda-ng.org/main/trunk@16850 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_contacts.inc | 37 ++----------------------------------- 1 file changed, 2 insertions(+), 35 deletions(-) (limited to 'include/delphi') diff --git a/include/delphi/m_contacts.inc b/include/delphi/m_contacts.inc index 5381d41913..e6636c2e17 100644 --- a/include/delphi/m_contacts.inc +++ b/include/delphi/m_contacts.inc @@ -18,23 +18,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. {$IFNDEF M_CONTACTS} {$DEFINE M_CONTACTS} -type - PCONTACTINFO = ^TCONTACTINFO; - TCONTACTINFO = record - cbSize : int; - dwFlag : byte; - hContact: TMCONTACT; - szProto : PAnsiChar; - _type : byte; - retval: record // in C this is a nameless union - case longint of - 0: (bVal : byte); - 1: (wVal : word); - 2: (dVal : dword); - 3: (szVal : TChar); - 4: (cchVal: word); - end; - end; const @@ -90,23 +73,7 @@ const // you can get a function pointer to Miranda's free() via MS_SYSTEM_GET_MMI, see m_system.h CNF_DISPLAYNC = 17; -// Add this flag if you want to get the Unicode info - CNF_UNICODE = $80; - -// If MS_CONTACT_GETCONTACTINFO returns 0 (valid), then one of the following -// types is setting telling you what type of info you received - CNFT_BYTE = 1; - CNFT_WORD = 2; - CNFT_DWORD = 3; - CNFT_ASCIIZ = 4; - - { - wParam : not used - lParam : Pointer to an initialised TCONTACTINFO structure - affects: Get contact information - returns: Zero on success, non zero on failure. - notes : If successful, the type is set and the result is put into the associated member of TCONTACTINFO - } - MS_CONTACT_GETCONTACTINFO:PAnsiChar = 'Miranda/Contact/GetContactInfo'; +// result must be freed using mir_free +function Contact_GetInfo(iType:Integer; hContact:TMCONTACT; proto:PAnsiChar=0) : PWideChar; stdcall; external AppDLL; {$ENDIF} -- cgit v1.2.3