activexcom.pas

来自「键盘鼠标动作的记录和回放」· PAS 代码 · 共 43 行

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.