¶ÁÊé DelphiÏÂÉîÈëWindowsºËÐıà³Ì µÚ¶þÌì
¼¼Êõ½»Á÷,DH½²½â. ½ñÌì½øÈëÕâÊéµÚ¶þÕ ¹³×Ó(HOOK).
ÏÈ˵˵¹³×ÓÊÇʲô?
¹³×ÓÆäʵ¾ÍÔÚÄã»·¾³ÖмÓÉÏÒ»²ã¹ýÂË,ÔÚÌØÊâÇé¿öϾʹ¥·¢¹³×ӻص÷º¯Êý.
±ÈÈç˵ÎÒÃÇ°²×°ÁËÈ«¾ÖµÄ¼üÅ̹³×Ó,ÄÇôµ±ÎÒÃÇ°´¶¯¼üÅÌÉÏÃæµÄ¼üµÄʱºò,¹³×ӵĻص÷º¯Êý¾Í»á´¥·¢.
ÎÒÃÇÒ²ÄÜ¿´µ½±¾À´ÊÇÖ±À´Ö±ÍùµÄ,½á¹ûÏÖÔÚÖм䰲װÁËÒ»²ã¹ýÂË,ϵͳµÄЧÂʿ϶¨»áÓÐËùϽµµÄ.
ÒªÁ˽â,ÎÒÃÇÖ»ÐèÒªÖªµÀ3¸öº¯Êý:
1 ÉϹ³º¯Êý: function SetWindowsHookEx(
idHook: Integer;//¹³×ÓµÄÀàÐÍ
lpfn: TFNHookProc; //»Øµ÷º¯ÊýÖ¸Õë
hmod: HINST; //Ò»°ãΪ0»òÕßInstance
dwThreadId: DWORD//È«¾Ö¹³×Ó¾ÍΪ0,²»È»¾ÍΪָ¶¨½ø³Ìid
): HHOOK; stdcall;//³É¹¦¾Í·µ»ØÒ»¸öÖµ,²»³É¹¦¾ÍΪ0
ÆäÖй³×ÓÀàÐÍÓÐ:
{$EXTERNALSYM WH_MIN}
WH_MIN = -1;
{$EXTERNALSYM WH_MSGFILTER}
WH_MSGFILTER = -1;
{$EXTERNALSYM WH_JOURNALRECORD}
WH_JOURNALRECORD = 0;
{$EXTERNALSYM WH_JOURNALPLAYBACK}
WH_JOURNALPLAYBACK = 1;
{$EXTERNALSYM WH_KEYBOARD}
WH_KEYBOARD = 2;
{$EXTERNALSYM WH_GETMESSAGE}
WH_GETMESSAGE = 3;
{$EXTERNALSYM WH_CALLWNDPROC}
WH_CALLWNDPROC = 4;
{$EXTERNALSYM WH_CBT}
WH_CBT = 5;
{$EXTERNALSYM WH_SYSMSGFILTER}
WH_SYSMSGFILTER = 6;
{$EXTERNALSYM WH_MOUSE}
WH_MOUSE = 7;
{$EXTERNALSYM WH_HARDWARE}
WH_HARDWARE = 8;
{$EXTERNALSYM WH_DEBUG}
WH_DEBUG = 9;
{$EXTERNALSYM WH_SHELL}
WH_SHELL = 10;
{$EXTERNALSYM WH_FOREGROUNDIDLE}
WH_FOREGROUNDIDLE = 11;
{$EXTERNALSYM WH_CALLWNDPROCRET}
WH_CALLWNDPROCRET = 12;
{$EXTERNALSYM WH_KEYBOARD_LL}
WH_KEYBOARD_LL = 13;
{$EXTERNALSYM WH_MOUSE_LL}
WH_MOUSE_LL = 14;
{$EXTERNALSYM WH_MAX}
WH_MAX = 14;
{$EXTERNALSYM WH_MINHOOK}
WH_MINHOOK = WH_MIN;
{$EXTERNALSYM WH_MAXHOOK}
WH_MAXHOOK = WH_MAX;
¾ßÌå×÷Óûù±¾ÉϾͿ´Ãû×Ö¾ÍÖªµÀ,¸ö±ðµÄÎÒÒ²²»ÖªµÀ,¾ßÌåµÄ´ó¼Ò¿´MSDN°É.Õâ¸öÊǸö¿û»¨±¦µä.
2 ж¹³º¯Êý:
function UnhookWindowsHookEx(
hhk: HHOOK//ÉϹ³º¯Êý·µ»ØµÄ¾ä±ú
): BOOL; stdcall;
3 ¾ßÌåµÄ¹³×ӻص÷º¯Êý:
TFNHookProc = function (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
ºÃµÄ˵ÁËÕâô¶à,¿´Àý×Ó:
Ïà¹ØÎĵµ£º
ÎÊÌâ±³¾°£º
¹«Ë¾Ï£ÍûʹÓÃMagentoÀ´½øÐнӵ¥£¬¶øºó°Ñ¶©µ¥µ¼Èëµ½Ò»¸öERPϵͳÖÐ(¶©µ¥´¦ÀíÒýÇæ)¡£
ÎÊÌ⣺
ÔÚʹÓÃWebService´ÓMagentoÖлñÈ¡PaymentÐÅϢʱ£¬ÐÅÓÿ¨ÊDZ»¼ÓÃܵÄ(·¨Âɹ涨²»ÔÊÐíÔÚÊý¾Ý¿âÖд洢ÐÅÓÿ¨µÄÃ÷ÎÄÐÅÏ¢)£¡
......
Delphi 7Ö®ºóµÄ°æ±¾£¬Ôö¼ÓÁËÔËËã·ûµÄÖØÔØ¡£ËäÈ»²»¾¡ÈËÒ⣨ÐèҪдÌض¨Ó¢ÎÄ£©£¬µ«ÓÐ×ܱÈûÓÐÇ¿¡£
Àý£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T3DPoint = record
X, Y, Z: Doub ......
°ÑÒÔÇ°×ö¹ýµÄÏîÄ¿×ܽáһϣ¡²Î¼Ó¹¤×÷ÒÔÀ´Ò»¹²ÓÃÈýÖÖ²»Í¬ÓïÑÔʵÏÖÁË»ñµÃÎļþ¼Ð¼°Æä×ÓÎļþÐÅÏ¢¡£ÎªÁË·½±ãÒÔºóʹÓÃ×ܽáÒ»ÏÂ
airʵÏÖ£º
private function getfile(filelist:File):Array{
var list:Array = filelist.getDirectoryListing();
var count:uint=list.length;
......
from : http://zhyhero.googlepages.com/heartset
file:0 Ç°ÑÔ
±¾ÎĵÄÄ¿µÄÔÚÓÚ²ÉÓÃÁ÷Ë®ÕË·½Ê½À´¼Ç¼ѧϰdelphi·ÃÎÊǶÈëʽÊý¾Ý¿âsqliteÖеÄһЩµãµÎ¡£»¶Ó¸÷λͬºÃ¹²Í¬Ñ§Ï°ºÍÅúÆÀÖ¸Õý¡£
file:1 ×¼±¸¹¤×÷part1
& ......
¡¡¡¡DelphiÓïÑÔ£¬ÎÞÂÛÊÇ´Ó¿ª·¢Ëٶȡ¢»¹ÊÇÔËÐÐËٶȡ¢»¹ÊDZàÒëËٶȡ¢»¹ÊDZàÒëÖ®ºóµÄÖ´ÐÐÎļþÌå»ý£¬¶¼ÊÇÊýÒ»Êý¶þµÄ¡£Òò´Ë±»×÷Ϊ¹²ÏíÈí¼þ¡¢¿ª·¢²úÆ·¡¢ÖÆ×÷“ÂÌÉ«Èí¼þ”µÄÊ×Ñ¡¡£µ«ÊÇ£¬ÓÉÓÚÖî¶àÔÒò£¬DelphiÖУ¬ÓÐһЩ¿Ø¼þ£¬´æÔÚһЩbug¡£²»ÂÛ¹ã´ó¼¼ÊõÈËÔ±ÈçºÎ·´Ó¦£¬Delphi¹Ù·½¾ÍÊÇ“ÊÓ¶ø²»¼û”¡£ÓÐÎÊÌ⣬È˼ ......