大虾们 关于API的一个 问题 （在线等待）

Question

我遇到 一个关于获取屏幕的背景的一个区域的问题  我先用GETDC（0）获得整个屏幕的背景 我 在桌面上点击一下鼠标获取一个鼠标然后拖动鼠标画一个矩形然后在整个背景上截取这个矩形图案，我查过一些也许是MSDN用的不熟没找到第二个
我需要两个函数
 一个得到点击出的屏幕坐标
 一个得到我拖动矩形的长和高
  谢谢

Answer 1

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var iDeltaX,iDeltaY:integer;
begin
  if ssLeft in Shift then
  begin
    iDeltaX:= X - iX0;
    iDeltaY:= Y- iY0;
    if iDeltaX<>0 then
      ....................;
    if iDeltaY<>0 then
      ....................;
  end;
end;

Answer 2

我要得 是 在 WINDOWS  下的那个鼠标划的矩形