高份收购，比较有挑战行（300）（要被抄了，救我啊）

Question

procedure TForm3.BitBtn4Click(Sender: TObject); 
var 
  Disp: IDispatch; 
begin 
  Disp := IISNamespace1.GetObject('IIsWebService', 'localhost/w3svc'); 
  Disp := (Disp as IADsContainer).GetObject('IIsWebServer', '1'); 
  Disp := (Disp as IADsContainer).GetObject('IIsWebVirtualDir', 'Root'); 
  Disp := (Disp as IADsContainer).Create('IIsWebVirtualDir', 'DelphiADSITest'); 
  (Disp as IADs).Put('AccessRead', 'True'); 
  (Disp as IADs).Put('Path', 'c:\ADSITest'); 
  (Disp as IADs).SetInfo; 
end; 
 
2、使用Variant(就是类似VB和ASP的方法) 
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; 
 
详细内容请看 
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=468148