CreatePolygonRgn ,得不到句柄，下面是代码，进行多边形剪裁，帮忙看一下，谢谢,

Question

procedure TScreenForm.ImageFullScreenDblClick(Sender: TObject);
var
  pointArr:array of TPoint;
  p       :pNode;
  i       :integer;
  polyRgn :HRGN;
  w       :integer;
  h       :integer;
  xMin    :integer;
  xMax    :integer;
  yMin    :integer;
  yMax    :integer;
  bmp     :TBitmap;
  errCode :integer;
begin
  if (dbClick=false) and (la^.dotCount>2) then begin
    dbClick:=true;
    with canvas do begin
      MoveTo(FirstPoint.X,FirstPoint.Y);
      LineTo(PastPoint.X,PastPoint.Y);
    end;
    setlength(pointArr,la^.dotCount);
    p:=la^.next;    for i:=0 to la^.dotCount-1 do begin
      pointArr[i]:=p^.pos;
      p:=p^.next;
    end;    xMin:=GetXMin(la);
    xMax:=GetXMax(la);
    yMin:=GetYMin(la);
    yMax:=GetYMax(la);
    w:=xMax-xMin;
    h:=yMax-yMin;    ClipBmp.Width:=w;
    ClipBmp.Height:=h;    bmp:=TBitmap.Create;
    bmp.Width:=w;
    bmp.Height:=h;
    bmp.Canvas.CopyRect(Rect(0,0,bmp.Width,bmp.Height),
                     ImageFullScreen.Canvas,
                     Rect(xMin,yMin,xMax,yMax));    //就是这里polyRgn为0;
    polyRgn:=CreatePolygonRgn(pointArr,la^.dotCount,WINDING);
    errCode:=GetLastError();
    SelectClipRgn(clipBmp.Canvas.Handle,polyRgn);
    ClipBmp.Canvas.Draw(0,0,bmp);    MainForm.ImagePreview.Picture.Bitmap:=ClipBmp;
    MainForm.Show;
    MainForm.PanelPreviewResize(Sender);
    close;  end;
end;