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£¬ËüµÈ¼¸ÃëÖÓÔÙÔËÐÐÖ¸¶¨µÄ³ÌÐò
Õâ¸ö²»´í£¬²»ÐèҪдÁíÍâÒ»¸öexe
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡
лл£¡
ÎÒÕâÏ ......
Delphi
ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡
ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£
ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......
Delphi 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ
£¨½Ó´¥¹ýµÄ¶¼ÊÇСÏîÄ¿ ´óÏîĿûÔõô×ö¹ý£©
»¹ÊÇ¿´¹«Ë¾°É¡£¡£
mark
ͬÑùÒ»Ì×·¿×Ó£¬ÎÒͬÊÂ̸14K/㎡£¬ÎÒ̸ÁË15K/㎡¡£
½á¹û²îÁË10W£¬ÎÒ¶à»ñÀûÁ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......