install shield for delpi 4.0可以直接注册
点中次ocx,看他的properties,有self register

解决方案 »

  1.   

    kxy是对的,在IS Express中把ocx文件包含进去,然后看ocx文件的properties,有关于Self-register的选择,自然就可以自动注册了
      

  2.   

    我不知道可否用IS Express,请那位知道告诉我一下,email:[email protected]
    但我知道一个用程序注册的方法:
    procedure TForm1.Button1Click(Sender: TObject);
    var astr,bstr:string;
        ProcAddr:Pointer;
        DllAddr:integer;
    begin
    Opendialog1.Execute;
    astr:=OpenDialog1.filename + chr(0);
    DllAddr:=LoadLibrary(PChar(astr));
    if (DllAddr<>0) then
     begin
     label1.caption:=astr;
      bstr:='DllRegisterServer' + chr(0);
      ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
      if ProcAddr<> nil then
       CallWindowProc(ProcAddr,DllAddr,0,0,0)
      else
        ShowMessage(OpenDialog1.Filename + '不是有效的控件');
        FreeLibrary(DllAddr);
     end
    else
      ShowMessage(OpenDialog1.Filename + '无法装载');
    end;