库没有注册(100分)

以下两个单元 运行出现“库没有注册” 其功能是建立虚拟目录请教高人`~~`100分献上

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, ActiveDs_tlb, IISOle_TLB, IISExt_TLB;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
IISNamespace1: TIISNamespace;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

Disp: IDispatch;

begin

Disp := IISNamespace1.GetObject('IIsWebService', 'localhost/w3svc');

Disp := (Disp as IADsContainer).GetObject('IIsWebServer', '1');

Disp := (Disp as IADsContainer).GetObject('IIsWebVirtualDir', 'Root');

Disp := (Disp as IADsContainer).Create('IIsWebVirtualDir', 'DelphiADSITest');

(Disp as IADs).Put('AccessRead', 'True');

(Disp as IADs).Put('Path', 'c:/ADSITest');

(Disp as IADs).SetInfo;

end;


end.

------------------------------------------------------------------------------
------------------------------------------------------------------------------

unit ActiveDs;

interface

function ADsGetObject(const PathName: WideString; const GUID:TGUID; out I: IUnknown): HRESULT; stdcall;

implementation

function ADsGetObject;external 'activeds.dll' name 'ADsGetObject';

end.

要导入ActiveDs_TLB, IISExt_TLB库，也就是导入adsi的那几个库

ocx控件是需要注册的。

多人接受答案了。