Delphi 判断鼠标在别的应用程序上的形状

Question

请问各位前辈怎样能够判断鼠标在别的应用程序上的形状？还有怎样移动别的应用程序位置？谢谢啦~

Answer 1

procedure GetcursorIcon;
var
   ico:TIcon;
   point:TPoint;
begin
    GetCursorPos(point);
    point:=ScreenToClient(point);
    ico:=TIcon.Create;
    ico.Handle:=GetCursor();
    Canvas.Draw(point.X,point.Y,ico);
    ico.Free;
end;
这么点分数就想要问这种问题.要不是因为今天是平安夜鬼来理你.

Answer 2

取鼠标位置最简单的方法：showmessage('鼠标X：'+inttostr(mouse.CursorPos.X));
showmessage('鼠标Y：'+inttostr(mouse.CursorPos.Y));

Answer 3

移动窗口var
h:hwnd;
r:trect;  h:=findwindow('TForm','Form1');
  if h<>0 then
  begin
    getwindowrect(h,r);
    MoveWindow(h, r.Left, r.Top, r.Right, r.Bottom, True);
  end;