使用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.

相关文章


用Delphi实现整个网站图片的极速下载
在Delphi中获取和修改文件的时间
DELPHI8操作符重载的例子
Delphi实现对注册表的监视和扫描
使用Delphi创建IIS虚拟目录
计算机二级辅导:增强MIDAS的安全性
获得远程或本地机器的网卡的MAC
计算机二级辅导:区分保留字跟关键字
动态设置系统日期格式
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛