delphi °´Å¥¹ý³ÌÒÀ´ÎÖ´ÐеÄÎÊÌâ
ÎÒÏÖÔÚÓÐ 5¸ö °´Å¥ ÿ¸ö°´Å¥¶¼ÓÐÒ»¸ö¹ý³Ì
ÎÒÏë Óà µÚ6¸ö°´Å¥ µã»÷µã»÷µÚÒ»´Î Ö´ÐÐ button1 µÚ¶þ´Î Ö´ÐÐ button2 Èý´Î button3 Ò»Ö±µ½ button5 ÈçºÎʵÏÖÄØ£¿£¿
Delphi(Pascal) code:
button1.OnClick(self);
button2.OnClick(self);
button3.OnClick(self);
button ......
ÎҵijÌÐò¶ÁÈ¡ÁËsql¿âÖеÄÒ»¸ö±í¡£¶øÕâ¸ö±íÖÐÓÐ2000ÌõÊý¾Ý¡£µ«ÊÇÖ»ÄÜÏÔʾ1863Ìõ¡£È»ºóÏÂÃæµÄÄÇ100¶àÌõ¾Í²»ÏÔʾÁË¡£Èç¹ûÊÇaccessÊý¾Ý¿âÎÒ¿ÉÒÔÓÃѹËõ/ÐÞ¸´¹¦ÄÜÀ´ÐÞ¸´Êý¾Ý¿â¡£ÄÇôsqlÎÒÓ¦¸ÃÔõô×öѽ¡£¸Õ½Ó´¥sql 2000 »¹ÍûÄܵõ½¸÷λµÄÖ¸½Ì£¡£¡¿ÉÄÜÕâ¸öÎÊÌâÓеãÈõÈõ¡£Èç¹ûÄܽâ¾ö¾Í²»ÓÃÀ´Îʸ÷λÁË£¡£¡
´úÂëÌùÉÏÀ´£¡sqlÓÃÕâô¾Ã ......
Delphi(Pascal) code:
{Ò»¸öÐÞ¸ÄIATʵÏÖAPI¹Ò¹³µÄ³ÌÐò,}
library Hook;
uses
Windows,
w_Hook in 'w_Hook.pas';
{$R *.res}
function DllEntry(dwReason:LONGINT):DWORD;STDCALL;
begin
case dwReason of
DLL_PROCESS_ATTACH:
begin
w_Hook.IntallHook;
end;
end;
res ......
DELPHI µ÷Óà c++µÄDLL,
delphiÖÐÓÐÒ»±äÁ¿ D1: array[0..1000] of byte, c++ÖÐÓÐÒ»±äÁ¿ char C1[1000]
Ï£Íû°ÑD1´«¸øC1,ÈçºÎ²Ù×÷?(×îºÃ²»Òª¸´ÖƲ»±ØÒªµÄÊý¾Ý);
delphi ÏòDLL ´«ËÍÊý¾Ý xxxx(±äÁ¿Áбí1)
c++ ½ÓÊÜÊý¾Ý yyyy(±äÁ¿Áбí2)
......
C++ÀïÃæÖ¸Õë¿ÉÒÔÕâÑù
void **a;
ÄÇôa¾ÍÊÇÖ¸ÕëµÄÖ¸Õ룬Õâ¸öÔÚdelphiÀïÔõô¶¨Ò壿
ÎÒÖªµÀvoid *¿ÉÒÔÓÃpointer´ø
»¹ÓоÍÊÇ
c++ÀïÃæ¿ÉÒÔ
void *a;
(*a)=NULL;
Õâ¸öת³ÉdelphiÓÖÈçºÎ£¿
ºÇºÇ£¬
var
p: Pointer; // £¨ÎÞÀàÐÍ£©Ö¸Õë
pp: PPointer; // £¨ ......
ÏñwindowsµÄ×ÊÔ´¹ÜÀíÆ÷Ò»Ñù£¬ÎÒÓÐÒ»¸öĿ¼Ê÷ÏÔʾĿ¼£¬È»ºóÓÐÒ»¸ölistview¿Ø¼þÏÔʾָ¶¨Îļþ¼ÐÖеÄÎļþ£¬ÏÖÔÚÎÒÏëʵÏÖ£¬Êó±êÑ¡ÖÐĿ¼Ê÷ÖеÄÒ»¸öÎļþ¼Ð£¬È»ºó°´É¾³ý°´¼ü¿ÉÒÔɾ³ýËü£¬Êó±êÑ¡ÖÐlistviewÖеÄÎļþ£¬Ò²¿ÉÒÔɾ³ýÑ¡ÖеÄÎļþ¡£
²»ÊÇÕâÑùµÄ£¬ÏÖÔÚҲûÓÐÎļþºÍÎļþ¼ÐµÄ·¾¶£¬Ò²¾ÍÊÇÎÒÊó±êÑ¡ÖÐÄǸöÎļþ¾ÍÄÜɾÄǸöÎļþ£ ......