comunit.pas

这是目前很流行的QQ木马 的代码 现在 这个很使用的

unit ComUnit;

interface

function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult; stdcall;
function DllCanUnloadNow: HResult; stdcall;
function DllRegisterServer: HResult; stdcall;
function DllUnregisterServer: HResult; stdcall;

implementation

uses Windows, HOOKThread, AllVarUnit;

function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult;
begin
  Pointer(Obj) := nil;
  Result := CLASS_E_CLASSNOTAVAILABLE;
end;

function DllCanUnloadNow: HResult;
begin
  Result := S_OK;
end;

function DllRegisterServer: HResult;
begin
  Result := S_OK;
end;

function DllUnregisterServer: HResult;
begin
  Result := S_OK;
end;

end.