delphi¶þ½øÖƲéѯij¼¸¸ö×Ö½ÚÓÃIFTHENÈ¥±È½ÏÌ«ÂýÁË
delphi¶þ½øÖƲéѯ¼¸¸ö×Ö½ÚÓÃIFTHENÈ¥±È½ÏÌ«ÂýÁË£¬
if (buffer[0]=$A9 ) and ( buffer[1]=$B5 ) and ( buffer[2]=$B2 ) and ( buffer[3]=$04 ) then
begin
¼ÈÈ»ÊÇÏàÁ¬µÄ£¬²»ÄܰÑËü×÷Ϊһ¸öÕûÌåÈ¥²éÕÒÂð
Á¬ÐøµÄ4¸ö×ֽڵıȽÏ, ¿ÉÒÔ¿´³ÉDWORDÀàÐÍÀ´½øÐÐ, ÀýÈç:
Delphi(Pascal) code:
var
buffer: array[0..1023] of Byte;
begin
buffer[0] := $A9;
buffer[1] := $B5;
buffer[2] := $B2;
buffer[3] := $04;
if (buffer[0] = $A9 ) and (buffer[1] = $B5 ) and (buffer[2] = $B2 ) and (buffer[3] = $04) then ShowMessage ('One');
if DWORD(PDWORD(@buffer[0])^) = $04B2B5A9 then ShowMessage ('Two');
end;
if PInteger(@buffer[0])^ = $04b2b5a9 then
²»ÖªµÀlzÊDz»ÊÇÒª±È½ÏºÝ¶àÕâÑùµÄbyte£¿Èç¹û4¸öµØ»°.........
Êǵġ£¡£¾ÍÊÇN¶à¸ö¿ÉÄܼ¸°Ù¼¸Ç§¸ö..¼¸Íò¸öÒ²ÓпÉÄÜ
ÎÒµÄÒâ˼ÊÇÒ»¸öºÜ´óµÄÎļþ¼¸M»òÊ®¼¸M¡£¡£ÔÚÕâÀïÅúÁ¿²éѯÕ⼸¸ö×Ö½Ú¡£¡£DELPHI´¦ÀíËÙ¶ÈÌ«Âý¡£¡£ÓÐûÓкð취
這應該ÊDzéÕÒËã·¨問題£¬±È較ÊÇ難ÃâµÄ....
ÓÐûÓкõİ취¡£¡£ÌáÉýËÙ¶È
up`
case
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè ˰ïÏÂæ°¡Ñ½!!!!!!!!
up
baidu£¬google
up
http://www.codepub.com/software/view-software-4061.html
ÍøÕ¾ÉÏÓÐ
......