常用代码(Delphi 自我复制自我删除).docxVIP

Delphi 自我复制源码 这种方法的原理是程序运行时先查看自己是不是在特定目录下 ,如果是就继续运行 ,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序. 打开 Delphi,新建一个工程,在窗口的 Create事件中写代码: procedure TForm1.FormCreate(Sender: TObject); var myname: string; begin myname := ExtractFilename(Application.Exename);获/得/ 文件名 if application.Exename GetWindir + myname the如n 果//文件不是在Windows\System\那么.. begin copyfile(pchar(application.Exenampec)h,ar(GetWindir + myname), False);将{ 自己拷贝到 Windows\System\下} Winexec(pchar(GetWindir + myname), sw_hide);运//行 Windows\System\下的新文件 application.Terminate退;/出/ end; end; 其中 GetWinDir 是自定义函数,起功能是找出 Windows\System\的路径. function GetWinDir: String; var Buf: array[0..MAX_PATH] of char; begin GetSystemDirectory(Buf, MAX_PATH); Result := Buf; if Result[Length(Result)]\ then Result := Result + \; end; Delphi 程序自删除. 运行Delphi，新建一个工程，添加一个Button到窗体上，全部代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure DeleteMe;自/定/ 义程序自杀过程procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin DeleteMe; end; procedure TForm1.DeleteMe;程/序/ 自杀 //----------------------------------------------------------- function GetShortName(sLongName: string): st转ri换ng长; 文//件名var sShortName: string; nShortNameLen: integer; begin SetLength(sShortName, MAX_PATH); nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1); if (0 = nShortNameLen) then begin // handle errors... end; SetLength(sShortName, nShortNameLen); Result := sShortName; end; //------------------------------------------------- var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + $$Delme$$.bat; AssignFile(BatchFile, BatchFileName); Rewrite(BatchFile); Writeln(BatchFile, :try); Writeln