上一页 1 2 3 下一页

  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;

上一篇： Delphi模拟最小化恢复关闭按纽
下一篇： Delphi实现对注册表的监视和扫描

上一页 1 2 3 下一页