在网站上搜索了半天都是关于怎样建立web站点的虚拟目录的!可是我要在FTP站点上建立虚拟目录该怎样办呢!下面是创建web站点虚拟目录的代码!我将其中的web改成ftp不行!哪位大虾帮忙呀!
procedure TForm1.Button1Click(Sender: TObject);
var
I: IADsContainer;
ADs: IADs;
begin
if ADsGetObject('IIS://localhost/w3svc/1', IID_IADsContainer, IUnknown(I)) = S_Ok then
begin
ADs := IADs(I.GetObject('IIsWebServer', '1'));
ShowMessage(ADs.ADsPath);
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
begin
ADs := IADs(I.GetObject('IIsWebVirtualDir', 'Root'));
ShowMessage(ADs.ADsPath);
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
begin
ADs := IADs(I.Create('IIsWebVirtualDir', 'ld'));
ADs.Put('AccessRead', 'True');
ADS.Put('AccessWrite', 'True');
ADs.Put('Path', 'E:\新建文件夹 (3)');
ADs.SetInfo;
end;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: IADsContainer;
ADs: IADs;
begin
if ADsGetObject('IIS://localhost/w3svc/1', IID_IADsContainer, IUnknown(I)) = S_Ok then
begin
ADs := IADs(I.GetObject('IIsWebServer', '1'));
ShowMessage(ADs.ADsPath);
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
begin
ADs := IADs(I.GetObject('IIsWebVirtualDir', 'Root'));
ShowMessage(ADs.ADsPath);
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
begin
ADs := IADs(I.Create('IIsWebVirtualDir', 'ld'));
ADs.Put('AccessRead', 'True');
ADS.Put('AccessWrite', 'True');
ADs.Put('Path', 'E:\新建文件夹 (3)');
ADs.SetInfo;
end;
end;
end;
end;
解决方案 »
- 求ca-clipper资料
- maphack问题,本人很想知道其原理?
- 怎么实现鼠标滚动轮实现滚动条拖动??????
- 各位高手快快进来!帮忙看一下这个问题.这是同一个问题开的第二个贴子了!总分有150分!不够再加!
- 求教dbgrid的行高!
- forgot的散分帖:200分,请教一个英语问题,请进来看看!
- 今天怎么搞的,sina.com.cn是不是被很黑了
- 有谁做过信息访问控制系统?想购买一个,不要源码。
- delphi中如何获取像AMD Athlon(tm) II X3 435 一样的处理器信息
- 我得到一个窗口的句柄,怎么通过这个句柄来获得它的width 及 height?
- 83% ---------------------> 100%
- 请各位大虾推荐一下新手入门的好书
IIS的功能有限http://lysoft.7u7.net