2 files changed, 10 insertions, 2 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index 6424d47ebb..2f9401e63d 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -80,6 +80,11 @@ function db_free(dbv:PDBVARIANT):int_ptr; stdcall;
 function db_unset(hContact:THANDLE; const szModule:pAnsiChar; const szSetting:pAnsiChar):int_ptr; stdcall;
                   external CoreDLL name 'db_unset';
 
+function db_find_first(const szModule:pAnsiChar=nil):THANDLE; stdcall;
+                 external CoreDLL name 'db_find_first';
+function db_find_next(hContact:THANDLE; const szModule:pAnsiChar=nil):THANDLE; stdcall;
+                  external CoreDLL name 'db_find_next';
+
 function db_get_b(hContact:THANDLE; const szModule:pAnsiChar; const szSetting:pAnsiChar; errorValue:int):int; stdcall;
                   external CoreDLL name 'db_get_b';
 function db_get_w(hContact:THANDLE; const szModule:pAnsiChar; const szSetting:pAnsiChar; errorValue:int):int; stdcall;
@@ -286,9 +291,9 @@ function mir_hash(const key:pointer; len:uint):uint; stdcall;
 type
   TFSortFunc = function (para1:pointer; para2:pointer):int;cdecl;
 {
-// Assumes first 32 bit value of the data is the numeric key 
+// Assumes first 32 bit value of the data is the numeric key
 // and uses it to perform sort/search operations, this results
-// in much better performance as no compare function calls needed 
+// in much better performance as no compare function calls needed
 // Incredibly useful for Hash Tables
 }
 const
diff --git a/include/m_core.h b/include/m_core.h
index e617b0ca98..0deec3269b 100644
--- a/include/m_core.h
+++ b/include/m_core.h
@@ -87,6 +87,9 @@ typedef struct {
 MIR_CORE_DLL(INT_PTR) db_free(DBVARIANT *dbv);
 MIR_CORE_DLL(INT_PTR) db_unset(HANDLE hContact, const char *szModule, const char *szSetting);
 
+MIR_CORE_DLL(HANDLE)  db_find_first(const char *szProto = NULL);
+MIR_CORE_DLL(HANDLE)  db_find_next(HANDLE hContact, const char *szProto = NULL);
+
 MIR_CORE_DLL(int)     db_get_b(HANDLE hContact, const char *szModule, const char *szSetting, int errorValue);
 MIR_CORE_DLL(int)     db_get_w(HANDLE hContact, const char *szModule, const char *szSetting, int errorValue);
 MIR_CORE_DLL(DWORD)   db_get_dw(HANDLE hContact, const char *szModule, const char *szSetting, DWORD errorValue);