¼òµ¥µÄ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£¬¶¨Òå±äÁ¿Ò²´íÁË¡£¡£
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
ÎÒÓà socket ½ÓÊÕµ½NO ,½ÓÊÕµ½Ò»¸öNO¾Íͨ¹ýCarthread:=TCarthread.create(NO) ;´´½¨Ò»¸öỊ̈߳¬
ÊDz»ÊǽÓÊÕµ½¶à¸öNO£¬¾Í»á´´½¨¶à¸öÏß³ÌÄØ£¿
Èç¹ûÕâÑùµÄ»°ÎÒ½ÓÊÕµ½NOΪEE,ÓÚÊÇ´´½¨Ò»¸öỊ̈߳¬¹ýÁËÒ»»áSOCKETÓÖ ......
ÎÒµ¥Î»Ä¿Ç°ÓÐÒ»¸öÊý¾Ý¿âϵͳÏîÄ¿£¬Ï£ÍûÕÒһλÓÐÄÜÁ¦¡¢ÓÐʱ¼ä²¢ÇÒ¸ÐÐËȤµÄÈËÊ¿À´ºÏ×÷£¬¾ßÌåÒªÇóÈçÏ£º
1.ÊìÁ·ÕÆÎÕdelphiµÈ¿ª·¢¹¤¾ß£¬ÓÐC++±à³Ì¾Ñé¸ü¼Ñ¡£
2.ÊìϤ SQL Server Êý¾Ý¿â£¬Á˽âË÷Òý£¬´¥·¢Æ÷£¬´æ´¢¹ý³ ......
ÏÖÔÚÊý¾Ý¿âÖÐÓÐÒ»ÕÅ±í´æÔÚ£¬ÎÒÏëͨ¹ýDelphiÖ´ÐÐÒ»¸öSqlÓï¾ä£¨±ÈÈç¡°select column1 from table1¡±£©£¬ÎÒÔõô²ÅÄܽ«Õâ¸ösqlÓï¾äµÄÖ´Ðнá¹ûдµ½Êý¾Ý¿âÖÐÒ»ÕÅÒѾ´æÔڵıíÖÐÄØ£¿ÕâÖÖ·½·¨¾Í²»ÒªËµÁË£ºÓÃAD ......