帮帮忙啦!

解决方案 »

  1.   

    不用路径,
    把com+的Dll放到System32下,注册后,程序就能找到.
      

  2.   

    sorry,我是想通过该程序定位到其他的程序,谢谢
      

  3.   

    到注册表中找...
    uses
      ComObj;function TForm1.GetPath(xClsName: string): string;
    begin
      //xClsName is like "MyClass.Class1"
      Result := GetRegStringValue('\'+xClsName+'\Clsid', '');  if Result <> '' then
      begin
        Result := GetRegStringValue('\CLSID\'+Result+'\InprocServer32', ''); //DLL    if Result = '' then
        begin
          Result := GetRegStringValue('\'+xClsName+'\Clsid', '');
          Result := GetRegStringValue('\CLSID\'+Result+'\LocalServer32', '');  //EXE
        end;
      end;
    end;