From 3ccd712341ed9e76252bd595c5a797d6c8ea8992 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov 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_core.inc | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'include/delphi/m_core.inc') diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index 4a7b6480f0..1923840366 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -27,6 +27,16 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. const CoreDLL = 'mir_core.dll'; +/////////////////////////////////////////////////////////////////////////////// +// command line support + +// Parse ptszCmdLine. it must NOT be a constant (content will be patched) +procedure CmdLine_Parse(ptszCmdLine:PWideChar); stdcall; + external CoreDLL name 'CmdLine_Parse'; + +function CmdLine_GetOption(ptszParameter:PWideChar):PWideChar; stdcall; + external CoreDLL name 'CmdLine_GetOption'; + /////////////////////////////////////////////////////////////////////////////// // database functions @@ -530,6 +540,9 @@ function Utf8EncodeW(const src:PWideChar):PAnsiChar;stdcall; function Ucs2toUtf8Len(const src:pWideChar):int; stdcall; external CoreDLL name 'Ucs2toUtf8Len'; + +function Utf8CheckString(const astr:PAnsiChar):bool;stdcall; + external CoreDLL name 'Utf8CheckString'; } // aliases function mir_utf8decode(str:PAnsiChar; var ucs2:pWideChar):PAnsiChar;stdcall; @@ -550,6 +563,8 @@ function mir_utf8encodew(const src:PWideChar):PAnsiChar;stdcall; function mir_utf8lenW(const src:pWideChar):int; stdcall; external CoreDLL name 'Ucs2toUtf8Len'; +function mir_utf8checkstring(const astr:PAnsiChar):bool;stdcall; + external CoreDLL name 'Utf8CheckString'; /////////////////////////////////////////////////////////////////////////////// -- cgit v1.2.3