diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2012-07-04 13:17:29 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2012-07-04 13:17:29 +0000 |
| commit | a5a3db4393d85407ff4c5668d88860e06158abd0 (patch) | |
| tree | bcc8f716833034e33984a539ab7d1debfdd6a7d3 /plugins/HistoryPlusPlus/hpp_messages.pas | |
| parent | 88ec2ae53ddc811d08763b2fb3a0073b571a321c (diff) | |
History++ sources upload (all files, no project)
git-svn-id: http://svn.miranda-ng.org/main/trunk@756 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/HistoryPlusPlus/hpp_messages.pas')
| -rw-r--r-- | plugins/HistoryPlusPlus/hpp_messages.pas | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/plugins/HistoryPlusPlus/hpp_messages.pas b/plugins/HistoryPlusPlus/hpp_messages.pas new file mode 100644 index 0000000000..96c061c14b --- /dev/null +++ b/plugins/HistoryPlusPlus/hpp_messages.pas @@ -0,0 +1,77 @@ +(*
+ History++ plugin for Miranda IM: the free IM client for Microsoft* Windows*
+
+ Copyright (C) 2006-2009 theMIROn, 2003-2006 Art Fedorov.
+ History+ parts (C) 2001 Christian Kastner
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+*)
+
+{-----------------------------------------------------------------------------
+ hpp_messages (historypp project)
+
+ Version: 1.0
+ Created: 31.03.2003
+ Author: Oxygen
+
+ [ Description ]
+
+ Some helper utilities to process messages
+
+ [ History ]
+ 1.0 (31.03.2003) - Initial version
+
+ [ Modifications ]
+
+ [ Knows Inssues ]
+ None
+
+ Contributors: theMIROn, Art Fedorov, Christian Kastner
+-----------------------------------------------------------------------------}
+
+
+unit hpp_messages;
+
+interface
+
+uses
+ Windows, m_api;
+
+function SendMessageTo(hContact: THandle; Text: String = ''): Boolean;
+//function ForwardMessage(Text: AnsiString): Boolean;
+
+implementation
+
+function SendMessageTo(hContact: THandle; Text: String): Boolean;
+var
+ buff: AnsiString;
+begin
+ if boolean(ServiceExists(MS_MSG_SENDMESSAGEW)) then
+ Result := (CallService(MS_MSG_SENDMESSAGEW,WPARAM(hContact),LPARAM(PChar(Text))) = 0)
+ else
+ begin
+ buff := AnsiString(Text);
+ Result := (CallService(MS_MSG_SENDMESSAGE,WPARAM(hContact),LPARAM(PAnsiChar(buff))) = 0);
+ if not Result then
+ Result := (CallService('SRMsg/LaunchMessageWindow',WPARAM(hContact),LPARAM(PAnsiChar(buff))) = 0);
+ end;
+end;
+
+{function ForwardMessage(Text: AnsiString): Boolean;
+begin
+ Result := (CallService(MS_MSG_FORWARDMESSAGE,0,LPARAM(PAnsiChar(Text)))=0);
+end;}
+
+end.
|