基础问题？呵呵~请高人帮忙回复下~

[KEIGOliye]

在Delphi中用ADSI创建IIS的虚拟目录

先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb
新建一个单元，声明
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.

然后一个按钮的
procedure TForm2.BitBtn1Click(Sender: TObject);
var
WebSite, WebServer, WebRoot, VDir: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
VDir.AccessRead := True;
VDir.Path := 'C:\Test';
VDir.SetInfo;
end;

但我照做后编译提示 Undeclared identifier ‘CreateOleObject’
我改怎么办？谢谢~

[fyje]

在uses列表中，增加ComObj，就可以了

[liyangyao970]

agree with fyje(云中仙)~~~~

[angle097113]

use ComObj
这个函数是包含在上面的单元中的 你需要引用一下的

[aiirii]

use ComObj

[47522341]

添加引用单元；