用代碼實作注冊Ocx和Dll

在windows系統中，可以通過Regsvr32來實作注冊ocx或者dl，

程式設計時，調用Regsvr32來注冊，卻不能正常執行。尤其是在Win7系統中，需要管理者身份才能運作。

使用下面的代碼則能正常注冊。

//注冊

function RegisterDllServer(FileName: string): boolean;

var

  nDllAddr: integer;

  bstr: string;

  ProcAddr: Pointer;

  str: PAnsiChar;

begin

  Result := False;

  if not FileExists(FileName) then

    exit;

  nDllAddr:=LoadLibrary(PWideChar(FileName));

  if nDllAddr <> 0 then

  begin

    bstr:='DllRegisterServer'+chr(0);

    str := PAnsiChar(AnsiString(bstr));

    ProcAddr := GetProcAddress(nDllAddr,str);

    if ProcAddr<>nil then

    begin

      CallWindowProc(ProcAddr,nDllAddr,0,0,0);

      Result := True;

    end;

    FreeLibrary(nDllAddr); 

  end;                    

end;

//反注冊

function UnRegisterDllServer(FileName: string): boolean;

    bstr:='DllUnregisterServer'+chr(0);