Capturing an object or window on screen!

Hi!

I want write a program that user able to capture a window or a object on screen. user must be able to move cursor around screen and then a border apear around object or window that cursur over it!
A Known feature that you can find in almost all capture program like SnagIt(www.techsmith.com), HyperSnap DX (http://www.hyperionics.com), etc!

My Idea was this code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ExtCtrls, StdCtrls, Dialogs, Types, Math, DBCtrls;

type
  TForm1 = class(TForm)
    img: TImage;
    btnStart: TButton;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnStartClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  TickTime: Cardinal;
  hJHook: THandle;
  Hooked: Boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Window, WindowTemp: HWND;
  Rect: TRect;
  WindowText: array [0..1024] of char;
begin
  Window := WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));
  GetWindowRect(Window, Rect);
  GetClassName(Window, WindowText, 1024);

  Window := RealChildWindowFromPoint(Window, Point(Mouse.CursorPos.X - Rect.Left - GetSystemMetrics(SM_CXEDGE) - GetSystemMetrics(SM_CXBORDER) - 1, Mouse.CursorPos.Y - Rect.Top - GetSystemMetrics(SM_CYCAPTION) - GetSystemMetrics(SM_CYEDGE) - GetSystemMetrics(SM_CYBORDER) - 1));


  GetClassName(Window, WindowText, 1024);
  GetWindowRect(Window, Rect);

  if (Window = Form2.TopPanel.Handle) or (Window = Form2.BottomPanel.Handle) or (Window = Form2.RightPanel.Handle) or (Window = Form2.LeftPanel.Handle) then exit;

  GetWindowRect(Window, Rect);

  Form2.BoundsRect := Rect;
  Form2.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnhookWindowsHookEx(hJHook);
end;

function JhookProc(Code, wParam: Integer; var EventStrut: TEVENTMSG): Integer; stdcall;
var
  ScreenDC: THandle;
  Bitmap: TBitmap;
  R: TRect;
begin
  // this is the JournalRecordProc, which has a TEVENTMSG with the messages in it}
  Result := CallNextHookEx( hJHook, Code, wParam, Integer(@EventStrut));
  // the CallNextHookEX is not really needed for journal hook since it it not
  // really in a hook chain, but it's standard for a Hook}
  if Code < 0 then exit;
  if Code = HC_ACTION then
  begin
    if (EventStrut.message = WM_LBUTTONDOWN) then
      TickTime := GetTickCount// on the L button down get the tick time}
    else
      // to make sure it is a click and not a drag and drop
      // test the tick time, then Take a Picture
      if (EventStrut.message = WM_LBUTTONUP) and (GetTickCount - TickTime < 400) then
      begin
        Form1.Timer1.Enabled := False;


        GetWindowRect(Form2.Handle, R);
        Application.ProcessMessages;
        ScreenDC := GetDC(0);
        Bitmap := TBitmap.Create;
        Bitmap.Width := R.Right;
        Bitmap.Height := R.Bottom;
        BitBlt(Bitmap.Canvas.Handle, 0, 0, R.Right - R.Left, R.Bottom - R.Top, ScreenDC, R.Left, R.Top, SRCCOPY);
        Form1.Show;
        Form1.img.Picture.Bitmap := Bitmap;

        // this button click Ends the J Hook
        UnhookWindowsHookEx(hJHook);
        Hooked := False;
      end;
  end;
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
  // this button click starts the J Hook
  if Hooked then
  begin
    MessageBox(0, 'Mouse tracking has already been started', 'No can Restart', MB_OK or MB_ICONQUESTION);
    exit;
  end;
  hJHook := SetWindowsHookEx(WH_JOURNALRECORD , @JhookProc, hInstance, 0);
  if hJHook > 0 then Hooked := True;
  Hide;
  Timer1.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc, 0);
end;

end.

-------------------> form2 untis:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm2 = class(TForm)
    TopPanel: TPanel;
    RightPanel: TPanel;
    BottomPanel: TPanel;
    LeftPanel: TPanel;
    Timer1: TTimer;
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure MakeTransparent;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Types;

{$R *.dfm}

procedure TForm2.MakeTransparent;
var
   FormRegion, TempRegion: HRGN;
   i: Integer;
   Rect: TRect;
Begin
     FormRegion := 0;
     for i := 0 to ControlCount - 1 do
     begin
          Rect := Controls[i].BoundsRect;
          OffsetRect(Rect, ClientOrigin.X - Left, ClientOrigin.Y -  Top);
          TempRegion := CreateRectRgnIndirect(Rect);
          if FormRegion = 0 then
             FormRegion := TempRegion
          else
          begin
               CombineRgn(FormRegion, FormRegion, TempRegion, RGN_OR);
               DeleteObject(TempRegion);
          end;
     end;
     DeleteObject(TempRegion);
     SetWindowRgn(Handle, FormRegion, True);
end;

procedure TForm2.FormResize(Sender: TObject);
begin
     MakeTransparent;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
     if TopPanel.Height = 4 then
     begin
          TopPanel.Height := 0;
          BottomPanel.Height := 0;
          LeftPanel.Width := 0;
          RightPanel.Width := 0;
          MakeTransparent;
     end
     else
     begin
          TopPanel.Height := 4;
          BottomPanel.Height := 4;
          LeftPanel.Width := 4;
          RightPanel.Width := 4;
          MakeTransparent;
     end;
end;

end.

---------------> and it's DFM:
object Form2: TForm2
  Left = 204
  Top = 74
  BorderStyle = bsNone
  Caption = 'Form2'
  ClientHeight = 407
  ClientWidth = 430
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 430
    Height = 3
    Align = alTop
    BevelOuter = bvNone
    Color = 8388863
    TabOrder = 0
  end
  object RightPanel: TPanel
    Left = 427
    Top = 3
    Width = 3
    Height = 401
    Align = alRight
    BevelOuter = bvNone
    Color = 8388863
    TabOrder = 1
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 404
    Width = 430
    Height = 3
    Align = alBottom
    BevelOuter = bvNone
    Color = 8388863
    TabOrder = 2
  end
  object LeftPanel: TPanel
    Left = 0
    Top = 3
    Width = 3
    Height = 401
    Align = alLeft
    BevelOuter = bvNone
    Color = 8388863
    TabOrder = 3
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer1Timer
    Left = 8
    Top = 8
  end
end

for testing this program at first click at "Button2"! This button disable all of window currently are avaialable then press Start Capture! When you clicked on your desired window, it captured!
Dont forget to click on Button1 for enable all windoews otherwise you will unable to access to opened windows!

Does anybody can consider the source code and help me?

Thankx