常用代码(DELPHI 自我复制自我删除).doc

此文档收集于网络，如有侵权，请联系网站删除Delphi 自我复制源码这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码:procedure TForm1.FormCreate(Sender: TObject);var myname: string;beginmyname := ExtractFilename(Application.Exename); /获得文件名if application.Exename GetWindir + myname then /如果文件不是在WindowsSystem那么.begincopyfile(pchar(application.Exename), pchar(GetWindir + myname), False);将自己拷贝到WindowsSystem下Winexec(pchar(GetWindir + myname), sw_hide);/运行WindowsSystem下的新文件application.Terminate;/退出end;end;其中GetWinDir是自定义函数,起功能是找出WindowsSystem的路径.function GetWinDir: String;varBuf: array0.MAX_PATH of char;beginGetSystemDirectory(Buf, MAX_PATH);Result := Buf;if ResultLength(Result) then Result := Result + ;end;Delphi 程序自删除.运行Delphi，新建一个工程，添加一个Button到窗体上，全部代码如下：unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure DeleteMe; /自定义程序自杀过程procedure Button1Click(Sender: TObject);private Private declarations public Public declarations end;varForm1: TForm1;implementation$R *.DFMprocedure TForm1.Button1Click(Sender: TObject);beginDeleteMe;end;procedure TForm1.DeleteMe; /程序自杀/-function GetShortName(sLongName: string): string; /转换长文件名varsShortName: string;nShortNameLen: integer;beginSetLength(sShortName, MAX_PATH);nShortNameLen := GetShortPathName(PChar(sLongName),PChar(sShortName), MAX_PATH - 1);if (0 = nShortNameLen) thenbegin/ handle errors.end;SetLength(sShortName, nShortNameLen);Result := sShortName;end;/-varBatchFile: TextFile;BatchFileName: string;ProcessInfo: TProcessInformation;StartUpInfo: TStartupInfo;beginBatchFileName := ExtractFilePath(ParamStr(0) + $Delme$.bat;AssignFile(BatchFile, BatchFileName);Rewrite(BatchFile);Writeln(BatchFile, :try);Writeln(BatchFile, del + GetShortName(ParamStr(0) + );Writeln(BatchFile, if exist + GetShortName(ParamStr(0) + + goto try);Writeln(BatchFile, del %0);Writeln(BatchFile, cls);Writeln(BatchFile, exit);CloseFile(BatchFile);FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;StartUpInfo.wShowWindow := SW_Hide;if CreateProcess(nil, PChar(BatchFileName), nil, nil,False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,ProcessInfo) th