![]() Procedure TForm1.Button2Click(Sender: 0) Procedure TForm1.Button1Click(Sender: 1) really in a hook chain, but it's standard for a Hook} Result := CallNextHookEx( hJHook, Code, wParam, the CallNextHookEX is not really needed for journal hook since it it not this is the JournalRecordProc, which has a TEVENTMSG with the messages in it} Procedure TForm1.FormClose(Sender: TObject var Action: TCloseAction) įunction JhookProc(Code, wParam: Integer var EventStrut: TEVENTMSG): Integer stdcall If (Window = ) or (Window = ) or (Window = ) or (Window = ) then exit Window := RealChildWindowFromPoint(Window, Point( - Rect.Left - GetSystemMetrics(SM_CXEDGE) - GetSystemMetrics(SM_CXBORDER) - 1, - Rect.Top - GetSystemMetrics(SM_CYCAPTION) - GetSystemMetrics(SM_CYEDGE) - GetSystemMetrics(SM_CYBORDER) - 1)) Procedure TForm1.Timer1Timer(Sender: TObject) Procedure btnStartClick(Sender: TObject) Procedure FormClose(Sender: TObject var Action: TCloseAction) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,ĮxtCtrls, StdCtrls, Dialogs, Types, Math, DBCtrls user must be able to move cursor around screen and then a border apear around object or window that cursur over it!Ī Known feature that you can find in almost all capture program like SnagIt(HyperSnap DX (), etc! Procedure TForm1.I want write a program that user able to capture a window or a object on screen. Procedure DrawHighLightedRectangle(p InValidate PreRectang le: Boolean HighLight: Boolean) įunction Call_Back_RepaintAll(hand: HWND Lpa:L PARAM):Boo l stdcall Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Procedure TForm2.Timer1Timer(Sender: TObject) įor 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!ĭont forget to click on Button1 for enable all windoews otherwise you will unable to access to opened windows!ĭoes anybody can consider the source code and help me? ![]() Procedure TForm2.FormResize(Sender: TObject) TempRegion := CreateRectRgnIndirect(Rect ) ĬombineRgn(FormRegion, FormRegion, TempRegion, RGN_OR) OffsetRect(Rect, ClientOrigin.X - Left, ClientOrigin.Y - Top) Procedure TForm1.Button2Click(Sender : oc, 0) Procedure TForm1.Button1Click(Sender : oc, 1) Window := RealChildWindowFromPoint(W indow, Point( - Rect.Left - GetSystemMetrics(SM_CXEDGE ) - GetSystemMetrics(SM_CXBORD ER) - 1, - Rect.Top - GetSystemMetrics(SM_CYCAPT ION) - GetSystemMetrics(SM_CYEDGE ) - GetSystemMetrics(SM_CYBORD ER) - 1)) Window := WindowFromPoint(Point(Mous e.CursorPo s.X, )) user must be able to move cursor around screen and then a border apear around object or window that cursur over it!Ī Known feature that you can find in almost all capture program like SnagIt( HyperSnap DX ( ), etc! I want write a program that user able to capture a window or a object on screen.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |