ox('请选定虚拟目录位置！','警告');
Exit;
end;
if ADsGetObject('IIS://localhost', IID_IADsContainer, IUnknown(I)) = S_Ok then begin //IIS已经安装
if ADsGetObject('IIS://localhost/w3svc', IID_IADsContainer, IUnknown(I)) = S_Ok then begin //Web服务器存在
ADs := IADs(I.GetObject('IIsWebServer', '1')); //取得服务
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then begin //服务支持
ADs := IADs(I.GetObject('IIsWebVirtualDir', 'Root')); //在Web服务器的Root下建立虚拟目录
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then begin //服务支持
try
ADs := IADs(I.Create('IIsWebVirtualDir', edtAli页码：[1] [2] [3] [4] [5] [6] 第4页、共6页 |
