Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

żȻ·¢ÏÖ²»ÖªÊÇDelphi»¹ÊÇwindowsµÄBug£¿

×ÜÖ®£¬Õâ¸öÓ¦¸ÃÊǸöСBUG¡£

Ëæ±ã½¨¸ötxtÎĵµ

µÚÒ»ÐÐ68¸ös¼ÓÒ»¸ö»Ø³µ
µÚ¶þÐÐ98¸ös¼ÓÒ»¸ö»Ø³µ
µÚÈýÐÐ17¸ös¼ÓÒ»¸ö»Ø³µ
×ܹ²183¸ös¼ÓÈý¸ö»»ÐУ¬´óС189×Ö½Ú¡£
½Ó×ÅÓÃFileOpenºÍFileRead°ÑÎļþ ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ