delphi中用代码实现注册Ocx和Dll_delphi 注册一个方法-CSDN博客

本文提供了解决在Windows系统中使用Regsvr32注册DLL时需要管理员权限的问题的方法。通过编写自定义函数RegisterDllServer和UnRegisterDllServer，可以实现无需管理员权限的DLL注册与反注册操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在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;
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;

http://blog.csdn.net/shuaihj/article/details/6243360

选择目录

function selectdir: string; //如果取消取返回为空，否则返回选中的路径
var
  Info: TBrowseInfo;
  IDList: pItemIDList;
  Buffer: PChar;
begin
  result := '';
  Buffer := StrAlloc(MAX_PATH);
  with Info do
  begin
    hwndOwner := GetActiveWindow;   //少了这句，浏览目录选择框不会跳出来的
    pidlRoot := nil; //起始位置，缺省为我的电脑
    pszDisplayName := Buffer; //用于存放选择目录的指针
    lpszTitle := '请选择路径:'; //对话框提示信息
    ulFlags := BIF_RETURNONLYFSDIRS or BIF_BROWSEINCLUDEFILES;
     //选择参数，此处表示显示目录和文件，如果只显示目录则将后一个去掉即可
    lpfn := nil; //指定回调函数指针
    lParam := 0; //传递给回调函数参数
    IDList := SHBrowseForFolder(Info); //读取目录信息
  end;
  if IDList <> nil then
  begin
    SHGetPathFromIDList(IDList, Buffer); //将目录信息转化为路径字符串
    result := strpas(Buffer);
  end;
  StrDispose(buffer);
end;