一个很急的问题！！！

Question

1、用delphi怎么实现ASP超链接，即可以调用ie打开一个网站。
2、谁知道用Delphi在IIS中新建一个web站点。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  IE:Variant;
begin
  IE:=CreateOleObject('InternetExplorer.Application');
  IE.Visible:=True;
  IE.Navigate('www.163.com');
end;一定要记得Uses ComObj

Answer 2

在IIS中新建一个web站点只能在Server版才有用。有两种路径，一种通过IIS的com来设置，容易，Delphi也可以写，不过这个稳定性不好，另一下是通过MetaBase来设置，这是最稳定的方法。不过不容易实现.一般不用Delphi写

Answer 3

uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.sina.com.cn',nil,nil,SW_SHOW);
end;

Answer 4

2.可以实现。有两种办法。
第一。
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; 第二种 使用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:\temp'; 
  VDir.SetInfo; 
end; 我一般用的都是第二种，呵呵

Answer 5

不错 收藏！ 又学一招 hehe^^---------
春困秋乏夏打盹，睡不醒的冬三月 ^^!