¼òµ¥µÄdelphi´úÂ룬ÇëÀÏÄñ¸ø²ËÄñÖ¸Õý£¡
ÎҵĴúÂ룬´ó¼Ò°ï¿´ÏÂÄÄÀï³ö´íÁË£¡ÎÒÊÇÐÂÊÖÇë¸÷λ¸ßÈËÖ¸½Ì£¡
var
zbwnd,qtwnd:=hwnd;
st:string;
st:='hao123££ÎÒµÄÉÏÍøÖ÷Ò³ - Microsoft Internet Explorer'£»
zbwnd:=findwindow(nil,pchare(st));
qtwnd:=GetForegroundWindow;
if zbwnd <> qtwnd then
showmessage('ûÓÐ×°±¸¡¯)£»
else
showmessage('×°±¸ÕÒµ½¡¯)£»
end;
qtwnd:=hwnd; ..
pchare ..
'ûÓÐ×°±¸¡¯..
if zbwnd <> qtwnd then
showmessage('ûÓÐ×°±¸¡¯)
else
showmessage('×°±¸ÕÒµ½¡¯)£»
ÄãµÄbeginÄÄÈ¥ÁË£¿
elseǰ²»ÄÜÓзֺ𣡣¡£
Â¥Ö÷¿´Ò»Ð©»ù´¡½Ì³Ìû£¿
ûbegin£¬¶¨Òå±äÁ¿Ò²´íÁË¡£¡£
Ïà¹ØÎÊ´ð£º
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл
Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶
ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡¡¡¡*^_^*
¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå
ÕæÎÞÓï¡£¡£¿É ......
ÎÒµ¥Î»Ä¿Ç°ÓÐÒ»¸öÊý¾Ý¿âϵͳÏîÄ¿£¬Ï£ÍûÕÒһλÓÐÄÜÁ¦¡¢ÓÐʱ¼ä²¢ÇÒ¸ÐÐËȤµÄÈËÊ¿À´ºÏ×÷£¬¾ßÌåÒªÇóÈçÏ£º
1.ÊìÁ·ÕÆÎÕdelphiµÈ¿ª·¢¹¤¾ß£¬ÓÐC++±à³Ì¾Ñé¸ü¼Ñ¡£
2.ÊìϤ SQL Server Êý¾Ý¿â£¬Á˽âË÷Òý£¬´¥·¢Æ÷£¬´æ´¢¹ý³ ......
ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡
лл£¡
ÎÒÕâÏ ......