From 1e49d6b2cb3812d8e80051cbb3d44891e6532825 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Tue, 28 Mar 2017 14:55:06 +0300 Subject: funny, but without cbSize we have no need in MessageWindowInputData at all --- plugins/Utils.pas/mircontacts.pas | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'plugins/Utils.pas/mircontacts.pas') diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas index 293b954174..92dc6074e0 100644 --- a/plugins/Utils.pas/mircontacts.pas +++ b/plugins/Utils.pas/mircontacts.pas @@ -409,21 +409,18 @@ end; function WndToContact(wnd:HWND):TMCONTACT; var hContact:TMCONTACT; - mwid:TMessageWindowInputData; mwod:TMessageWindowOutputData; begin wnd:=GetParent(wnd); //!! hContact:=db_find_first(); - mwid.uFlags:=MSG_WINDOW_UFLAG_MSG_BOTH; while hContact<>0 do begin - mwid.hContact:=hContact; - if CallService(MS_MSG_GETWINDOWDATA,wparam(@mwid),lparam(@mwod))=0 then + if CallService(MS_MSG_GETWINDOWDATA,hContact,lparam(@mwod))=0 then begin if mwod.hwndWindow=wnd then begin - result:=mwid.hContact; + result:=hContact; exit; end end; -- cgit v1.2.3