nown): 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.MessageB页码：[1] [2] [3] [4] [5] [6] 第3页、共6页 |
