高手!高分!delphi 中如何删除iis中的虚拟目录 高手!高分!delphi 中如何删除iis中的虚拟目录不够再加 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 部分原创;1, 先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll2,procedure TForm1.Button2Click(Sender: TObject);varWebSite,WebServer,WebRoot: Variant;beginWebSite := CreateOleObject('IISNamespace');WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');WebServer := WebSite.GetObject('IIsWebServer', '1');WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');WebRoot.delete('IIsWebVirtualDir', 'VariantTest');end; 来自超级猛料,生成VIR;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;其实可以写PAS专门操作ISS的; 请问如何在Delphi7中使用Delphi6中的TServerSocket和TClientSocket两个组件? 为什么我的程序关闭需要过好长时间(大约有十几秒)? 如何利用编程执行Dos的批处理文件? 怎样动态改变speedbutton按钮上的图标? dbchart问题! 一个小问题 简单的delphi问题(50) 一个有关listbox的小问题 有关指定SQL属性方式问题 关于ADODataSet的过滤问题,请各位帮个忙! 请教文件关联的问题? 如何修改窗体的系统菜单栏??
1, 先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll
2,procedure TForm1.Button2Click(Sender: TObject);
var
WebSite,WebServer,WebRoot: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
WebRoot.delete('IIsWebVirtualDir', 'VariantTest');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;
其实可以写PAS专门操作ISS的;