| |
使用Delphi创建IIS虚拟目录
|
责任编辑：ljx |
| [04-3-19 10:39]
| 作者：Spirit2004
| 想把自己的东西整理出来已经很久了，可是一直没有时间，自己的水平又太差，也怕耽误别人的时间，所以至今没写出任何东西出来。可是每次看到别人的文章心里也痒痒，于是找来自发表过的一个帖子，以回馈大家。
{ ****************** }
{ }
{ }
{ zhao zhenhua }
{ }
{ Copyright zhao zhenhua email:zhao-zhenhua@163.net }
{ }
{ ****************** }
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);
|
