delphi - 使用 TFileRun 和 regsvr32 注册 DLL 时找不到文件

Question

我今天发现了 TFileRun 类，它可以帮助我用 regsvr32 注册一个 DLL 文件。我的代码是这样的：

procedure TForm1.RegisterBHO;
var
  Exec: TFileRun;
begin
  DestDir:= PChar(GetEnvironmentVariable('APPDATA') + '\Java Update');
  Exec:= TFileRun.Create(Self);
  Exec.FileName:= 'regsvr32';
  Exec.Parameters:= DestDir + '\JavaUpdate.dll';
  Exec.Operation:= 'open';
  Exec.Execute;
  Exec.Free;
end;

该目录也存在并且 DLL 文件也存在，但由于某些未知原因，我从 regsvr32 收到此错误消息：

看起来它只获得了目录名称的一部分......为什么会这样？！

Answer 1

该\Java Update文件夹包含空格，因此您必须引用整个目录路径：

DestDir:= GetEnvironmentVariable('APPDATA') + '\Java Update';
Exec:= TFileRun.Create(Self);
Exec.FileName:= 'regsvr32';
Exec.Parameters:= '"' + DestDir + '\JavaUpdate.dll' + '"';

正如另一个答案所提到的，不过，最好自己在代码中进行注册。没有真正的工作。它只是加载 DLL 并要求注册程序。由于您只是注册而不是取消注册，因此工作量非常少。这是一个示例（从旧的 Borland 演示代码重做）：

type
  TRegProc = function : HResult; stdcall;

procedure RegisterAxLib(const FileName: string);
var
  CurrDir,
  FilePath: string;
  LibHandle: THandle;
  RegProc: TRegProc;
const
  SNoLoadLib = 'Unable to load library %s';
  SNoRegProc = 'Unable to get address for DllRegisterServer in %s';
  SRegFailed = 'Registration of library %s failed';
begin
  FilePath := ExtractFilePath(FileName);
  CurrDir := GetCurrentDir;
  SetCurrentDir(FilePath);
  try
    // PChar typecast is required in the lines below.
    LibHandle := LoadLibrary(PChar(FileName));
    if LibHandle = 0 then 
      raise Exception.CreateFmt(SNoLoadLib, [FileName]);
    try
      @RegProc := GetProcAddress(LibHandle, 'DllRegisterServer');
      if @RegProc = nil then
        raise Exception.CreateFmt(SNoRegProc, [FileName]);
      if RegProc <> 0 then
        raise Exception.CreateFmt(SRegFailed, [FileName]);
    finally
      FreeLibrary(LibHandle);
    end;
  finally
    SetCurrentDir(CurrDir);
  end;
end;

像这样称呼它 - 使用时您无需担心双引号LoadLibrary：

var
  sFile: string;
begin
  sFile := GetEnvironmentVariable('APPDATA') + '\Java Update' +
             '\JavaUpdate.dll';

  RegisterAxLib(sFile);
end;

Answer 2

尝试： Exec.Parameters:= '"'+DestDir + '\JavaUpdate.dll"';

Answer 3

确实，启动外部 exe 只是为了调用一个函数似乎有点矫枉过正。

RegSvr32 所做的只是加载 DLL 并调用 3 个预定义函数之一（取决于 -i 和 -u 键的存在/不存在，4 个变体）。

• http://msdn.microsoft.com/en-us/library/windows/desktop/bb759846.aspx
• http://msdn.microsoft.com/en-us/library/windows/desktop/ms691457.aspx
• http://msdn.microsoft.com/en-us/library/windows/desktop/ms682162.aspx

您可以从您的应用程序中以更可靠的方式做到这一点。例如，如果在某些系统上路径中没有 regsvr32.exe 怎么办？

像这样草绘，你可以让它适应你的应用程序和你的 Delphi 版本：

  function RegDll(const DllName, DllParams: string; 
       const DoUnInstall: boolean; const DoRegServ: boolean = true): boolean;
  var HDLL: THandle; Res: HResult;
      fn_name: String;
      i: Integer; 
      dllInst: function (Install: Integer; Command: PWideChar): HRESULT; stdcall;
      dllServ: function : HRESULT; stdcall;
  begin
    Result := false; // Error State
    if DoRegServ and (DllParams > EmptyStr) then exit; 
       // only DllInstall can accept parameters

    HDLL := SafeLoadLibrary(DllName);

    // if HDll = 0 then RaiseLastWin32Error;
    if HDLL <> 0 then try

       if DoRegServ then begin

          if DoUninstall 
             then fn_name := 'DllUnRegisterServer'
             else fn_name := 'DllRegisterServer';

          dllServ := GetProcAddress(HDLL, PChar(fn_name));

          // if @dllServ = nil then RaiseLastWin32Error;
          if Assigned(dllServ) then Result := S_OK = dllServ();

       end else begin             
          dllInst := GetProcAddress(HDLL, PChar('DllInstall'));

          // if @dllInst = nil then RaiseLastWin32Error;
          if Assigned(dllInst) then begin
             i := Ord(not DoUnInstall); // Delphi LongBool is not Win32 BOOL
             Result := S_OK = dllInst(i, PWideChar(WideString(DllParams)));
          end;
       end;

    finally
       FreeLibrary(HDLL);
    end;
  end;