ΪºÎDelphi 10 Lite ÖÐsendmessageÖÐTMsgÓò¶ÔÓ¦²»¶Ô£¿
ÈçÌ⣬Ö÷´°ÌåÖÐÏûÏ¢´¦Àí¹ý³ÌÊÇprocedure Message9999(var Msg:TMsg); message WM_PASSWORD;
ÎÒÔÚ×Ó´°ÌåÖе÷ÓÃSendMessage(TForm(Owner).Handle,WM_PASSWORD,1,0);
Ö÷´°ÌåÖпÉÒÔÊÕµ½Õâ¸öÏûÏ¢£¬¿ÉÊÇÔÚMessage9999¹ý³ÌµÄMsg½á¹¹ÖеÄwparamÖµ²»µÈÓÚ1£¬·´¶øÊÇMsg.messageÓòµÈÓÚÎÒ´«µÝµÄwparam£¬ÇëÎʸ÷λÕâÊÇʲôÔÒò£¿Ð»Ð»{{
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
ÈçÌ⣡
ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£
´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......
ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀÁбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀÁбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......