delphi中用代码实现注册Ocx和Dll

//注册
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;
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:=‘DllUnregisterServer‘+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;