Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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Ö´ÐгÌÐòÔËÐÐÄÇÌõ´úÂë°¡£¿

ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡
лл£¡
ÎÒÕâÏ ......

DelphiÔõÑùÏÔÊ¾ÍøÒ³µÄÒ»²¿·Ö

Delphi
  ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡

ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£

ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......

Delphi 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ

Delphi 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ
£¨½Ó´¥¹ýµÄ¶¼ÊÇСÏîÄ¿ ´óÏîĿûÔõô×ö¹ý£©

»¹ÊÇ¿´¹«Ë¾°É¡£¡£

mark

ͬÑùÒ»Ì×·¿×Ó£¬ÎÒͬÊÂ̸14K/㎡£¬ÎÒ̸ÁË15K/㎡¡£
    ½á¹û²îÁË10W£¬ÎÒ¶à»ñÀûÁ ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ