Hi,
Can you please explain further why you want SIP icon? I`m just trying to understand.
Why not show directly input panel aligned to the bottom of the screen?
Try to look @ following 3 methods:
procedure TfrmMain.ActiveControlChanged (Sender: TObject) ;
procedure MoveSipImToBottom;
var
rect : TRECT;
hSipIM: HANDLE = 0;
begin
hSipIm := FindWindow('SipWndClass', nil);
if hSipIm > 0 then
if GetWindowRect(hSipIM, rect) then begin
MoveWindow(hSipIM, rect.Left, GetSystemMetrics(SM_CYSCREEN) - (rect.Bottom - rect.Top), rect.Right - Rect.Left, rect.Bottom - rect.Top, True);
end;
end;
procedure MoveSipImToOriginalPosition;
var
rect : TRECT;
hSipIM: HANDLE = 0;
begin
hSipIm := FindWindow('SipWndClass', nil);
if hSipIm > 0 then
if GetWindowRect(hSipIM, rect) then begin
MoveWindow(hSipIM, rect.Left, GetSystemMetrics(SM_CYSCREEN) - (rect.Bottom - rect.Top) - 25, rect.Right - Rect.Left, rect.Bottom - rect.Top, True);
end;
end;
PS: ActiveControl method - you need to implement your own...
V.