从Delphi应用程序注册DLL和ActiveX控件

妖狐艹你老母 2022-12-07 12:05 320阅读 0赞

A popular feature of [Delphi][] is the project deployment of an application with an [executable file (exe)][executable file _exe].  However, if the DLL or ActiveX controls in your project are not registered on the users’ machines, an “EOleSysError” will be displayed in response to running the exe file. To avoid this, use the regsvr32.exe command-line tool.

[Delphi的][Delphi]一个流行功能是带有[可执行文件(exe)][executable file _exe]的应用程序的项目部署。 但是，如果您项目中的DLL或ActiveX控件未在用户的计算机上注册，则将响应运行exe文件而显示“ EOleSysError”。 为避免这种情况，请使用regsvr32.exe命令行工具。

## RegSvr32.exe命令 **(** RegSvr32.exe Command **)** ##

Manually using regsvr32.exe (Windows.Start - Run) will register and unregister self-registerable  DLL and ActiveX controls on a system. Regsvr32.exe instructs the system to attempt to load the component and call its DLLSelfRegister function. If this attempt is successful, Regsvr32.exe displays a dialog indicating success.

手动使用regsvr32.exe(Windows.Start-运行)将在系统上注册和注销可自注册的DLL和ActiveX控件。 Regsvr32.exe指示系统尝试加载组件并调用其DLLSelfRegister函数。 如果此尝试成功，则Regsvr32.exe将显示一个对话框，指示成功。

RegSvr32.exe has the following command-line options:

RegSvr32.exe具有以下命令行选项：

Regsvr32 [/u] [/s] [/n] [/i[:cmdline]] dllname
    /s - Silent; display no message boxes
    /u - Unregister server
    /i - Call DllInstall passing it an optional [cmdline];
    when used with /u calls dll uninstall
    /n - do not call DllRegisterServer; this option must       be used with /i

**Call** RegSvr32.exe **Within Delphi code**

**在Delphi代码中** **调用** RegSvr32.exe

To call the regsvr32 tool within Delphi code, use the “RegisterOCX” function to execute a file and wait for the execution to finish.

要在Delphi代码中调用regsvr32工具，请使用“ RegisterOCX”函数执行文件并等待执行完成。

This is how the 'RegisterOCX' procedure could look:

这就是“ RegisterOCX”过程的外观：

procedure RegisterOCX;
    type
    TRegFunc = function : HResult; stdcall;
    var
    ARegFunc : TRegFunc;
    aHandle : THandle;
    ocxPath : string;
    begin
    try
    ocxPath := ExtractFilePath(Application.ExeName) + 'Flash.ocx';
    aHandle := LoadLibrary(PChar(ocxPath));
    if aHandle 0 then
    begin
    ARegFunc := GetProcAddress(aHandle,'DllRegisterServer');
    if Assigned(ARegFunc) then
    begin
    ExecAndWait('regsvr32','/s ' + ocxPath);
    end;
    FreeLibrary(aHandle);
    end;
    except
    ShowMessage(Format('Unable to register %s', [ocxPath]));
    end;
    end;

Note: the *ocxPath* variable points to the 'Flash.ocx' Macromedia OCX.

注意： *ocxPath*变量指向“ Flash.ocx” Macromedia OCX。

To be able to register itself, an OCX must implement the DllRegisterServer function to create registry entries for all the classes inside the control. Do not worry about the DllRegisterServer function, just make sure it is there. For the sake of simplicity, it is presumed that the OCX is located in the same folder as where the application is.

为了能够自己注册，OCX必须实现DllRegisterServer函数才能为控件内的所有类创建注册表项。 不必担心DllRegisterServer函数，只需确保它在那里。 为了简单起见，假定OCX与应用程序位于同一文件夹中。

The ExecAndWait line in the above code calls the regsvr32 tool by passing the "/s" switch along with the full path to the OCX. The function is ExecAndWait.

上面的代码中的ExecAndWait行通过将“ / s”开关以及完整路径传递到OCX来调用regsvr32工具。 该函数是ExecAndWait。

uses shellapi;
    ...
    function ExecAndWait(const ExecuteFile, ParamString : string): boolean;
    var
    SEInfo: TShellExecuteInfo;
    ExitCode: DWORD;
    begin
    FillChar(SEInfo, SizeOf(SEInfo), 0);
    SEInfo.cbSize := SizeOf(TShellExecuteInfo);
    with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpParameters := PChar(ParamString);
    nShow := SW_HIDE;
    end;
    if ShellExecuteEx(@SEInfo) then
    begin
    repeat
    Application.ProcessMessages;
    GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode STILL_ACTIVE) or Application.Terminated;
    Result:=True;
    end
    else Result:=False;
    end;

The ExecAndWait function uses the ShellExecuteEx API call to execute a file on a system. For more examples of executing any file from Delphi, check out how to [execute and run applications and files from Delphi code][].

ExecAndWait函数使用ShellExecuteEx API调用在系统上执行文件。 有关从Delphi执行任何文件的更多示例，请查看如何[从Delphi代码执行和运行应用程序和文件][execute and run applications and files from Delphi code] 。

## Flash.ocx内部Delphi Exe **(** Flash.ocx Inside Delphi Exe **)** ##

If there is a need to register an ActiveX control on the user’s machine, then make sure the user has the OCX the program requires by placing the entire ActiveX (or DLL) inside the application’s exe as a resource. When the OCX is stored inside the exe, it is easy to extract, save to disk, and call the RegisterOCX procedure.

如果需要在用户的计算机上注册ActiveX控件，则通过将整个ActiveX(或DLL)放置在应用程序的exe中作为资源来确保用户拥有程序所需的OCX。 当OCX存储在exe中时，很容易提取，保存到磁盘并调用RegisterOCX过程。

> 翻译自: [https://www.thoughtco.com/register-dll-and-activex-controls-from-a-delphi-application-1058233][https_www.thoughtco.com_register-dll-and-activex-controls-from-a-delphi-application-1058233]

[Delphi]: https://www.thoughtco.com/history-of-delphi-1056847
[executable file _exe]: https://www.thoughtco.com/inside-the-delphi-exe-1058211
[execute and run applications and files from Delphi code]: https://www.thoughtco.com/execute-and-run-applications-1058462
[https_www.thoughtco.com_register-dll-and-activex-controls-from-a-delphi-application-1058233]: https://www.thoughtco.com/register-dll-and-activex-controls-from-a-delphi-application-1058233