From d6964f7bb1c2afc8d67905fa38ac9a3df766b807 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 17 Jun 2015 15:42:14 +0000 Subject: obsolete services extincted git-svn-id: http://svn.miranda-ng.org/main/trunk@14237 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_core.inc | 26 ------------ include/delphi/m_utils.inc | 103 ++++++++++++++++++++++----------------------- 2 files changed, 50 insertions(+), 79 deletions(-) (limited to 'include/delphi') diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index f8884d239a..fb3a57e2be 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -387,32 +387,6 @@ function GetInstByAddress(codePtr:pointer):HINST; stdcall; external CoreDLL name 'GetInstByAddress'; -/////////////////////////////////////////////////////////////////////////////// -// path utils - -procedure CreatePathToFile(wszFilePath:PAnsiChar); stdcall; - external CoreDLL name 'CreatePathToFile'; -function CreateDirectoryTree(const szDir:PAnsiChar):int; stdcall; - external CoreDLL name 'CreateDirectoryTree'; -function PathIsAbsolute(const pSrc:PAnsiChar):int; stdcall; - external CoreDLL name 'PathIsAbsolute'; -function PathToAbsolute(const pSrc:PAnsiChar; pOut:PAnsiChar; base:PAnsiChar=nil):int; stdcall; - external CoreDLL name 'PathToAbsolute'; -function PathToRelative(const pSrc:PAnsiChar; pOut:PAnsiChar; base:PAnsiChar=nil):int; stdcall; - external CoreDLL name 'PathToRelative'; - -procedure CreatePathToFileW(wszFilePath:PWideChar); stdcall; - external CoreDLL name 'CreatePathToFileW'; -function CreateDirectoryTreeW(const szDir:PWideChar):int; stdcall; - external CoreDLL name 'CreateDirectoryTreeW'; -function PathIsAbsoluteW(const pSrc:PWideChar):int; stdcall; - external CoreDLL name 'PathIsAbsoluteW'; -function PathToAbsoluteW(const pSrc:PWideChar; pOut:PWideChar; base:PWideChar=nil):int; stdcall; - external CoreDLL name 'PathToAbsoluteW'; -function PathToRelativeW(const pSrc:PWideChar; pOut:PWideChar; base:PWideChar=nil):int; stdcall; - external CoreDLL name 'PathToRelativeW'; - - /////////////////////////////////////////////////////////////////////////////// // print functions diff --git a/include/delphi/m_utils.inc b/include/delphi/m_utils.inc index d241a91aa3..dea6497f48 100644 --- a/include/delphi/m_utils.inc +++ b/include/delphi/m_utils.inc @@ -74,13 +74,6 @@ type ISOcode: array [0..2] of AnsiChar; end; - PWINDOWLISTENTRY = ^TWINDOWLISTENTRY; - TWINDOWLISTENTRY = record - hList : THANDLE; - hWnd : HWND; - hContact: TMCONTACT; - end; - PSAVEWINDOWPOS = ^TSAVEWINDOWPOS; TSAVEWINDOWPOS = record hWnd : HWND; @@ -274,59 +267,61 @@ const MS_UTILS_LOADBITMAP :PAnsiChar = 'Utils/LoadBitmap'; MS_UTILS_LOADBITMAPW:PAnsiChar = 'Utils/LoadBitmapW'; - { - wParam : byte length of buffer (not to be confused with byte range) - lParam : Pointer to buffer - Affect : Get the filter strings for use in the open file dialog, see notes - Returns: 0 on success [non zero] on failure - Notes : See the WINAPI under OPENFILENAME.lpStrFiler for formatting, - an 'All bitmaps' item is alway first, and 'All files' is always last - - - The returned string is always formatted - - - To build this filter, the filter string consists of - filter followed by a descriptive text - followed by more filters and their descriptive texts -- end with double NULL(0) - e.g. *.bmp' #0 'All bitmaps' #0 '*.*' #0 'All Files' #0 #0 - } - MS_UTILS_GETBITMAPFILTERSTRINGS :PAnsiChar = 'Utils/GetBitmapFilterStrings'; - MS_UTILS_GETBITMAPFILTERSTRINGSW:PAnsiChar = 'Utils/GetBitmapFilterStringsW'; - { - wParam : pszPath - lParam : pszNewPath - Affect : Saves a path to a relative path (from the miranda directory) - Only saves as a relative path if the file is in the miranda - directory (or sub directory) - Notes : pszPath is the path to convert and pszNewPath is the buffer that - the new path is copied too. pszNewPath MUST be of the size MAX_PATH. - Returns: numbers of chars copied. - } - MS_UTILS_PATHTORELATIVE :PAnsiChar = 'Utils/PathToRelative'; -//Unicode versions (0.6.2+) - MS_UTILS_PATHTORELATIVEW:PAnsiChar = 'Utils/PathToRelativeW'; +{ + Affect : Saves a path to a relative path (from the miranda directory) + Only saves as a relative path if the file is in the miranda + directory (or sub directory) + Notes : pszPath is the path to convert and pszNewPath is the buffer that + the new path is copied too. pszNewPath MUST be of the size MAX_PATH. + Returns: numbers of chars copied. +} - { - Affect : Saves a path to a absolute path (from the miranda directory) - wParam : pszPath - lParam : pszNewPath - Notes : pszPath is the path to convert and pszNewPath is the buffer that - the new path is copied too. pszNewPath MUST be of the size MAX_PATH. - Returns: numbers of chars copied. - } - MS_UTILS_PATHTOABSOLUTE :PAnsiChar = 'Utils/PathToAbsolute'; -//Unicode versions (0.6.2+) - MS_UTILS_PATHTOABSOLUTEW:PAnsiChar = 'Utils/PathToAbsoluteW'; +function PathToRelative(const pSrc:PAnsiChar; pOut:PAnsiChar; base:PAnsiChar=nil):int; stdcall; + external CoreDLL name 'PathToRelative'; +function PathToRelativeW(const pSrc:PWideChar; pOut:PWideChar; base:PWideChar=nil):int; stdcall; + external CoreDLL name 'PathToRelativeW'; + +{ + Affect : Saves a path to a absolute path (from the miranda directory) + Notes : pszPath is the path to convert and pszNewPath is the buffer that + the new path is copied too. pszNewPath MUST be of the size MAX_PATH. + Returns: numbers of chars copied. +} + +function PathToAbsolute(const pSrc:PAnsiChar; pOut:PAnsiChar; base:PAnsiChar=nil):int; stdcall; + external CoreDLL name 'PathToAbsolute'; +function PathToAbsoluteW(const pSrc:PWideChar; pOut:PWideChar; base:PWideChar=nil):int; stdcall; + external CoreDLL name 'PathToAbsoluteW'; { Creates a directory tree (even more than one directories levels are missing) 0.7.0+ - wParam=0 (unused) - lParam=pszPath - directory to be created Returns 0 on success error code otherwise - Unicode version is available since 0.7.0 } - MS_UTILS_CREATEDIRTREE :PAnsiChar = 'Utils/CreateDirTree'; - MS_UTILS_CREATEDIRTREEW:PAnsiChar = 'Utils/CreateDirTreeW'; + +function CreateDirectoryTree(const szDir:PAnsiChar):int; stdcall; + external CoreDLL name 'CreateDirectoryTree'; +function CreateDirectoryTreeW(const szDir:PWideChar):int; stdcall; + external CoreDLL name 'CreateDirectoryTreeW'; + +{ + Creates all subdirectories required to create a file with the file name given + Returns 0 on success or an error code otherwise +} + +procedure CreatePathToFile(wszFilePath:PAnsiChar); stdcall; + external CoreDLL name 'CreatePathToFile'; +procedure CreatePathToFileW(wszFilePath:PWideChar); stdcall; + external CoreDLL name 'CreatePathToFileW'; +{ + Checks if a file name is absolute or not + returns TRUE if yes or FALSE if not +} + +function PathIsAbsolute(const pSrc:PAnsiChar):int; stdcall; + external CoreDLL name 'PathIsAbsolute'; +function PathIsAbsoluteW(const pSrc:PWideChar):int; stdcall; + external CoreDLL name 'PathIsAbsoluteW'; { Generates Random number of any length @@ -334,6 +329,8 @@ const lParam=(LPARAM)(char*)pszArray - pointer to array to fill with random number Always returns 0 } + +const MS_UTILS_GETRANDOM:PAnsiChar = 'Utils/GetRandom'; //Replace variables in text -- cgit v1.2.3