使用Delphi创建IIS虚拟目录

文章作者 100test 发表时间 2011:03:22 18:44:44
来源 100Test.Com百考试题网

　　unit MainUnt.
　　interface
　　uses
　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　Dialogs, StdCtrls, FileCtrl, Buttons,Activeds_TLB.
　　type
　　TIISConfigFrm = class(TForm)
　　edtAlias: TEdit.
　　Label1: TLabel.
　　dlbIIS: TDirectoryListBox.
　　dcbIIS: TDriveComboBox.
　　Label2: TLabel.
　　edtPath: TEdit.
　　GroupBox1: TGroupBox.
　　cbRead: TCheckBox.
　　cbScript: TCheckBox.
　　cbExecute: TCheckBox.
　　cbWrite: TCheckBox.
　　cbBrowse: TCheckBox.
　　bbtOK: TBitBtn.
　　lblPath: TLabel.
　　procedure dlbIISChange(Sender: TObject).
　　procedure bbtOKClick(Sender: TObject).
　　procedure FormCreate(Sender: TObject).
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end.
　　function ADsGetObject(const PathName: WideString. const GUID:TGUID. out I: IUnknown): HRESULT. stdcall.
　　var
　　IISConfigFrm: TIISConfigFrm.
　　implementation
　　{$R *.dfm}
　　function ADsGetObject.external \’ActiveDS.dll\’ name \’ADsGetObject\’.
　　procedure TIISConfigFrm.dlbIISChange(Sender: TObject).
　　begin
　　edtPath.Text:=dlbIIS.Directory.
　　end.
　　procedure TIISConfigFrm.bbtOKClick(Sender: TObject).
　　var
　　I: IADsContainer.
　　ADs: IADs.
　　begin
　　if Length(Trim(edtAlias.Text))=0 then begin
　　Application.MessageBox(\’別名不可以為空！\’,\’警告\’).
　　Exit.
　　end.