delphiÔõôÈÃËü°ÑÃüÁîÖ´ÐÐÍêÁË×Ô¶¯ÖØÐÂÆð¶¯³ÌÐò
delphiÔõôÈÃËü°ÑÃüÁîÖ´ÐÐÍêÁË×Ô¶¯ÖØÐÂÆð¶¯³ÌÐò
Ö´ÐÐÍêºó¼ÓÒ»¾äapplication.Terminate£¬ È»ºóµ÷ÓÃShellExecute(Handle, 'open', PChar(Äã³ÌÐòµÄ·¾¶), nil, nil, SW_SHOW); Delphi(Pascal) code: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('ÖØÆô³ÌÐò'); WinExec(PChar(ParamStr(0)), SW_SHOW); ExitProcess(0); end; ÕâÊÇÏÈÆô¶¯ ÔÙÍ˳ö×Ô¼º°¡ ºÇºÇ,×öÒ»¸ö³ÌÐò,ÔÙ¼ÓÒ»¸ö·þÎñ. ³ÌÐòÔÚij´¦REG(Ò²¿ÉÒÔ±ð´¦Ä¿Â¼ÎļþʲôµÄ)дһ¸ö³ÌÐòĿ¼¼°Ãû³Æ,¼ÓÉÏÒ»¸ö±êʶ¶þÈý¸ö×ֶΰÉ. ³ÌÐòÍ˳öʱ,ÔÚ±êʶÖмÓ1,ĬÈÏΪ0 ·þÎñ³ÌÐòÒ»Ö±ÔÚ²éѯREGÌØ±ðĿ¼(Ò²¿ÉÒÔÒ»¶Îʱ¼äÄÚ²éѯһ´Î),Èç¹ûREG±êʶΪ1ʱ,°ÑÇ°ÃæµÄÐÅÏ¢ µ±³É²ÎÊý,Æô¶¯¸Ã³ÌÐò. ¼ÇµÃ²»ÒªÓÃ×Ô´øµÄTIMER(Òª²»ÓÃÏß³Ì,Òª²»Óø߾«¶¨Ê±Æ÷) ¿ÉÒÔÁíÍâдһ¸ö 2.exe Ö÷³ÌÐò1.exeµ÷ÓÃÄǸö2.EXE, 2.exe ÓÃapi°Ñ1.exe¹Ø±Õ ÔÙÖ´ÐÐÃüÁî ÔÙµ÷ÓÃÖ´ÐÐ1.exeÒýÓà ÕâÊÇÏÈÆô¶¯ ÔÙÍ˳ö×Ô¼º°¡ ÏÈÆô¶¯Ò»¸öbat£¬ËüµÈ¼¸ÃëÖÓÔÙÔËÐÐÖ¸¶¨µÄ³ÌÐòÒýÓà ÒýÓà 3 Â¥ kvci µÄ»Ø¸´: ÕâÊÇÏÈÆô¶¯ ÔÙÍ˳ö×Ô¼º°¡ ÏÈÆô¶¯Ò»¸öbat£¬ËüµÈ¼¸ÃëÖÓÔÙÔËÐÐÖ¸¶¨µÄ³ÌÐò Õâ¸ö²»´í£¬²»ÐèҪдÁíÍâÒ»¸öexe
Ïà¹ØÎÊ´ð£º
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿ DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿ delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª ÒýÓà delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª ÊÇÄĸö£¿ windowsµÄapi£¿ ±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
×ÜÖ®£¬Õâ¸öÓ¦¸ÃÊǸöСBUG¡£ Ëæ±ã½¨¸ötxtÎĵµ µÚÒ»ÐÐ68¸ös¼ÓÒ»¸ö»Ø³µ µÚ¶þÐÐ98¸ös¼ÓÒ»¸ö»Ø³µ µÚÈýÐÐ17¸ös¼ÓÒ»¸ö»Ø³µ ×ܹ²183¸ös¼ÓÈý¸ö»»ÐУ¬´óС189×Ö½Ú¡£ ½Ó×ÅÓÃFileOpenºÍFileRead°ÑÎļþ ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿ ÎÞÈ˻ش𣿠×ö³É×ÊÔ´Î ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......