Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VCµÄÔ´Â룡°ïæ·­Òë³Édelphi£¬ºÜ¼òµ¥µÄ¼¸¾ä£¡

http://good.gd/348868.htm
Õâ¸öÊÇÔ´ÂëÁË£¡¸ßÊÖ°ïæһÏ£¬Ð»Ð»
?

??


Â¥Ö÷Äܲ»ÄܰѴúÂëÌù³öÀ´£¿

¸Ð¾õÊÇÔÚË¢¹ã¸æ

// RegisterHookDlg.cpp : ʵÏÖÎļþ
//

#include "stdafx.h"
#include "RegisterHook.h"
#include "RegisterHookDlg.h"
#include ".\registerhookdlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif

typedef DWORD (CALLBACK * USERAPIHOOKPROC)(HINSTANCE hInstance, FARPROC *fnUserApis);
typedef DWORD (WINAPI * SYS_RegisterUserApiHookXP)(HINSTANCE hInstance, USERAPIHOOKPROC fnUserApiHook);
typedef BOOL  (WINAPI *  SYS_UnregisterUserApiHook)(VOID);

SYS_RegisterUserApiHookXP RegisterUserApiHookXP = NULL;
SYS_UnregisterUserApiHook UnregisterUserApiHook = NULL;

HMODULE g_hModule = NULL;


DWORD InHook()
{
DWORD rt = 0;
USERAPIHOOKPROC UserApiProc = NULL;

(FARPROC&)RegisterUserApiHookXP = GetProcAddress(LoadLibrary("user32"), "RegisterUserApiHook");
(FARPROC&)UserApiProc = GetProcAddress(g_hModule, "UserApiProc");
if ( RegisterUserApiHookXP != NULL && UserApiProc != NULL )
rt = RegisterUserApiHookXP(g_hModule, UserApiProc);

return rt;
}

BOOL UnHook()
{
BOOL rt = FALSE;


Ïà¹ØÎÊ´ð£º

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

Delphi½øÏú´æÅ̵ãά»¤ ÅÌÓ¯¿÷¹¦ÄÜ

ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬

Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷

һ¥ÕýÈ·£¡

лл¸÷λÀ²

¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ