高手!高分!delphi 中如何删除iis中的虚拟目录
不够再加
不够再加
解决方案 »
- spanel 控件加载窗口的问题。
- 关于网络访问的问题????
- 加班到现在,问题仍没解决,回家还得做饭! 大家帮我再看看吧,就算不可能实现,其他方法有么? (第三个次发这贴了)
- 请问怎么用sendmessage 或 postmessage 发消息 通知一个窗体来隐藏或显示 ?
- application.onmessage过程为什么不能收到sendmessage(application.handle..)的消息?
- gytyl拿fen
- 在写代码时有下面提示:(propetry Labels:tlist;)是什么意思?不知道这个tlist如何来写呢?
- 為什麼沒人會用Delphi編寫SMTP SERVER? 我已SearchCSDN都沒有相關貼子? help?
- 关于ListBox
- 在delphi里怎样把123456789.1234USD转变成英语的读法?
- 请教文件关联的问题?
- 如何修改窗体的系统菜单栏??
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的;