diff options
| author | George Hazan <george.hazan@gmail.com> | 2013-06-17 22:37:15 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2013-06-17 22:37:15 +0000 |
| commit | 070ae988a2704d6bea4733e12f644f3d02e71b7f (patch) | |
| tree | 056758c3fe8adb386ee7fa40f94e1d0ae04dea5b /include/delphi | |
| parent | 6c4d35fca373a55252f4bce0bd0102f78eb67037 (diff) | |
ProtoBroadcastAck macro converted into a function
git-svn-id: http://svn.miranda-ng.org/main/trunk@5007 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi')
| -rw-r--r-- | include/delphi/m_core.inc | 4 | ||||
| -rw-r--r-- | include/delphi/m_helpers.inc | 16 |
2 files changed, 3 insertions, 17 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index 04801f8702..2ab7632acc 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -521,10 +521,12 @@ function mir_vsntprintf(buffer:pWideChar;count:size_t;fmt:pWideChar;va:va_list): ///////////////////////////////////////////////////////////////////////////////
// protocol functions
+function ProtoBroadcastAck(const szModule: PAnsiChar; hContact: THandle; type_: int; result_: int; hProcess: THandle; lParam: LPARAM): int_ptr; stdcall;
+ external CoreDLL name 'ProtoBroadcastAck';
+
function ProtoServiceExists(const szModule, szName:PAnsiChar):int; stdcall;
external CoreDLL name 'ProtoServiceExists';
-
///////////////////////////////////////////////////////////////////////////////
// sha1 functions
type
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 9c3881fe31..f14fab1727 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -38,7 +38,6 @@ procedure TranslateDialogDefault(hwndDlg: THandle); procedure TranslateMenu(hMenu: HMENU);
function Langpack_Register:int_ptr;
-function ProtoBroadcastAck(const szModule: PAnsiChar; hContact: THandle; type_: int; result_: int; hProcess: THandle; lParam: LPARAM): int_ptr;
function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
function Srmm_AddIcon (sid: PStatusIconData):int_ptr;
@@ -330,21 +329,6 @@ begin result:=CallService(MS_LANGPACK_REGISTER,WPARAM(@hLangpack),LPARAM(@PluginInfo));
end;
-
-function ProtoBroadcastAck(const szModule: PAnsiChar; hContact: THandle; type_: int; result_: int; hProcess: THandle; lParam: LPARAM): int_ptr;
-var
- ack: TACKDATA;
-begin
- ack.cbSize := sizeof(TACKDATA);
- ack.szModule := szModule;
- ack.hContact := hContact;
- ack._type := type_;
- ack._result := result_;
- ack.hProcess := hProcess;
- ack.lParam := lParam;
- Result := CallService(MS_PROTO_BROADCASTACK, 0, tlParam(@ack));
-end;
-
function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
var
szStr: array[0..MAXMODULELABELLENGTH*2] of AnsiChar;
|