¼òµ¥µÄ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£¬¶¨Òå±äÁ¿Ò²´íÁË¡£¡£
Ïà¹ØÎÊ´ð£º
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......
ÎÒÓà socket ½ÓÊÕµ½NO ,½ÓÊÕµ½Ò»¸öNO¾Íͨ¹ýCarthread:=TCarthread.create(NO) ;´´½¨Ò»¸öỊ̈߳¬
ÊDz»ÊǽÓÊÕµ½¶à¸öNO£¬¾Í»á´´½¨¶à¸öÏß³ÌÄØ£¿
Èç¹ûÕâÑùµÄ»°ÎÒ½ÓÊÕµ½NOΪEE,ÓÚÊÇ´´½¨Ò»¸öỊ̈߳¬¹ýÁËÒ»»áSOCKETÓÖ ......