卿本佳人，奈何作贼！------每见此语，心如刀绞！

    本文主要描述的是如何利用Delphi对Web IIS进行控制，应该说常用的功能基本都有了。为了共用我已把它做成了一个独立的单元文件，大家可直接下载，这样我们只要直接在程序  uses uIIS就可以使用了，同时我也做了一个演示程序，如图：

uses   TypInfo; type   TTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX);    procedure TForm1.Button1Click(Sender: TObject); var   ti: PTypeInfo;   td: PTypeData;   i: Integer; begin   ti := TypeInfo(TTest);   td := GetTypeData(ti);   for i := td^.MinValue to td^.MaxValue do     ListBox1.Items.Add(GetEnumName(ti, i)); end;

    Ehlib3.0以后的版本虽然支持排序功能，但不支持带有Order By的SQL语句，而且排序很慢；我写的这个排序函数，利用ADO的sort方法，排序很快，几万条数据也是很快。该函数支持Lookup字段排序，不支持计算字段排序，因为计算字段值在内存里高速运算。排序分为：升序、降序和默认三种，支持排序图标。

{
似乎很多人都需要这个。
Delphi自带的listview无法在排序时自动加上箭头。
如果设置Column[I].ImageIndex = a，箭头会出现在文字左边，
需要修改ComCtrls.pas才能使图片出现在右边。
并且TListItem的Caption项会自动加上图标，
没有图标则留出一个空白，非常难看。
这个修改过的控件解决了这些问题。
这个控件需要从资源文件中装载两个箭头图片，你需要自己制作。
或者下载SJListview，里面有SJListview.res资源文件。
}