From 3ccd712341ed9e76252bd595c5a797d6c8ea8992 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Sat, 28 Jul 2012 18:35:29 +0000
Subject: Delphi API updates

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

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

diff --git a/include/delphi/m_database.inc b/include/delphi/m_database.inc
index 5ce91df2b3..784610fe3b 100644
--- a/include/delphi/m_database.inc
+++ b/include/delphi/m_database.inc
@@ -26,6 +26,23 @@ const
   MS_DB_GETPROFILEPATH :PAnsiChar = 'DB/GetProfilePath';
   MS_DB_GETPROFILEPATHW:PAnsiChar = 'DB/GetProfilePathW';
 
+  {
+  Sets the default profile name programmatically
+  Analog of Database/DefaultProfile in mirandaboot.ini
+    wParam = (WPARAM)(TCHAR*)ptszProfileName
+    lParam = 0 (unused)
+  }
+  MS_DB_SETDEFAULTPROFILE:PAnsiChar = 'DB/SetDefaultProfile';
+
+  {
+  Checks the specified profile like dbtool did.
+  Implemented in the dbchecker plugins, thus it might not exist
+    wParam = (WPARAM)(TCHAR*)ptszProfileName
+    lParam = 0 (unused)
+  }
+
+  MS_DB_CHECKPROFILE:PAnsiChar = 'DB/CheckProfile';
+
 type
   PDBCONTACTGETSETTING = ^TDBCONTACTGETSETTING;
   TDBCONTACTGETSETTING = record
-- 
cgit v1.2.3