[nixon232]

Снова попробую апнуть тему. Вот листинг. Как я понимаю, он не работает только у меня?

Код:

procedure GetScreen;
  var

    pt : TPoint;
    r  : TRect;
    h  : HWND;
    bit: TBitmap;
  begin
   try bit:=TBitmap.Create;

    h:=WindowFromPoint( Mouse.CursorPos );
    GetWindowRect( h, r );
//    Form2.Image1.Picture:=nil;
    bit:= CaptureScreenRect( r );
    form2.Image1.Picture.Bitmap:=bit; // вылетаем тут
  finally
  bit.Free;
   end;

И вылетает в это исключение

Код:

procedure TWinControl.MainWndProc(var Message: TMessage);
begin
  try
    try
      WindowProc(Message);
    finally
      FreeDeviceContexts;
      FreeMemoryContexts;
    end;
  except
    Application.HandleException(Self); // вот сюда.
  end;
end;

Что все-таки может быть?