¼òµ¥µÄ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£¬¶¨Òå±äÁ¿Ò²´íÁË¡£¡£
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃ濪·¢µÄЧÂÊ°É£¿
ÒòΪ²»ÊìϤDelphi £ ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐòתÒƵ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
ÏÖÔÚÊý¾Ý¿âÖÐÓÐÒ»Õűí´æÔÚ£¬ÎÒÏëͨ¹ýDelphiÖ´ÐÐÒ»¸öSqlÓï¾ä£¨±ÈÈç¡°select column1 from table1¡±£©£¬ÎÒÔõô²ÅÄܽ«Õâ¸ösqlÓï¾äµÄÖ´Ðнá¹ûдµ½Êý¾Ý¿âÖÐÒ»ÕÅÒѾ´æÔڵıíÖÐÄØ£¿ÕâÖÖ·½·¨¾Í²»ÒªËµÁË£ºÓÃAD ......