dll自动注册出现的诡异现象

[Iamclq]

我写了一个COM，然后在注册时在注册表中写入一些东西，包括dll所在的位置。

procedure TMyFactory.UpdateRegistry(Register: Boolean);
var
  dllpath: array[0..1023] of char;
begin
  inherited UpdateRegistry(Register);

    GetModuleFileName(HInstance, dllpath, SizeOf(dllpath));
    ShowMessage(dllpath); // 这里显示的是实际运行的dll路径
    CreateRegKey('CLSID\' + GUIDTOSTRING(CLASSID), '', 'My');
    CreateRegKey('CLSID\' + GUIDTOSTRING(CLASSID) + '\InProcServer32', '', dllpath);
    // 注册表里显示的却是dll的编译路径，上面传进去的参数也是实际运行的路径，真的是太奇怪了？
    CreateRegKey('CLSID\' + GUIDTOSTRING(CLASSID) + '\InProcServer32', 'ThreadingModel', 'Apartment');

end;

而且将编译的dll文件复制到其他电脑上，也是dll编译时的路径，太郁闷了？

[Iamclq]

下午又试了一下，如果把方法中的语句全部注释掉，系统仍然会注册成功，不知是从何处注册的？

procedure TMyFactory.UpdateRegistry(Register: Boolean);
var
  dllpath: array[0..1023] of char;
begin
//  inherited UpdateRegistry(Register);

//    GetModuleFileName(HInstance, dllpath, SizeOf(dllpath));
//    ShowMessage(dllpath); // 这里显示的是实际运行的dll路径
//    CreateRegKey('CLSID\' + GUIDTOSTRING(CLASSID), '', 'My');
//    CreateRegKey('CLSID\' + GUIDTOSTRING(CLASSID) + '\InProcServer32', '', dllpath);
    // 注册表里显示的却是dll的编译路径，上面传进去的参数也是实际运行的路径，真的是太奇怪了？
//    CreateRegKey('CLSID\' + GUIDTOSTRING(CLASSID) + '\InProcServer32', 'ThreadingModel', 'Apartment');

end;

全部注释后仍然也会自动注册

[starluck]

看工程的入口处

[yumenyoudian]

自动注册，是用Regsvr32.Exe吧？

[Iamclq]

[Quote=引用 2 楼 starluck 的回复:]
看工程的入口处
[/Quote]

没找到

[Iamclq]

对，是用 regsvr32 注册的

[Iamclq]

[Quote=引用 3 楼 yumenyoudian 的回复:]
自动注册，是用Regsvr32.Exe吧？
[/Quote]
难道是 regsvr32 在自动注册？

[gyk120]

regsvr32除非调用它，否则不会自动注册的

[Iamclq]

我是指运行 regsvr32注册dll时，如果把更新注册表的语句删除后，注册表里仍然会注册进一些信息，不知是哪里自动注册的？

[Iamclq]

这个问题咋没有回答呢？

[yumenyoudian]

regsvr32调用了DllRegisterServer方法注册的，DllRegisterServer最终还是调了UpdateRegistry方法的，你可以看看ComServ单元DllRegisterServer的实现。
从你描述的情况确实很难断定问题出在哪里，我也不能妄加猜测，你可以写一些日志来跟踪这个流程。