正在阅读：使用Delphi创建IIS虚拟目录使用Delphi创建IIS虚拟目录

2004-03-19 10:39 出处：CSDN 作者：Spirit2004 责任编辑：linjixiong
在本页浏览全文

  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;

  if Length(Trim(edtPath.Text))=0 then begin
  Application.MessageBox('請選定虛擬目錄位置！','警告');
  Exit;
  end;




察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:
123在本页浏览全文
键盘也能翻页，试试“← →”键

相关文章

关注我们

聚超值

热门软件

PC软件 安卓应用 iOS应用 手游电脑版
游戏专区
王者荣耀专区 绝地求生专区 炉石传说专区
IT百科 热门专题

汽车资讯

  • 正在加载中...

成都车展 宏光MINI EV 普拉多 欧拉黑猫 途达 起亚嘉华 玛奇朵 皇冠陆放 奔驰C级 哈弗神兽 坦克600 奥迪Q5 思域 卡罗拉双擎E+ 轩逸 太平洋汽车网app 新能源车

最新资讯离线随时看 聊天吐槽赢奖品