diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2012-06-29 06:56:07 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2012-06-29 06:56:07 +0000 |
| commit | a2795725f5afc756a405a85c192bdd53b967999d (patch) | |
| tree | 08548adc194d0c2a960120a342bac02208c3e23f /plugins/Pascal_Headers/m_contacts.inc | |
| parent | af7e438cfe8ce85e1da234318ed1584e89d952cc (diff) | |
Added my Miranda API pascal version
Changed ShlExt to my API compilation (32 bit FPC now only)
git-svn-id: http://svn.miranda-ng.org/main/trunk@679 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Pascal_Headers/m_contacts.inc')
| -rw-r--r-- | plugins/Pascal_Headers/m_contacts.inc | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/plugins/Pascal_Headers/m_contacts.inc b/plugins/Pascal_Headers/m_contacts.inc new file mode 100644 index 0000000000..cef88c4b38 --- /dev/null +++ b/plugins/Pascal_Headers/m_contacts.inc @@ -0,0 +1,112 @@ +{
+Miranda IM
+
+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_CONTACTS}
+{$DEFINE M_CONTACTS}
+type
+ PCONTACTINFO = ^TCONTACTINFO;
+ TCONTACTINFO = record
+ cbSize : int;
+ dwFlag : Byte;
+ hContact: THandle;
+ 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
+
+// CNF_* Types of information you can retreive by setting the dwFlag in CONTACTINFO
+
+ CNF_FIRSTNAME = 1; // returns first name (string)
+ CNF_LASTNAME = 2; // returns last name (string)
+ CNF_NICK = 3; // returns nick name (string)
+ CNF_CUSTOMNICK = 4; // returns custom nick name, clist name (string)
+ CNF_EMAIL = 5; // returns email (string)
+ CNF_CITY = 6; // returns city (string)
+ CNF_STATE = 7; // returns state (string)
+ CNF_COUNTRY = 8; // returns country (string)
+ CNF_PHONE = 9; // returns phone (string)
+ CNF_HOMEPAGE = 10; // returns homepage (string)
+ CNF_ABOUT = 11; // returns about info (string)
+ CNF_GENDER = 12; // returns gender (byte,'M','F' character)
+ CNF_AGE = 13; // returns age (byte, 0==unspecified)
+ CNF_FIRSTLAST = 14; // returns first name + last name (string)
+ CNF_UNIQUEID = 15; // returns uniqueid, protocol username (must check type for type of return)
+ CNF_FAX = 18; // returns fax (string)
+ CNF_CELLULAR = 19; // returns cellular (string)
+ CNF_TIMEZONE = 20; // returns timezone (string)
+ CNF_MYNOTES = 21; // returns user specified notes (string)
+ CNF_BIRTHDAY = 22; // returns birthday day of month (byte)
+ CNF_BIRTHMONTH = 23; // returns birthday month (byte)
+ CNF_BIRTHYEAR = 24; // returns birthday year (word)
+ CNF_STREET = 25; // returns street (string)
+ CNF_ZIP = 26; // returns zip code (string)
+ CNF_LANGUAGE1 = 27; // returns language1 (string)
+ CNF_LANGUAGE2 = 28; // returns language2 (string)
+ CNF_LANGUAGE3 = 29; // returns language3 (string)
+ CNF_CONAME = 30; // returns company name (string)
+ CNF_CODEPT = 31; // returns company department (string)
+ CNF_COPOSITION = 32; // returns company position (string)
+ CNF_COSTREET = 33; // returns company street (string)
+ CNF_COCITY = 34; // returns company city (string)
+ CNF_COSTATE = 35; // returns company state (string)
+ CNF_COZIP = 36; // returns company zip code (string)
+ CNF_COCOUNTRY = 37; // returns company country (string)
+ CNF_COHOMEPAGE = 38; // returns company homepage (string)
+ CNF_DISPLAYUID = 39; // returns uniqueid to display in interface (must check type for type of return)
+
+// Special types
+// Return the custom name using the name order setting
+// IMPORTANT: When using CNF_DISPLAY you MUST free the string returned
+// You must **NOT** do this from your version of free() you have to use Miranda's free()
+// you can get a function pointer to Miranda's free() via MS_SYSTEM_GET_MMI, see m_system.h
+ CNF_DISPLAY = 16;
+// Same as CNF_DISPLAY except the custom handle is not used
+// IMPORTANT: When using CNF_DISPLAYNC you MUST free the string returned
+// You must **NOT** do this from your version of free() you have to use Miranda's free()
+// 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';
+
+{$ENDIF}
|