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¼òµ¥ ¿Þ Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£ ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿ Çë¸÷λ´óÀаïæ£¡ ×îºÃÓиöʵÀý£¡ ¶àл Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶ ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡¡¡¡*^_^* ¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå ÕæÎÞÓï¡£¡£¿É ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬ ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£ ¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£ ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......