Delphi 实现控制IIS

Delphi 实现控制IIS

2009年07月01日 星期三 13:01

可不要忘记加Comobj哦 现在在研究控制IIS相关的东西呢 给自己管理的服务器写个软件来玩 Delphi代码 uses Comobj; procedure TForm1.btn_stopClick(Sender: TObject); var InstallPath: String; WebSite, WebServer, WebRoot: Variant; begin try WebSite :=CreateOLEObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); if string(webserver.ServerState) ='2' then begin webserver.stop; showmessage('停止服务成功'); end; except showmessage('停止服务失败'); end; end; //启动WEB站点 procedure TForm1.btn_startClick(Sender: TObject); var InstallPath: String; WebSite, WebServer, WebRoot: Variant; begin try WebSite :=CreateOLEObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); if string(webserver.ServerState) ='4' then begin webserver.start; showmessage('启动服务成功'); end; except showmessage('启动服务失败'); end; end; //暂停WEB站点 procedure TForm1.btn_pauseClick(Sender: TObject); var InstallPath: String; WebSite, WebServer, WebRoot: Variant; begin try WebSite :=CreateOLEObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); if string(webserver.ServerState) ='2' then begin webserver.pause; showmessage('暂停服务成功'); end; except showmessage('暂停服务失败'); end; end;