From 0a1ec91589a265b41210068b8d21fa469e750a08 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Thu, 14 Aug 2014 12:12:35 +0000
Subject: account creation code extracted to the separate service function,
 MS_PROTO_CREATEACCOUNT

git-svn-id: http://svn.miranda-ng.org/main/trunk@10181 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_protocols.inc | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

(limited to 'include/delphi/m_protocols.inc')

diff --git a/include/delphi/m_protocols.inc b/include/delphi/m_protocols.inc
index 9cf6007b4f..ef17ae9dff 100644
--- a/include/delphi/m_protocols.inc
+++ b/include/delphi/m_protocols.inc
@@ -273,20 +273,29 @@ type
   end;
   tagACCOUNT = TPROTOACCOUNT;
 
-const
 //account enumeration service
 //wParam=(WPARAM)(int)piNumAccounts
 //lParam=(LPARAM)(PROTOACCOUNT**)paAccounts
+const
   MS_PROTO_ENUMACCOUNTS:PAnsiChar = 'Proto/EnumAccounts';
 
-  MS_PROTO_ENUMPROTOS   :PAnsiChar = 'Proto/EnumProtos';   // MIRANDA_VER >= $800
-//  MS_PROTO_ENUMPROTOCOLS:PAnsiChar = 'Proto/EnumProtocols';// MIRANDA_VER < $800
+  MS_PROTO_ENUMPROTOS:PAnsiChar = 'Proto/EnumProtos';   // MIRANDA_VER >= $800
+
+type
+  PACC_CREATE = ^ACC_CREATE;
+  ACC_CREATE = record
+	 pszBaseProto   :PAnsiChar;
+    pszInternal    :PAnsiChar;
+    ptszAccountName:PWideChar;
+  end;
+
+const
+// creates new account
+// wParam = 0
+// lParam = (LPARAM)(ACC_CREATE*) account definition
+// return value = PROTOACCOUNT* or NULL
+  MS_PROTO_CREATEACCOUNT:PAnsiChar = 'Proto/CreateAccount';
 
-(*
-__inline int ProtoEnumAccounts( int* accNumber, PROTOACCOUNT*** accArray )
-{  return CallService( MS_PROTO_ENUMACCOUNTS, ( WPARAM )accNumber, (LPARAM)accArray );
-}
-*)
 //retrieves an account's interface by its physical name (database module)
 //wParam=0
 //lParam=(LPARAM)(AnsiChar*)szAccountName
-- 
cgit v1.2.3